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202  To  Print  Header 401 

203  To  Display  Program  Options  and  Commands  ....  402 

204  To  Process  the  Input  Commands 403 

205  To  Wait  for  Operator  Response  Displaying 

Elapsed  Time  of  Wait 404 

206  To  Accept  ALPHA  and  NUMERIC  Inputs  405 

4 

207  To  Assign  an  Input  Disk  Device  to  Device  Table 

and  Verify  Disk  Has  Proper  Contents  407 

208  To  Display  Formatting  Menu  and  Input  Command.  . 408 

209  To  Display  Operational  Menu  and  Input  Command  411 

MAPS  (Cross-reference) 

Line  Number 412 

Variable 414 

Subroutine 415 
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5.3.2  ATH3INT2 

210  To  Provide  the  Basic  Sequence  for  Initializing 
the  Data  Entry  Process  

212  To  Input  the  Device  Structure  to  be  Assigned  . 

213  To  Assign  Device  to  Internal  Table  Slot.  . . . 

214  To  Verify  Contents  of  Mounted  Disks 

215  To  Verify  that  a Standard  WANG  Disk  is 

Mounted 

216  To  Verify  that  the  Proper  Phase  2 Data  Base 

Disk  is  Mounted.  . 

217  To  Initialize  and  Verify  the  Phase  III  Data 

Base  Disk 

218  To  Initialize  the  Phase  III  Data  Base  Disk  . . 

219  To  Verify  that  the  Proper  Phase  III  Data 

Base  Disk  is  Mounted  

220  To  Assign  the  Starting  Frame  Number  for  the 

Learning  Package  

MAPS  (Cross-reference) 

Line  Number 

Variable 

Subroutine  

5.4  ATH3STAB  TO  CLEAR  FROM  MEMORY  TEXT  NOT  NEEDED 

5.5  ATH3VTAB  TO  LOAD  THE  SYMBOL  TABLE  INTO  COMMON  MEMORY  . . . . 

5.6  ATH3SRTS  TO  INITIALIZE  THE  SYMBOL  TABLE 

201  To  Define  and  Initialize  Sort  Tables  

202  To  Load  the  Merge  Buffer  from  the  Data  Base 

Index;  To  Sort  Each  Row 

203  To  Sort  the  Merge  Buffer  Creating  the  Sorted 

Symbol  Table  
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of  Symbols 443 

207  To  Set  a Bit  on  Corresponding  to  the  Item 

Number 444 

208  To  Mask  a Given  Bit  Position 445 

209  To  Turn  on  a Given  Bit  Position 446 

MAPS  (Cross-reference) 447 

Variable 448 

Subroutine 449 

5.7  ATH3AUT0  TO  PROVIDE  THE  OVERLAY  CONTROL  LOGIC  FOR  THE  MAJOR 

CONSTRUCTION  OF  THE  LEARNING  MODULE  450 

200  To  Generate  a Random  Linear  Subscript 452 

201  To  Locate  a Subscript  Not  Previously  Generated  . 453 

202  To  Set  a Bit  on  Corresponding  to  the  Item 

Number 454 

203  To  Mask  a Given  Bit  Position 455 

204  To  Turn  on  a Given  Bit  Position 456 

205  To  Initialize  Output  Page  Buffer  from  the  Data 

Subprogram 457 

206  To  Read  the  Data  Subprogram  and  Load  into 

Storage  Buffer  458 

MAPS  (Cross-reference) 

Line  Number 460 

Variable 461 

Subroutine 462 
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5.8  ATH300.0  CREATE  THE  TITLE  PAGE. 


21 d To  Save  Text  to  be  Stored  on  Line  16. 


211  To  Create  the  Title 


212  To  Create  the  Subtitle. 


213  To  Create  the  Author  Credits. 


214  To  Create  the  Date. 


215  To  Create  the  Name  of  the  Organization.  . . 


216  To  Save  Current  Page  on  Output  Disk  . 

MAPS  (Cross-reference) 

Line  Number  

Variable 

Subroutine 


5.9  ATH301.0  CREATE  THE  INTRODUCTION  PAGE  OF  THE  LEARNING  MODULE. 

210  To  Save  Text  on  Lower  Portion  of  Page  Then 

Clear  Page 


211  To  Load  the  Training  Objective  onto  the  Page. 


212  To  Re-load  Page  with  Fixed  Text 


213  To  Save  Current  Page  and  Clear  in  Order  to 
Allow  the  Loading  of  the  Remainder  of  Text.  . 

MAPS  (Cross-reference) 

Line  Number  

Variable 

Subroutine 


5.10  ATH 302.0  CREATE  THE  IMPORTANCE  OF  THE  SYMBOL  PAGE 
210  To  Save  Lower  Heading  of  the  Page  . 


211  To  Write  Text  on  Importance  of  Learning  Task.  . 
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214  To  Save  Current  Page  on  Disk 490 

MAPS  (Cross-reference) 

Line  Number 491 

Variable 492 

Subroutine 493 

ATH303.0  CREATE  THE  EXAMPLE  PAGE  OF  THE  LEARNING  MODULE.  . . 494 

210  To  Save  Text  on  Last  Line  of  Page 496 

211  To  Write  Text  for  Example  Page 497 

212  To  Save  Page  on  Disk 498 

MAPS  (Cross-reference) 499 

Variable 500 

Subroutine 501 

ATH 304.0  CREATE  THE  SYMBOL  PRETEST  PAGE  OF  THE  LEARNING 

MODULE 502 

210  To  Write  the  Type  of  Symbol 504 

211  To  Write  a Sampling  of  Symbols 505 

212  To  Save  Lower  Part  of  Page 506 

213  To  Write  Official  Source  of  Reference 507 

214  To  Save  Current  Page 508 

MAPS  (Cross-reference) 

Line  Number 509 

Variable ' 510 

Subroutine 511 

ATH304.1  CREATE  THE  OPTIONAL  CRITERION  TEST  PAGES  OF  THE 

LEARNING  MODULE  512 

210  To  Save  Lower  Page  Text.  . . . 514 

211  To  Create  Criterion  Test  Questions  515 


I 
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Line  Number 519 

Variable 520 

Subroutine 521 

5.14  ATH305.0  CREATE  THE  ORGANIZATION  OF  THE  LEARNING  PROGRAM 

PAGE  OF  THE  LEARNING  MODULE 522 

210  To  Insert  the  Number  of  Symbol  Sets  into 

Text 524 

211  To  Insert  the  Number  of  Symbols  into  Text.  . . 525 

MAPS  (Cross-reference) 

Variable 526 

Subroutine 527 

5.15  ATH306  INITIALIZE  THE  PROGRAMS  NEEDED  TO  CREATE  THE  SYMBOL 

SET  PAGES 528 


210  To  Load  the  Symbol  Set  Number  in  Heading  530 

MAPS  (Cross-reference) 

Variable 531 

Subroutine . 532 


5.16  ATH306.0  CREATE  THE  SYMBOL  LIST  PAGE  OF  THE  LEARNING  MODULE  533 


211  To  Save  the  Text  in  Lower  Portion  of  Page.  . . 

212  To  Load  Text  Buffer  with  List  of  Symbols 

Contained  in  Current  Set  

213  To  Load  Fixed  Text  in  the  Remaining  Space 

and  Save  Page  on  Disk 

MAPS  (Cross-reference) 

. Line  Number 

Variable  

Subroutine  


535 


536 


537 


538 

539 

540 
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Page 


5.17  ATH306.1  DETERMINE  IF  THE  "NOTE  DIFFERENCES  AMONG  SYMBOLS" 

PAGE  IS  NEEDED ^41 

211  To  Find  Any  Similar  Symbols  Within  the 

Current  Set  of  Symbols 543 


j 


* 


MAPS  (Cross-reference) 


Line  Number 544 

Variable 545 

Subroutine 546 


5.18  ATH306.2  CREATE  THE  "NOTE  DIFFERENCES  AMONG  SYMBOLS"  PAGE  OF  ‘ 

THE  LEARNING  MODULE 547 

211  To  Load  Similar  Symbols  into  Temporary 

Storage 549 

212  To  Save  Text  Contained  in  Lower  Portion  of 

Page 550 

213  To  Insert  Symbol  List  into  Page  Buffer  ....  551 

214  To  Save  Page  Containing  the  List  of  Similar 

Symbols 552 

215  To  Insert  Current  Similar  Symbol  into  Page 

Buffer 553 

216  To  Create  the  Discrimination  Exercises  ....  554 

• . 

217  To  Create  the  Answers  to  the  Discrimination 

Exercises.  556 


218  To  Minimize  the  Chance  that  the  Same  Two 


Symbols  Will  Appear  in  Sequence 557 

MAPS  (Cross-reference) 

Line  Number 558 

Variable 559 

Subroutine 560 
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Section  Page 


5.19  ATH306.3  CREATE  THE  SYMBOL  DEFINITIONS  (PART  1)  PAGE  OF  THE 

LEARNING  MODULE  561 

MAPS  (Cross-reference) 

Variable 563 

Subroutine 564 


5.20  ATH306.4  CREATE  THE  SYMBOL  DEFINITIONS  (PART  2)  PAGE  OF  THE 

LEARNING  MODULE  565 

211  To  Save  Last  Line  of  Text  Format  in  Temporary 

Storage 567 

212  To  Load  Memory  Aid  into  Temporary  Buffer  and 
Determine  Approximate  Size  of  Text  (in  lines).  . 568 

213  To  Load  Definition  into  Temporary  Buffer  and 
Determine  Approximate  Size  of  Text  (in  lines).  . 569 

214  To  Insert  the  Definition,  Memory  Aid,  and 


Symbol  into  Page  Buffer 570 

215  To  Save  Final  Page  of  Text  on  the  Disk 571 

MAPS  (Cross-reference) 

Line  Number 572 

Variable 573 

Subroutine 574 


5.21  ATH306.5  CREATE  THE  PRACTICE  DEFINING  THE  SYMBOL  INTRODUCTION 


PAGE  OF  THE  LEARNING  MODULE 575 

MAPS  (Cross-reference) 

Variable 577 

Subroutine 578 


99  ATmflK  (\ 


CREATE  THE  PRACTICE  DEFINING  THE  SYMBOLS  EXERCISE 
PAGE  OF  THE  LEARNING  MODULE  

211  To  Save  Last  Line  of  Text  Buffer  in  Temporary 

Storage  Buffer  

212  To  Insert  a Selection  of  Symbols  and  Symbol 

Definitions  from  the  Symbol  Set  Table  into 
the  Page  Buffer 
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VOLUME  II 

Section  Page 

213  To  Create  a List  of  Symbols  Selected  from 

Those  Symbols  Used  in  Lower  Portion  of  Frame.  . . 583 

214  To  Save  Current  Page  and  Insert  Message 
Indicating  that  Section  Continues  on  Next  Page.  . 584 

215  To  Save  the  Last  Page  of  the  Practice  Sequence.  . 585 

216  To  Generate  and  Store  the  List  of  Symbols  in  the 


Current  Symbol  Set 586 

217  To  Fill  the  Space  Remaining  on  a Page  with  a 
Symbol  from  Current  Set  that  has  not  been 
Inserted  on  Current  Page  588 

MAPS  (Cross-reference) 

Line  Number 588 

Variable 589 

Subroutine 590 

5.23  ATH306.7  CREATE  PART  1 OF  THE  TEST  YOURSELF  SECTION  OF  THE 

LEARNING  MODULE  591 

MAPS  (Cross-reference) 

Variable 593 

Subroutine 594 

| a 

5.24  ATH306.8  CREATE  PART  2 OF  THE  TEST  YOURSELF  SECTION  OF  THE 

LEARNING  MODULE  595 

« 211  To  Generate  a Random  List  of  Symbols  from  the 

Current  Symbol  Set 597 

212  To  Insert  the  List  of  Random  Test  Symbols.  . . . 598 

213  To  Save  the  Last  Line  of  Page  Buffer  in  a 

Temporary  Storage  Buffer  599 


214  To  Insert  Either  the  Memory  Aids  or  the 

Definitions  for  Those  Symbols  Used  in  the  Test  . 600 
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Section  Page 


215  To  Save  Page  on  Disk  After  Reloading  Last 

Line  of  Text  from  Storage  Buffer 601 

MAPS  (Cross-reference) 

Line  Number 602 

Variable 603 

Subroutine 604 

5.25  ATH306.9  CREATE  PART  3 OF  THE  TEST  YOURSELF  SECTION  OF  THE 

LEARNING  MODULE 605 

211  To  Insert  the  Current  Symbol  Set  Number  into 

the  Text 607 

212  To  Check  if  Last  Section  Symbol  Set  Has  Been 

Created 608 

I 

MAPS  (Cross-reference) 

Line  Number 609 

Variable 610 

Subroutine 611 

5.26  ATH 307.0  CREATE  THE  PRACTICE  DEFINING  ALL  THE  SYMBOLS 

(OVERVIEW  AND  DIRECTIONS)  PAGE  OF  THE  LEARNING 
MODULE 612 


210  To  Insert  the  Total  Number  of  Symbols  into  the 

Text  of  the  Format.  614 


MAPS  (Cross-reference) 

Variable  

Subroutine  

5.27  ATH307.1  CREATE  THE  PRACTICE  DEFINING  ALL  SYMBOLS  (PRACTICE 

EXERCISES  AND  ANSWERS)  PAGES  OF  THE  LEARNING 
MODULE  


To  Generate  a List  of  Symbols  to  be  Used  as 
Practice  Symbols  in  the  Two  Frame  Sequence.  . . . 

To  Create  a List  of  Symbols  Selected  from  the 
Symbols  to  be  Used  on  Page  2 of  the  Sequence.  . . 


615 

616 

617 

619 

620 
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212  To  Save  Last  Line  of  Text  Buffer  in  a 

Temporary  Storage  Buffer 

213  To  Insert  the  Answers  to  the  Practice  Exercises 

in  a Sorted  Manner  on  the  Second  Frame  of 
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214  To  Save  Current  Page  on  Disk  and  Insert  Message 
Indicating  that  Section  Continues  on  Next 

Page 

215  To  Fill  the  Space  Remaining  on  a Page  with  a 

Symbol  from  Current  Set  that  Has  Not  Been 
Inserted  on  Current  Page 

MAPS  (Cross-reference) 

Line  Number 

Variable  

Subroutine  

5.28  ATH307.2  CREATE  THE  PRACTICE  DEFINING  ALL  THE  SYMBOLS  (ENDING 

AND  PRACTICE  DIRECTIONS)  PAGE  OF  THE  LEARNING 
MODULE  

MAPS  (Cross-reference)  , 

Variable ■. 

Subroutine 

5.29  ATH308.O  CREATE  THE  CRITERION  TEST  (DIRECTIONS)  PAGE  OF  THE 

LEARNING  MODULE 

MAPS  (Cross-reference) 

Variable  

Subroutine  

5.30  ATH308.1  CREATE  THE  CRITERION  TEST  (TESTS,  ANSWERS,  END  OF 

TEST  DIRECTIONS,  AND  CONGRATULATIONS)  PAGES  OF  THE 
LEARNING  MODULE 

210  To  Insert  the  Current  Criterion  Test  Number 

into  the  Frame  Text  

211  To  Create  Criterion  Test  Questions 


TAEG  Report  No.  59 


EXTENDED  TABLE  OF  CONTENTS  (continued) 
VOLUME  II 


Section  Page 
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Proper  Instructions 642 

214  To  Save  Lower  Part  of  Page 643 
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MAPS  (Cross-reference) 

Line  Number 646 

Variable 647 

Subroutine 648 

5.31  ATH309.0  CREATE  THE  SUGGESTIONS  FOR  REFRESHER  TRAINING 

PAGES  OF  THE  LEARNING  MODULE 649 

210  To  Save  Last  Frame  of  Learning  Module 651 

MAPS  (Cross-reference) 

Line  Number 652 

Variable 653 

Subroutine 654 

5.32  ATH3INDX  UPDATE  THE  DISK  LOOKUP  INDEX  ON  EACH  DISKETTE  IF  A 

MULTI  VOLUME  OUTPUT  WAS  CREATED 655 

5.32.1  ATH3IDX1 

201  To  Update  All  Index  Sectors  on  All  Volumes  of 
the  Output  File  if  More  than  One  Volume 

Was  Created 657 

202  To  Load  Page  Buffer  with  First/Next  Frame 

From  Disk 659 

203  To  Check  Current  Page  Address  and  to  Create 

the  Index  Pages  if  Fiche  Format  Output  ....  660 


204  To  Scan  the  Current  Page  Buffer  for  a Keyword; 

To  Set  Up  Keyword  Buffer;  To  Process  All 
Keywords  on  Page 661 
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Page  Then  Insert 669 

213  To  Save  Last  Page  of  Index 670 
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MAPS  (Cross-reference) 

Line  Number 671 

Variable 672 

Subroutine 674 

5.32.2  ATH3IDX2  675 

214  To  Perform  the  Skip  Forward  or  Skip  Backward 

Function 676 

215  To  Assign  a Binary  Page  Address  677 

216  To  Save  Index  Frame  on  Disk.  678 

217  To  Read  the  Data  Subprogram  and  Load  it  into 

a Storage  Buffer 679 

MAPS  (Cross-reference) 

Line  Number 680 

Variable 681 

Subroutine 682 
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Subroutine 701 
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115  To  Scan  Lookup  Table  for  Next  Underscored 

Character  703 
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Device 704 
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124  To  Select  the  Type  of  Special  Character 

Scanning  to  be  Executed 720 
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1.0  INTRODUCTION 

Volume  I of  this  report  presented  detailed  operating  instructions  for 
the  AUTHOR  System. 

This  present  volume  (Volume  II)  contains  the  necessary  information 
for  a detailed  examination  of  the  design  of  the  AUTHOR  System  programs 
and  will  be  useful  in  modifying  the  programs  to  meet  unique  requirements 
of  users.  It  includes  the  program  listings  and  a summary  of  how  the 
source  programs  are  compressed  to  form  programs  that  can  be  executed. 

Additional  assistance  or  access  to  a program  in  machine  readable  form 
will  be  provided  by  the  Training  Analysis  and  Evaluation  Group  (TAEG) 
to  authorized  agencies  or  individuals. 

For  information  concerning  the  purpose  of  the  AUTHOR  System,  see  TAEG 
Report  No.  58. 1 

1.1  ORGANIZATION  OF  THE  REPORT 

The  remainder  of  this  report  is  organized  into  seven  sections.  Section  2 
provides  a listing  of  the  AUTHOR  System  Initializing  Program.  Section  3 

presents  the  programs  used  to  design  the  basic  module  formats.  Section  4 

presents  the  programs  used  to  create  and  maintain  the  data  base.  Section  5 

presents  the  programs  used  to  create  and  maintain  the  output  learning 

module.  Sections  6 and  7 present  the  basic  module  formats,  and  section  8 
provides  a summary  of  how  the  source  programs  are  compressed  to  form  an 
executable  set  of  programs. 

The  AUTHOR  System  programs  make  extensive  use  of  program  overlaying.  This 
was  necessary  due  to  the  hardware  configuration.  Therefore,  the  programs 
in  this  report  are  broken  down  by  overlay  and  where  necessary  the  overlay 
was  broken  down  into  parts.  This  added  breakdown  was  necessary  due  to 
the  large  amount  of  program  documentation. 

Following  each  overlay  and  sub-overlay  are  two  or  three  of  the  following 
reference  maps: 

line  number  cross  reference 
variable  cross  reference 
subroutine  cross  reference. 


Richard  Braby,  William  F.  Parrish,  Charles  R.  Guitard,  and  James  A.  Aagard. 
Computer-Aided  Authoring  of  Progranmed  Instruction  for  Teaching  Symbol 
Recognition,  TAEG  Report  No.  Ss7  June  1978.  Training  Analysis  and  Evaluation 
Group,  Orlando,  FL. 
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2.0  AUTHOR  SYSTEM  INITIALIZING  PROGRAM 

The  purpose  of  this  'AUTHOR*  program  is 
and  to  allow  the  user  to  select  the  AUTHOR  System  program  to  be  loaded  and 
run.  For  operating  instructions  see  section  4.0  in  Volume  I. 

2.1  PROGRAM  FLOWCHART 

Figure  2.1  presents  a program  flowchart  which  shows  the  major  steps  of  the 
initializing  program. 

When  appropriate,  the  subroutine  name  or  overlay  name  will  be  shown  in  the 
lower  portion  of  the  flowchart  element.  This  indicates  that  the  named 
subroutine  or  overlay  performs  the  function  described. 

2.2  AUTHOR 

The  remainder  of  this  section  contains  the  program  listing  and  reference 
maps. 
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AU 

9 1 lOJ-V  Syr,  "t  Din  : 

AUTI  ICJW  - sn  /SI*’ 

1000 

X##  Program 

> AUTHOR  System  < AUTHOR ) Version  > 2.0  2200  T/VP  7803 1C 

1010 

HEM  **  Abstract  *ihhhi»ihhhhhhhhhhhhh>*«»»  h » * »»*************»*i(-»*»»»***** 

1020 

HtM  ** 

1030 

HEM  **  This  Program  is  used  toeinitial i ze  the  default  program  ** 

IO'iO 

HEM  **  di 

sk  drive  for  all  phases 

of  the  AUTHOR 

System.  ** 

1050 

REM  ** 

** 

105.0 

RLM  ********************************************************************* 

1070 

DEFFN  ' 000 

REM 

ENTRY 

1 020 

DIM 

LI  *25,  L2*8,  L 3*4,  Qfc.*25, 

(17*8,  08*4 

RLM 

UEF1NE  WORK  BUFRS 

1090 

DIM 

R2*64,Hl*l,R6*64,RO*< 1 )1 

REM 

DEFINE  WORK  BUFRS 

1100 

SELEC  r 

PRINT  005 

REM 

SEL  OUTPUT  D I SPEY 

1110 

SELECT 

CO  005 

REM 

SET.  CONSUL  01  SPEY 

1120 

SELECT 

INPUT  OOl 

RLM 

SEL  INPUT  DEVICE 

1130 

SELECT 

Cl  001 

REM 

SEL  CONSUL  INPUT 

1 140 

PRINT 

HEX (03) 

REM 

CLR  CRT  SCREEN 

1150 

PRINT 

HEX ( 010A0A0A) 

REM 

POSITION  CL'SUR 

1160 

PHiNTUSINC 

3300,  "it" 

REM 

PRINT  MENU 

1170 

PR1NTUS1NC 

3370,  "it" 

REM 

PHI NT  MENU 

11  SO 

PRINTUS1NC 

3380, 

REM 

PRINT  MENU 

1190 

PR1NTUS1NC 

33*30,  " " 

REM 

PRINT  MENU 

- 200 

PRINTULINC 

3400, “ " 

REM 

PRINT  MENU 

1210 

PRINT 

HEX (OIOS) 

REM 

HOME  CIJSOR 

1220 

PR1NTUS1NC 

3410,"  "; 

RLM 

PRINT  MENU 

12.  tlO 

COSUB  ' 104 

( 1, "N", "5" ) 

REM 

ENTER  RESPQNCL 

1 240 

RLM  ** 

1250 

RLM  ** 

• 310  ! BIO  ! 350  ( 

320  ! B20 

125.0 

HI  M ** 

1270 

UN  P.3  GOTO 

1310  , 1320  , 1330  , 

1340  , 1350 

RLM 

BRANCH 

1280 

RLM  ** 

1290 

REM  ** 

1300 

GOTO 

1070 

REM 

INVALID  VALUE 

1310 

SELL Cl  #1 

310 

: GOTO  1360 

RLM 

SELECT  DISK 

1 320 

SELECT  ill 

BIO 

: GOTO  1360 

REM 

SELLCT  DISK 

1 330 

SELECT  m 

350 

: GOTO  13S0 

HEM 

SELECT  DISK 

1 340 

SELECT  ill 

320 

: GOIU  1360 

REM 

SELECT  DISK 

1 350 

SELECT  iil 

B20 

: COTO  1360 

RLM 

SELLCT  DISK 

1350 

PRINT 

HEX ( 030A0A0A ) 

REM 

CL.R  CRT  SCREEN 

13  20 

PP1NTUS1NC 

3420, “ " 

REM 

PRINT  MENU 

13P0 

PHINTUS1NG 

3430,"  " 

REM 

RH1NT  MENU 

1390 

PHINTUSINC 

3440, " “ 

REM 

PRINT  MENU 

1 400 

PRINT 

HEX (OIOS) 

REM 

HUME  CUSOH 

1410 

PRINTUSINC 

3'iBO, " *; 

REM 

PRINT  MENU 

1T20 

COSUB  ' 104 

( 1, "N", "3“ ) 

REM 

ENTER  HESPUNCt 

14  30 

RLM  ** 

1 4 40 

REM  ** 

! Phase  1 ! Phase  11 

! Phase  111 

1450 

RL-.M  ** 

14tO 

UN  H2  CUTU 

1500  , 1510 

, 1520  : REM 

BHANCI 1 

1 470 

REM  ** 

!.  '•>  > 

RLM  ** 

1499 

C010 

1 360 

: REM 

INVALID  BRANCH 

1'-  \> 

COSUB  ' 102 

("AUTHOR  SYSTEM:  Phase 

I" ."AUTHOR/ 1" 

"OlOO" ) 

1 5 : 0 

COSUB  ' 102 

("AUTHOR  SYSTEM:  Phase 

11“ , "AUTHOR /2 

',"0100") 

1520 

CtJSUB  ' 102 

(" AUTHOR  SYSTEM:  Phase 

111" AUTHOR/3", "OlOO" ) 

1530 

END 

REM 

END  UP  PROGRAM 
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/M_l  I l :OR  S>'E-t  c-m  s 


/V_J  ! tHCJt-x: 


O :t 


1540 

REM 

«HMfr 

1550 

RfcM 

1 ABELfcD 

SUBROUT 1 NFS 

1550 

RfcM 

•* 

1570 

REM 

» 

1580 

RLM 

1 590 

REM 

Sub  routine 

1 0 1 

1 too 

REM 

Function 

>s 

It.lu 

RfcM 

Cusor 

Address  and  Screen  erase 

1550 

RLM 

Varaibles 

> 

m * 

1530 

REM 

01 

> 

row  position 

03  > 

lines  to  erase 

1540 

RtM 

05 

> 

col  position 

04  > 

charts)  erase 

1550 

RfcM 

ul»(  ) 

> 

cusor  vert 

UP* ( ) > 

cu-’or  For z 

lfc.feO 

REM 

*•* 

03*  ( ) 

\ 

line  ers 

04 ♦ ( ) > 

micro  crmnd  bufr 

1570 

RfcM 

*■* 

05 

line  indx 

1580 

REM 

*■* 

15-30 

REM 

-t'--**-**-*  *«"»*-**  ■■**■•**•*•**•■*•♦-#- 

* 

1 /oo 
1 (10 
1 750 
1 730 
1 740 
1750 
1750 
1 .'70 
1780 
1 790 
1800 
1810 
1880 
1830 
1 8/:0 
1850 
1800 
18  TO 
1880 
18'30 
l'30o 
11310 
1330 


UEFFN  ' 101 
DJM 

lNlT(OA) 
IN11  (0-3) 

INI  I (SO) 


SLEF.CT 

ir 

IF 

I- (JR 
IF 

♦GIG  R0W/0O5 
tOTU 
♦CIO 
-toiu 
♦GIU 

rex  i 
♦CIO 
♦ciu 
SELECT 
RL  7 URN 


(01,  08,08,04) 

01 ♦ ( 24 ) 1 , OS*  ( 80 ) 1 , <33*  ( 80  > 1 , 04* ( 1 O ) 1 
Ql^<  ) 

08*( ) 

03*  < ) 

Q1*<1)  = HFX(Ol) 

Q2*(l>  - HEX  (OU) 

PRINT  405 


ROW/ 005 
C0L/0OG 
b.RS/(JC)5 

R0W/OO5 

COL/OOL 


03  = 0 

04  <>  O 

04  - 81  - OS 

05  = 1 TO  03 
05  <>  1 
(AOOO,  (!'»♦( 

18C0 

(AOOO,Q4t( > >Q1*( ) <2, 1> 

< AOOO,  04*  < ) ) OR*  (Kl,  02> 
( AOOO , G'v»  ( ) ) 03*  ( ) < 1 , 04 > 

05 

(AOOO,G4*< ) )Glt( ><1,01> 
( AOOO,  04*  < > ) 05*  (XI,  UR> 
PRINT  005 


THFN 

THFN 


1890 

1810 


THFN  1850 


RfcM 

REM 

RfcM 

RfcM 

REN 

RF.M 

REM 

RFM 

RkM 

RtM 

RFM 

Rlm 

REM 

RtM 

RtM 

RtM 

RfcM 

RtM 

RfcM 

RfcM 

RfcM 

RfcM 

RfcM 


ENTRY 

L*tFIN  BUFRS 
1NIT  ROW  EfUFR 
IN1T  COE 
INI T ERS 
INI!  TOP 
I NIT  BEG 


BUFR 
BUFR 
OF  I -ACE 
OF  LINE 


Sfcfc  OUTPOT  D1SI-LY 
NO  LINEfc.  TO  ERASE 
CHARS  TO  fcRASL 
fcRS  RtST  Ofc  LINE 
ERASE  G3  LINES 
NOT  Fl RSI  LINE 
POSITION  CUSUR 
BRANCH  TO  POS  COL. 
P0S1 I ION  COLOR  LF 
POSITION  CUSOH 
tRASL  TEXT 
CONT  ERASING 
REPOSITION  CUSOH 
REPOSITION  CUSOR 
SEE.  OUTPUT  OlSI  'E  Y 
fcX  1 J 


C 
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A 


ALJ 

! HUR 

Sy  s-t:  em : 

/VLJTI  ICJK  — 

1 

O 

1-330 

REM 

1540 

REM 

1-350 

HEM 

■ft"* 

Subroutine  > 

1 0 

2 

I960 

RLM 

Function  > 

1970 

REM 

•if  ■* 

To  load  an  over  lay  Routine. 

1980 

REM 

•ft"* 

Variables  > 

1990 

re:m 

■*■* 

Q6*<>  > description  ! 

G/*()  program  name 

dOOO 

REM 

•ft"* 

G0*< ) > begin  line  number  ! 

2010 

REM 

•** 

2020 

REM 

**  «■•*•«••** •*•*•*** * -if  * *«•»*•»•*•»•»**-“*-*- -a-** ft -ft* 

2030 

DEFFN  ' 

102  (06$, 07*, 08$) 

: REM  ENTRY 

dO  40 

SELECT 

PRINT  005(80) 

: REM  SEL  OUTPUT 

OJSPLY 

2050 

PRINT 

HEX (03) 

: REM  CLEAR  CRT 

2060 

PRINTUS 

INC  3340, “ “ 

: REM  PRINT  Til LE 

2070 

2080 

at-oo 

2100 

duo 


PRINT 

PK1NTUSING 
COSUE  ' 101 


PRINT 

CUSUB 


3350, “ “ 
<08,06,0,0) 
“System  Now  Loading 
101  (10,06,0,0) 


; Q6? ; 


Routines" 


2120 

PRINT 

"Program  being  Loaded  > “;G(* 

2130 

IF 

Q8*  <>  “0100“ 

THEN 

2150 

2140 

LOAD 

DC  T #1,  G7*  IOC 

2150 

IF 

Q8*  <>  “2000" 

TFIEN 

ru 

v-» 

-3 

O 

2160 

LUAD 

DC  T #1,  G/*  19/0 

d ! 70 

IF 

GC*  <>  "4000“ 

THEN 

2190 

2180 

LOAD 

DC  T HI,  G 7*  4000 

21-30 

IF 

QS*  <>  “6000“ 

THEN 

2210 

2200 

LOAD 

DC  T #1,  G/*  3110 

2210 

COSUB  ' 

lOl  (20,1,0,0) 

2220 
2d  30 


PRINT 

END 


'INVALID  PROGRAM  SPECIF ICATION" 


RF.M 

REM 

RLM 

RLM 

REM 

REM 


PRINT  SUBTITLE 
POL.!.  I ION  CUSUR 
PRINT  DEScRlPi 1UN 
POSITION  CULUR 
PRINT  PROC  NAME 
LOAD  AT  LINE  0100 


REM  LOAD  AT  LINE  2000 
REM  LOAD  AT  LINE  4000 


REM  LOAD  AT  LINE  6000 


REM  POSI I ION  CUSUH 


REM  END  PRUG  EXECUTION 


o 
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£310 

£3£0 

£330 

£340 

£350 

£3C0 

£370 

£380 

£390 

£400 


REM 
REM 
REM 
REM 
REM 
DEFFN 
DIM 


■»* 

** 


Rl*  > 'A'  or  'N'  or  'E' ! R£  > return  <num> 

R£*  > return  <alph>  ! R3  > char  pointer 

RO*  > initial  value  ! R9  > scratch  count 


104 


(R1,R1*,R0*)  : REM 
R9*(1)04,R8*(9>£4,R4*(1>10  : REM 
R4*(1)=HEX(01080£A7030D03E8£0£0>  : REM 
R8*(9 ) =HEX (051E3F£0550077000000 ) : REM 


ENTRY 

DEFINE  WORK  BUFRS 
UEF1N  CHAR  TRANS 
DEF1N  MICRO  CMNDG 


R8*  ( 1 ) =HEX  ( 40004E004008 1 £ 1 1 4£504008 1 1 31,1 454 1 G08 1146) 


£410 

INITOF) 

R9*(  ) 

REM 

INIT  CHAR  BUFR 

£4£0 

*GIO  PRINT 

/005  <AOOO,R8*(9> >R9*< XI 

,R1> 

REM 

PRNT  CUSOR  BKGRND 

£430 

INIT (08) 

R9*(  ) 

REM 

INIT  CHAR  BUFR 

£440 

*GIO  PRINT 

/005  (AOOO.R8*(9)  )R9*(  K1 

, Rl> 

REM 

PRNT  CUSOR  BKGRND 

£450 

*GIO 

/005  ( 113G,R8*(9) ) 

REM 

INIT  REGISTER 

£4E0 

R9  = 1 

REM 

PRNT  POS  INDX 

£470 

R3  = 1 

REM 

BUFR  POS  INDX 

£480 

INIT 

(£0)  R£* 

REM 

CLR  DUFR 

£4-30 

REM  ** 

£500 

KEY  IN 

R0*(1>,  £500,  £500 

REM 

CLR  INPUT  BUFR 

£510 

STR(R8*(9>,5,  1)  = STR(R£* 

,R9,  : 

l ) 

REM 

STCJR  OUT  CHAR 

£S£0 

IF 

Rl*  <>  "E" 

THEN 

£540 

REM 

ECHO  CHARACTR 

£530 

STR (R8*<9) ,5,1)  = HEX ( £0 ) 

REM 

SET  NO  ECHO 

£540 

KEY  IN 

ROS ( 1 ) , £040,  £580 

REM 

INPU1  CHAR 

£550 

«GIU 

INPUT  WAIT /005(R8*< 1 ) , R8*(9) ) 

REM 

PRNT  CUSOR 

£5C.O 

GOTO 

£540 

REM 

CONT  INPT  WAIT 

£570 

REM  *+ 

£580 

PRINT 

HEX (0808); 

$ 

REM 

FNT  KEY  ENTRY 

£590 

INPUT 

R£* 

REM 

REENTER  SPL  KEY 

£000 

R3  ■ 5 

REM 

SET  LENGTH 

£O10 

STR(R£*,R3)  = HEX (£0) 

REM 

CLR  EJUFR  END 

£0£0 

GOTO 

3190 

REM 

CONV  IN  DATA 

£030 

hem  ** 

£C40 

IF 

R0*< 1 ) < HEX (08) 

THEN 

£690 

REM 

INVALID  INPT 

£050 

♦TRAN 

( RO* ( XI,  1 > , R4*(  XI,  10>  > 

R 

REM 

CONV  CTL  CHARS 

£000 

IF 

R0*(1)  > HEX (7F) 

THEN 

£090 

REM 

INVALID  INPT 

£070 

IF 

R0*( 1 ) > HEX ( IF) 

THEN 

£740 

REM 

VALID  CHAR 

£080 

IF 

R0*( 1 ) < HEX (04) 

THEN 

£740 

REM 

VALID  CTL  CHAR 

£030 

*CIO 

T0NE/005(R8*(7),R8*(9) ) 

REM 

SOUND  BELL 

£700 

GOTO 

£540 

REM 

RE-ENTER  CHAR 

£710 

£7£0 

£730 

£740 

£750 


REM 

REM 

REM 

ON 

REM 


RUB OUT  ! UNDERSCORE  ! ESCAPE 


VAL(R0*(1>>  GOTO 


£9£0 


3030 


3090 


REM  BRANCH 


o 
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0760 

REM  ** 

0770 

REM  **•»*■»**■**■***#*******•»****•»**#*##*****•»***■»**•* 

0780 

REM  ** 

0730 

IF 

R3  = R1  «•  1 

THEN  0690 

0800 

SIR (RO*, R3,  1 ) = R0*( 1 ) 

0810 

R3  = R3  ♦ 1 

0800 

IF 

R3  = 0 

THEN  0850 

0830 

R9  ■ R9  ♦ 1 

OSAO 

PRINT 

HEXL09); 

08S0 

IF 

Rl*  <>  “E* 

THEN  0870 

0860 

R0*(1>  = HEX (00) 

0870 

PRINT 

RO* ( 1 ) ; HEX ( 08 ) ; 

0880 

GOTO 

0510 

0830 

REM  ** 

0-300 

REM  ***^****^**HH>*«IHHH*-*^********«IHHf*****-IHH**** 

0310 

REM  ** 

0-300 

IF 

R3  = 1 

THEN  0510 

0930 

PRINT 

HEX ( 3F08 ) ; 

09A0 

R3  = R3  - 1 

0950 

STR(R0*,R3, 1 ) = HEX (00) 

0-360 

IF 

R9  = 1 

THEN  0990 

0970 

R9  = R9  - 1 

0980 

PRINT 

HEX ( 08 ) ; 

09-30 

GOTO 

0510 

3000 

REM  ** 

3010 

3000 

REM  ** 

3030 

AND 

<STR(RO*,R9, 1 ), 7F) 

30A0 

ADD 

(STR(R0*,R9, 1>,80) 

3050 

GOTO 

0510 

3060 

REM  ** 

3070 

REM  **HHHHHHHHHI’^^^**^***-IHH*^^^******^**HHI- 

3080 

REM  *» 

30-30 

IF 

R3  <>  1 

THEN  3160 

3100 

RO*  * R6* 

3110 

IF 

Rl*  <>  “E“ 

THEN  3130 

3100 

R6*  * " " 

3130 

PRINT 

HEX (08); 

31  AO 

GOTO 

3180 

3150 

3160 

REM  ** 

STR(R0*,R3)  = HEX (00) 

3170 

R6*  - RO* 

3180 

PRINT 

HEX ( 09 ) ; STR ( R6*, R 3, ABS ( R 1 

-R3)+l>; 

3190 

IF 

Rl*  <>  “N* 

THEN  3080 

3000 

IF 

NUM(RO*>  = 6A 

THEN  3070 

3010 

RO  » Rl 

3000 

IF 

R3  <>  Rl+1 

THEN  30A0 

3030 

RO  = Rl +0 

30A0 

INIT (08) 

R9*():  *GI0/005(A000,R8*<9) )R9*( )<1,R0> 

3050 

*GIU 

TQNE/005 ( R8* ( 7 ) , R8* ( 9 > ) 

3000 

G0 10 

0A10 

3070 

CONVERT 

RO*  TO  RO 

3080 

RETURN 

Enter  Character 

REM  BUFR  H ULL 
REM  MOVE  70  BUFR 
REM  I NCR  BUFR  1NDX 
REM  NOT  FRST  CHAR 
REM  I NCR  DSPLY  1NDX 
REM  FOB 11  ION  CUSOR 
REM  ECHO  CHARACTR 
REM  SET  NO  ECHO 
REM  PRNT  CHAR 
REM  FECTH  NXT  CHAR 

Rubout  Character 

REM  BUFR  EMPTY 
REM  POSITION  CUSOR 
REM  DCRMN7  BUF  INDX 
REM  CLR  FRM  BUFR 
REM  CUSOR  POSITIONED 
REM  DCRMNT  DSP  INDX 
REM  POSITION  CUSOR 
REM  FETCH  NX1  CHAR 

Underscore  char. 

REM  MASK  CHAR 
REM  UNDERSCORE 
REM. FETCH  NXT  CHAR 

String  Entered 

REM  BUFR  NOT  EMPTY 
REM  INSRT  DFLT  VAL 
REM  ECHO  DFLT  VAL. 

REM  CLR  DFLT  VAL 
REM  POSITION  CUSOR 
REM  BRNCH  TO  PRNT 

REM  CLR  REST  OF  BUF 
REM  MOVE  TO  PRNT  BUF 
REM  PRNT  STRNG 
REM  RET  ALPHA  VAL 
REM  VALID  NUM  FMT 
REM  SET  CUSOR  INDX 
REM  INDX  IS  OK 
REM  RESET  INDX 
REM  PRNT  CUSOR  BKGRND 
REM  ERR  TONE 
REM  REENTER  STRNG 
REM  SET  NUMERIC  VAL 
REM  EXIT 
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AUTHOR  Sxs-tcms  AUTI  — I MAGL 

3290  REM  ** 

3300  F!EM  ** 

3-jlO  HEM 

3320  REM  **  OUTPUT  IMAGE  STATEMENTS  ** 

3 330  REM  *>'11  **-»******3H«'******-M**'&-****HMf****^-*'**********^*  ***H**-*********3M^-tf"fc- 


3340 

% 

AUTHOR  An  Automatic 

Authoring  System 

■ft 

3350 

y 

A» 

* * Structure 

Loading 

* * 

It 

3360 

V 

/• 

DISK  MFNU  1 

- Flopy 

Dish  Drive 

ttl 

<310. 

3370 

X 

a 

- Flopy 

UisK  Drive 

#2 

<B10> 

3380 

X 

3 

- Flopy 

Disk  Drive 

#3 

<3bO> 

3390 

X 

4 

- Fixed 

Dish  Plater 

ft 

<320> 

3400 

X 

5 

- Removable  Disli  Plater 

tt 

<BSO> 

3410  % Enter  Code  of  the  Disk  Containing  AUTHOR  Pogroms  > # 

3420  X LOADING  MFNU  ft  1 - Construct  Basic  Modulo  formats  (AUTIIUR/1) 
3430  X # 2 - Create/Maintain  Data  Base  ( AUTHOR /S) 
3440  X It  3 - Create/Maintain  Learning  Module  < AUTHOR / 3 ) 
3450  X Enter  Code  of  the  Function  You  wish  to  Perform  > it 


I 


.<o»LJT» 

:qr 

'Z-  -fc  t>rn  : 

AUTI  !CJI-< 

— +t  MAH 

<0010) 

- 

0001 

(0100) 

- 

21  40 

1070 

- 

1300 

1310 

- 

1270 

1320 

- 

1270 

1330 

- 

1270 

1 340 

- 

1270 

1350 

- 

1270 

1 3€0 

- 

1310 

1380 

1330  1340  1350  1490 

1 bOO 

14  CO 

1510 

1 450 

lb20 

- 

1450 

1810 

- 

1790 

1850 

- 

1820 

1850 

- 

1840 

18-30 

- 

1780 

1970 

- 

2150 

21  bO 

- 

SI  30 

2170 

- 

2150 

2190 

- 

2170 

2210 

- 

2190 

2410 

- 

3250 

2500 

- 

2500 

2510 

- 

2880 

2920 

2-3-30  3050 

8540 

2520 

2550 

2700 

2580 

- 

2540 

25.40 

- 

2540 

25.90 

- 

25.40 

2550 

2 790 

2740 

- 

25.70 

2580 

2850 

- 

2820 

2870 

- 

2850 

2920 

- 

2740 

2990 

- 

2950 

3030 

2740 

3090 

- 

8740 

3110 

- 

2200 

3130 

- 

3110 

3150 

- 

3090 

3180 

- 

3140 

31-30 

- 

25.2*3 

3240 

- 

3220 

3270 

- 

3300 

2880 

- 

31-30 

3340 

- 

2050 

3350 

- 

2085 

3350 

- 

1150 

3370 

- 

1170 

3380 

- 

1130 

33-30 

- 

11-30 

3400 

- 

1800 

3410 

- 

1220 

3420 

- 

13  70 

3430 

1 380 

34  40 

- 

13-30 

3450 

- 

1410 

(4000) 

- 

2180 

< 99-3-3 ) 

- 

0001 

AU  ! I :L.'K  Sy  E.-t  cm 


AU1  r IOR 


V Ml/S!-' 


L.1* 

- 

1080 

L.54 

- 

10S0 

L34 

- 

1080 

Q1 

- 

1700 

1!<30 

1890 

Ql? 

- 

1710 

1780 

1750 

1830 

I860 

18-30 

03 

- 

1700 

1800 

I860 

1900 

03*  ( 

- 

1710 

1730 

1760 

1860 

1900 

03 

- 

1700 

1780 

1810 

03*  ( 

- 

1710 

1740 

1870 

Q4 

- 

1700 

1790 

1800 

1870 

04*  ( 

- 

1710 

1830 

I860 

1860 

1870 

18-30 

Q5 

- 

1810 

1880 

1880 

06* 

- 

1080 

8030 

5100 

07* 

- 

1080 

5030 

5180 

8140 

5160 

5180 

08* 

- 

1080 

5030 

5130 

8150 

5170 

51-30 

R0*< 

- 

1090 

5800 

5840 

8640 

86.60 

5660 

R 1 

- 

5300 

5480 

5440 

8790 

3180 

3810 

Rl* 

- 

1090 

5.300 

5650 

8860 

3110 

3190 

R5 

- 

1570 

146.0 

3510 

3830 

3540 

3870 

H5* 

- 

1090 

8480 

5610 

5690 

56.10 

5800 

H3 

- 

54  70 

86.00 

5610 

8790 

8800 

8810 

R4*< 

- 

5370 

5380 

56.60 

KGS 

- 

1090 

536-0 

3100 

3150 

3170 

3180 

H3*l 

- 

5370 

5390 

5400 

5450 

8440 

5450 

H9 

- 

546X1 

5b  10 

5830 

5960 

5970 

3030 

R9*  < 

- 

5370 

5410 

5450 

8430 

8440 

3540 

1900 

5800 

8670 

3550 

5680 

3830 

5740 

8800 

5860 

8870 

5950 

5850 

3030 

5350 

3040 

8940 

3100 

8950 

3160 

3090 

3170 

3160 

3500 

3180 

3570 

3580 

8610 

3040 

5630 

5560 

8690 

3540 

3860 

.^UTt  IQR  S y s -t  Dm 


1070  DbFFN'  O 
1700  DEFFN ' 101 

- 3030  2110  2210 
2030  DfcFFN'  102 

- 1500  1510  1520 
2360  DEFFN ' 104 

- 1230  1420 


TAEG  Report  No.  59 


FORMAT  DISPLAY  PROGRAM 

The  purpose  of  this  program  is  to  aid  the  programmer  who  wishes  to 
modify  the  formats  of  the  AUTHOR  System.  This  program  will  allow  the 
programmer  to  display  the  format  on  one  of  three  output  devices.  Then 
after  modifying  the  data  subprogram,  the  programmer  may  re-display  the 
format.  The  name  of  this  program  is  'AUTHOR/l'.  For  operating  instruc- 
tions see  section  6.0  in  Volume  I. 

PROGRAM  FLOWCHART 

Figure  3.1  presents  a program  flowchart  which  shows  the  major  steps  of 
the  display  program.  When  appropriate  the  subroutine  name  or  overlay 
name  will  be  shown  in  the  lower  portion  of  the  flowchart  element. 

This  indicates  that  the  named  routine  will  perform  the  function  des- 
cribed. 

AUTHOR/1 

The  'AUTHOR/T  program  is  presented  in  five  parts  due  to  the  amount 
of  documentation  contained  within  the  program. 

3.2.1  ATH1/I 

This  section  of  the  'AUTHOR/l'  program  contains  the  main 
control  logic  along  with  subroutines. 

The  remainder  of  this  section  contains  the  ’ ATH1/I * program 
listing  and  reference  maps. 


/"M.J-!-!  IHR  System 


P- ' ha  s p 


X 


rtTH X S I 


ST/%«  S 


100 

Xlttt 

Program  > AUTUUR/1  (ATH1/I  ) Version  > 2.0  2200  T/VP 

780316 

10T 

RLM 

102 

REM 

•** 

112 

REM 

Abstract 

116 

REM 

120 

REM 

*-* 

Phase  I of  the  AUTHOR  programming  system  is  used 

*"# 

124 

REM 

create  and  maintain  the  basic  module  format  Data  base 

128 

REM 

** 

122 

REM 

126. 

RLM 

** 

140 

REM 

144 

COM 

R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,01  : REM  DEFINE 

VAf^  1 ARLES 

148 

COM 

R0*2 , R 1 *2 , R2*64 , R 3*8 , R 4*64 , L 1 *4 , L2*  4 

182 

COM 

R5*l , R6*64, R7*10, R8*2, R9*64 

186 

COM 

R0*<  1>1  ,H2*<2)2,f!4*  < 20)  16,  RE*  <10)1 

160 

CUM 

R6*< 16) 1,R 7* < 64 ) 1 , R8* ( 9 ) 24 , R9* ( 1 ) 64 

164 

CUM 

Q1*<1 )2,G2*< 16,64 ) 1,84* < 1 )64 

168 

CUM 

L1*2S,L2*8,L3*4,K6*< 1 >64 

172 

CUM 

W2*9,W3*9,W4*13,W5*12,W6*16 

176  REM  *> 
180  REM  ** 


184 

188 

SELECT 

GOSUB 

/ 

200 

PRINT  405 

: HEM 
: PEM 

SEL  OUTPUT  DEV1 
INIT  TABLES 

192 

DEFFN 

/ 

OOl 

: REM 

FUNCTION  INTRUPT 

196. 

COSUB 

/ 

201 

: REM 

SLL  I/O  DEVICES 

200 

UEFFN 

t 

002 

: RLM 

FUNCTION  INTRUPT 

204 

GOSUB 

/ 

202 

: REM 

SEL  FORMAT  FILE 

208 

DEFFN 

/ 

003 

: REM 

FUNCTION  INTRUPT 

212 

GOSUB 

S 

208 

<01 ) 

: REM 

DISPLAY  FORMAT 

216 

220 

224 

228 

GOTO 
REM  ** 
REM  ** 
DEFFN 

/ 

204 

004 

HEX  < 4C49S354 205320 ) 

: RLM 

: RLM 

LOAD  NEXT  FILL 

LIST  S 

222 

DEFFN 

/ 

008 

HEX  < 5243524 1 54434884233 1 2C22 ) 

: RLM 

SCRATCH  Till 

226 

DEFFN 

/ 

006. 

HEX  < 62418648444354242822 ) 

: RLM 

SAVEDCT  < 

240 

DEFFN 

/ 

007 

HEX  < 222-3233 1 2C22 ) 

: RLM 

)#1, 

244 

DEFFN 

/ 

016 

HEX (20312E 3000) 

: RLM 

01.0 

248 

DEFFN 

/ 

017 

HEX  < 30322E300D ) 

: REM 

02.0 

282 

DEFFN 

/ 

018 

HEX  < 30332E300D ) 

: RLM 

03.0 

286. 

tfciFFN 

t 

019 

HEX <30342E 3000) 

: REM 

04.0 

260 

DEFFN 

/ 

020 

HEX  < 303S2E3000 ) 

: REM 

08.0 

264 

DEFFN 

/ 

021 

HEX ( 30362E300D ) 

: REM 

06..  0 

268 

DEFFN 

/ 

022 

HEX  < 30372E300D ) 

: REM 

07.0 

era 

DEFFN 

/ 

023 

HEX ( 30382E300D ) 

: REM 

08.0 

276 

DEFFN 

/ 

024 

HEX  < 30392E30OD ) 

: REM 

09.0 

280 

DEFFN 

/ 

028 

HEX  < 31 3O2E30OU) 

: REM 

10.0 

284 

DEFFN 

/ 

026 

HEX  < 31312E3000) 

: REM 

11.0 

288 

DEFFN 

/ 

027 

HEX  < A54  34F3231 383AA0D2304  3293AA6434F 3020J60D ) : REM  TOR  RAG 

292 

DEFFN 

/ 

028 

HEX <41 644831) 

: REM 

ATH1 

296 

DEFFN 

/ 

029 

HEX  < 4 1 6564484F 522F 3 1 ) 

: REM 

AUTHOR /I 

300 

DEFFN 

/ 

030 

HEX < 3 1 202C 3930303000 ) 

: REM 

10,9000 

204 

UEFFN 

/ 

031 

HEX  < 392O303O2C  3939393900 ) 

: REM 

9000. 9999 

208 

DErFN 

R<R)  - 266*R  + VAL<STR<R2<<1 ), 2,1)) 

: REM 

BIN  TO  DEC  CUNV 

AU  THOR  S y ss  "t  E'm  : PhaE  E 


/%  rn  x x x 


o 


'I  HO 
484 
488 

/.'33 

4S6 

500 

504 

508 

512 

515 

sac 

524 


*■» 

*■* 


and  Screen  erase 


HEM 
REM 
HEM 
HLM 
HEM 
HEM 
HEM 
HEM 
HEM 
HEM 
REM 

RLM  J#--* -fr h- 


Subroutine  ' 

Function  > 

Cusor  Address 
Varaibles  > 

K1  > row  position 
K2  > col  position 
R6*l)  > cusor  vert 
K5,K5*<)  > line  ers 


1 0 1 


K3 

K4 

H7*I  ) 
Rfc*  < ) 


> lines  to 

> char(s) 

> cusor  ho 
> micro  cmn 


erase 
erase 
r z 

d buf r 


528 

DEFFN  ' 101 

<K1,K2,K3, 

l<4  ) 

HEM 

ENTRY 

532 

11 

K3  "=  0 

THEN  576 

REM 

ERASE  NO  LINE 

536 

IP 

K4  <>  0 

THEN  544 

HEM 

CHAR  10  ERS  STCFD 

540 

K4  » 65  - 

K2 

HEM 

ERS  RES  I UF  LINE 

544 

POR 

K5  - 1 TO 

K3 

REM 

BEGIN  LOUP  K5 

548 

IF 

K5  <>  1 

THEN  560 

HEM 

NOT  HIRST  LINE 

552 

*610 

ROW 

/0O5 ( AOOO 

,l<8*<9>  )H6*<  )<1,K1> 

HEM 

POSITION  CUSOR 

556 

GOTO  564 

REM 

BRANCH  TO  POL  COL 

560 

*CI0 

HOW 

/ 005 ( AOOO 

, K8* ( 9 ) )Ht*< > <2 , 1 > 

HEM 

POSITION  CUSUR  Ll- 

564 

*610 

COL 

/OOS ( AOOO 

,R8*C3))H7tO<l,K2> 

REM 

posn  i un  cusun 

568 

*610 

ERASL 

/0051A000 

,R8*(9)  )K5*(  ) <1  ,l<4> 

REM 

ERASE  1 EXT 

572 

NEXT 

Kb 

HEM 

CONTINUE  LOUP  l<5 

576 

*6 10 

ROW 

/OOS  < AOOO 

,R8*<9> >R6*< > < 1 , K 1 > 

RLM 

REPOSITION  CUSUR 

580 

*610 

COL 

/00S<  AOOQ 

,RH*(9))H7*0  <1 , K2> 

REM 

REPOSITION  CUSUR 

584 

RETURN 

REM 

EXIT 

.'MJ  I HOR  S/stBm:  Hhasc  1 — ATH 1/1  - l O c? 


ssa 

HEM 

593 

i rw* 

REM  *■* 

Dlm 

Ciik  1 V a M H m#  M M H m 1 

< fc.  w . M u ■,  W ta  w.  4 ^ 

b i/t* 

€0 0 

F.fcn 

HEM 

slit)  TOUT  lHC  / 

Function  > 

riMriMrW  W w W-VH--&- ITT 

€04 

HEM 

To  load  an  over  lay  Routine. 

boa 

REM 

Variables  > 

€ia 

liEM 

L.1*  > description 

! L 3%  > beaming  line 

€1€ 

REM 

L.a*  > overlay  name 

i 

cao 

HEM 

€34 

RLM  *************  » * •»•»»»»»»♦»»■«  » » ■»♦»♦•»»»■»»»  »•»  ##■**■* 

t.aa 

DEFFN  ' 

10a  (Ll*,L3*,L.:j*) 

a 

RLM 

ENTRY 

€3a 

PRINT 

HEXI03) 

a 

a 

HEM 

CLEAR  CRT 

€3€ 

PRINT 

"AUTHOR  S Y 

STEM" 

2 

HEM 

PRINT  TITLE 

€.40 

PR I NT 

HEX(OOOA);"  P 

H A S E III" 

5 

RLM 

PRINT  SUB lllLE 

€44 

GOSUB  ' 

101  (5,10,0,0) 

2 

RLM 

POSITION  CUSOR 

€48 

PHI  NT 

“System  Nov.1  Loading  >>> 

“;L.1*;“  Routine" 

2 

RLM 

PRINT  DESCKlPllUN 

€53 

COSUB  ' 

101  (7,10,0,0) 

: 

REM 

HOS11 1UN  CUSOR 

€5€ 

PRINT 

“Program  being  Loaded  >>>  ";L3* 

2 

REM 

PRINT  PROG  NAME 

€€0 

IF 

L3*  <>  “0100“ 

THEN  €G8 

; 

RFM 

LOAD  AT  LINE  0100 

€€4 

LOAD 

DC  T #1,  L.a*  lOO 

€€S 

IE 

L3*  <>  "1500" 

THEN  €/€ 

2 

RLM 

LOAD  AT  LINE  1500 

€73 

LOAD 

DC  T #1,  La*  1558 

€7€ 

IF 

L.3*  <>  "4000" 

THEN  €34 

2 

RLM 

LOAD  AT  L1NF  4000 

€80 

LOAD 

DC  T #1,  La*  4000 

€84 

IF 

L3*  <>  "€0OO" 

THEN  €98 

a 

RLM 

LOAD  AT  L1NF  COOO 

€SS 

LOAD 

DC  T #1,  LD*  €000 

€oa 

IF 

L3*  <>  “7000" 

THEN  700 

a 

a 

RLM 

LOAD  AT  LIFE  (UOO 

€9€ 

LOAD 

DC  T #1,  L.3*  7000 

700 

IF 

L3*  <>  "9000“ 

THEN  708 

2 

HEM 

LOAD  AT  liNE  9000 

704 

LOAD 

DC  T ttl.  La*  9000 

708 

COSUB  ' 

OOO 

2 

REM 

ERR  PROCESSING 

via 

RETURN 

: 

REM 

EXIT 

o 


55 


AUTHOR  Sy  b t »m  = F'hase  1 — ATH  1 / I 


— 1 


REM  ** 

REM  ** 

REM  **  Su 
REM  **  Ab 
REM  ** 

REM  **  va 
REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ****** 
DEEFN  ' 10 
INIT < 3F) 

*G  IO  PRINT 
INI T ( 08) 
♦CIO  PRINT 
*GIO 


INIT 
REM  ** 
KEYIN 


KEY  IN 
♦GIO 
GOTO 
REM  ** 
PRINT 
INPUT 


Abstract  > 

Accept  ALPHA  and  NUMERIC  Input. 
Vaiaibles  > 

R0®<)  > entry  buffer  ! R1 


entry  buffer  ! 
'A'  or  'N'  or  'E' ! 
return  <alph>  ! 
initial  value  • 


> mat  length 

> return  <num> 

> char  pointer 

> scratch  count 


<R1,R1*,R6*> 

R9*<  ) 

/005  <AOOO,R8®<9>  >R9*<  ><1,R1> 
R9*<  ) 

/005  <AOOO,R8*(9> >R9®< ><1,R1> 
/005  <U36,R8*<9>) 

R9  =*  1 

R3  * 1 

(20)  R2* 


GOTO  1080 

REM  ** 

IF  RO® ( 1 ) 

♦TRAN  <R0*<)< 

IF  RO®( 1 ) 

IF  R0®( 1 ) 

IF  R0®( 1 ) 

♦CIO  TOhC/OO 

GOTO  820 

REM  ** 

REM  ** 

REM  ** 

ON  VAL<RO®< 1 ) ) GOTO 
REM  ** 


RO*<  1 ) , 804,  804 
STR ( R8® ( 9 ) , b, 1)  = STR (R2®, R9, 1 ) 

Rl*  <>  *E*  THEN  820 

STR  < R8®  < 9 ) , S,  1 ) = HEX(20> 

RO®  < 1 ) , 860,  896 
INPUT  WAIT /OOB(R8*<  1 ) , R8®<  9)  ) 

820 

HEX (0808); 

R2® 

R3  = 5 

STR(R2®,R3)  = HEX (20) 

1080 


RO® ( 1 ) < FCX(OB)  THEN  880 

( RO®  ( ) < 1 , 1 > , R4*(  X161, 10>)  R 
R0*( 1 ) > HEX  < 7F ) THEN  880 

R0*< 1 ) > HEX (IF)  THEN  900 

R0»( 1 ) < HEX < 04)  THEN  900 

T0hC/005  < H8* ( 7 ) , R8* ( 9 ) ) 

820 


REM  ENTRY 
REM  INIT  CHAR  BUFR 
REM  PRNT  CUSOR  BKGRNO 
REM  INIT  CHAR  BUFR 
REM  PRNT  CUSOR  BKGRNO 
REM  INIT  REGISTER 
REM  PRNT  POS  INOX 
REM  BUFR  POS  INOX 
REM  CLP  BUFR 

REM  CLR  INPUT  BUFR 
REM  STOR  OUT  CHAR 
REM  ECHO  CHARACTR 
REM  SET  NO  ECHO 
REM  INPUT  CHAR 
REM  PRNT  CUSOR 
REM  CUNT  1NPT  WAIT 

REM  FNT  KEY  ENTRY 
REM  REENTER  SPL  KEY 
REM  SET  LENGTH 
REM  CLR  BUFR  END 
REM  CONV  IN  DATA 

REM  INVALID  INPT 
REM  CONV  CTL  CHARS 
REM  INVALID  INP1 
REM  VALID  CHAR 
REM  VALID  CTL  CHAR 
REM  SOUND  BELL 
REM  RE-ENTER  CHAR 


RUBOUT  ! UNDERSCORE  ! ESCAPE 


REM  BRANCH 


920 

IF 

R3  * R1  ♦ 1 

THEN  880 

• 

REM  BUFR  FULL 

924 

STR(R2*,R3, 1)  - R0*< 1 > 

■ 

a 

REM  MOVE  TO  BUFR 

928 

R3  * R3  + 1 

a 

• 

REM  I NCR  BUFR  INDX 

932 

IF 

R3  = 2 

THEN  944 

a 

a 

REM  NOT  FRST  CHAR 

936 

R9  - R9  + 1 

REM  I NCR  DSPLY  INDX 

940 

PRINT 

HEX(09>; 

a 

a 

REM  POSITION  CUSOR 

944 

IF 

Rl*  <>  “E“ 

THEN  952 

a 

a 

REM  ECHO  CHAR AC TR 

948 

R0*(1)  = HEX (20) 

a 

a 

REM  SET  NO  ECHO 

952 

PRINT 

ro*<d;hex(08); 

a 

REM  PRNT  CHAR 

956 

GOTO 

808 

REM  FECTH  NXT  CHAR 

960 

REM  *+ 

964 

REM  -tHHUHH 

tweweeiiwiiim  *»«■»»«  »«»»  »«»«««» 

1* 

Rubout  Character 

968 

REM  ** 

972 

IF 

R3  = 1 

THEN  808 

REM  BUFR  EMPTY 

976 

PRINT 

HEX ( 3F08 ) ; 

REM  POSITION  CUSOR 

980 

R3  = R3  - 1 

REM  DCRMMT  BUF  INDX 

984 

STR(R2*,R3, 1)  ■ HEX < 20) 

REM  CLR  FRM  BUFR 

988 

IF 

R9  * 1 

THEN  1000 

: REM  CUSOR  POSITIONED 

992 

R9  = R9  - 1 

a 

a 

REM  DCRMNT  DSP  INDX 

996 

PRINT 

HEX (08); 

a 

a 

REM  POSITION  CUSOR 

lOOO 

GOTO 

808 

: REM  FETCH  NXT  CHAR 

1004  REM  ** 

1008  REM  »»■«»«*»  mhh»i«  turn  w > > m » * m » » m mni  m mi  m mi  w mi  mi  Underscore  char. 
1012  REM  ** 

1016  AND  (STR(R2*,R9,1),7F>  : REM  MASK  CHAR 

1020  ADO  (STR(R2*,R9, 1>,80>  : REM  UNDERSCORE 

1024  GOTO  808  : REM  FETCH  NXT  CHAR 

1028  REM  **  H»mmmiiniimMinnni*»mMi*wmm  St  El  d 

1036  REM  ** 


1040 

IF 

R3  <>  1 

THEN  1068 

REM 

BUFR  NOT  EMPTY 

1044 

R2*  - R6* 

REM 

INSRT  DFLT  V AL- 

1048 

IF 

Rl*  <>  "E“ 

THEN  1056 

REM 

EC  HO  DFLT  VAL 

1052 

R6*  * * " 

REM 

CLR  DFLT  VAL 

1056 

PRINT 

HEX (08); 

REM 

POSITION  CUSOR 

1060 

GOTO 

1076 

REM 

BRNCH  TO  PRNT 

1064 

REM  ** 

1068 

STR(R2*,R3)  - HEX (20) 

REM 

CLR  REST  OF  BUF 

1072 

R6*  = R2* 

REM 

MOVE  TO  PRNT  BUF 

1076 

PRINT 

HEX(09);STR(R6*,R3,ABS(R1 

-R3)+l); 

REM 

PRNT  STRNG 

1080 

IF 

Rl*  <>  “N" 

THEN  1116 

REM 

RET  ALPHA  VAL 

1084 

IF 

NUM(R2*>  * 64 

THEN  1112 

REM 

VALID  NUM  FMT 

1088 

R2  « Rl 

REM 

SET  CUSOR  INDX 

1092 

IF 

R3  <>  Rl+1 

THEN  110O 

REM 

INDX  IS  OK 

1096 

R2  * Rl+2 

REM 

RESET  INDX 

1100 

INIT (08) 

R9*(>:  *GI0/005(A000,R8*(9) )R9*( )<1,R2> 

REM 

PRNT  CUSOR  BKGRND 

1104 

♦CIO 

TONE/OOS ( R8* ( 7 ) , R8* ( 9 ) ) 

REM 

ERR  TONE 

1108 

GOTO 

768 

REM 

REENTER  STRNG 

1112 

CONVERT 

R2*  TO  R2 

REM 

SET  NUMERIC  VAL 

1116 

RETURN 

REM 

EXIT 
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AUTHOR  S/ 


i=  F>h»< 


ATH1 / I 


— 1 


1120  REM  ** 
1124  REM  ** 
1128  REM  ** 
1132  REM  ** 
1136  REM  *+ 
1140  REM  ** 
1144  REM  ** 
1148  REM  ** 
1152  REM  ** 
1156  REM  ** 
1160  REM  ** 
1164  REM  ** 
1168  REM  ** 
1172  REM  ** 
1176  REM  ** 
1180  REM  ** 
1184  REM  +*+ 
1188  DEFFN 
1192  GOSUB 
1196  GOSUB 
1200  REM  ** 
1204  REM  ** 


Function  > 

To  Output  page  buffer  onto 
output  device. 

Output  index  code  1 - 

2  - 

3 - 

4 - 

Variables  > 

W6  > output  device  index 
W7  > undrscr  lokup  indx 
W8  > bufer  out  lin  indx 


108  <W6> 
123 


1 O 8 


the  selected 

CRT 

TTY 

LPT 

END  OF  LPT  FILE 

! R0*< ) > input  register 

! W2*  > return  scan  flag 

! W3*  > return  scan  flag 

! W4*  > return  scan  flag 


REM  ENTRY 

REM  ADJUST  TEXT  BUFR 
REM  SEL  CHAR  SCAN 


1208 

REM  ** 

1212 

ON  W6 

GOTO 

1232  , 1276  , 

1352  , 

1392  : REM 

BRANCH 

1216 

REM  ** 

1220 

REM  ** 

1224 

REM  ** 

OUTPUT  TO  CRT  DEVICE 

1228 

REM  ** 

1232 

SELECT 

#5 

005 

REM 

SEL  OUTPUT  DEV 

1236 

GOSUB 

' 109 

REM 

CREATE  CRT  OVRLAY 

1240 

GOSUB 

' llO 

REM 

SEL  T OR  VP  DISPLY 

1244 

IF 

W2*  * “VP  SYSTEM" 

THEN 

1252 

REM 

VP  SELECTED 

1248 

GOSUB 

' 111 

: REM 

DISPLAY  OVRLAY 

1252 

GOSUB 

' 112 

REM 

DISPLAY  BUFR 

1256 

KEY1N 

RO*<l),  1260,  1260 

: GOTO 

1244  : REM 

INPUT  WAIT 

1260 

GOTO 

1408 

: REM 

BRANCH  TO  EXIT 

1264 

REM  ** 

1268 

REM  ** 

OUTPUT  TO  TTY  DEVICE 

1272 

REM  *■* 

1276 

SELECT 

#5 

Oil 

REM 

SEL  OUTPUT  DEV 

1280 

GOSUB 

' 109 

REM 

CREATE  TTY  OVRLAY 

1284 

GOSUB 

' 113 

REM 

DISPLY  INSTRUCTNS 

1288 

GOSUB 

' 114 

<1> 

REM 

PRINT  UPR  HASH 

1292 

W7  * 1 

REM 

INIT  TABLE  INDX 

1296 

X3  = 1 

REM 

IN1T  TABLE  INDX 

1300 

Y3  * 1 

REM 

INIT  TABLE  INDX 

1304 

FOR 

W8  * 1 TO  32 

REM 

BEGIN  BUFR  LOOP 

1308 

GOSUB 

' 115 

REM 

SCAN  UNDRSCR  TBL 

1312 

IF 

W3*  - “NULL  SCAN" 

THEN 

1324 

REM 

NO  UNDERSCORING 

1316 

GOSUB 

' 116 

REM 

PRINT  UNDERSCORING 

1320 

GOTO 

1328 

REM 

BRNCH  TO  LIN  INCR 

1324 

GOSUB 

' 117 

REM 

PRINT  TEXT  LINE 

1328 

NEXT 

W8 

REM 

INCR  LINE  INDX 

1332 

GOSUB 

' 114 

(2) 

REM 

PRINT  LWR  HASH 

1336 

GOTO 

1408 

REM 

BRANCH  TO  EXIT 

58 


OUTPUT  TO  LPT  DEVICE 


1340 

REM  ** 

1344 

REM  ** 

1348 

REM  ** 

1352 

SELECT  #5 

015 

1356 

SELECT 

TAPE  ( 

1360 

GOSUB  ' 118 

1364 

GOSUB  ' 119 

<1> 

1368 

FOR 

W8  * 

1372 

GOSUB  ' 117 

1376 

NEXT 

W8 

1380 

GOSUB  ' 119 

(2) 

1384 

IF 

144*  - 

1388 

IF 

W4«  = 

1392 

GOSUB  ' 120 

1396 

GOTO 

1408 

1400 

REM  ** 

1404 

REM  ** 

1408 

RETURN 

« i TO  35 


“NO  UNDERSCORE* 
“OVERLAY* 


; REM  SEL  OUTPUT  DEV 
: REM  SEL  TAPE  DEV 
; REM  SEL  UNDR SCR  MODE 
: REM  PRINT  UPR  HASH 
; REM  BEGIN  BUFR  LOOP 
: REM  PRINT  TEXT  LINE 
: REM  I NCR  LINE  INDX 
: REM  PRINT  LOWR  HASH 
THEN  1396  : REM  NO  UNDERSCORING 
THEN  1396  : REM  IF  OVRLAY  OUTPUT 
: REM  PRINT  OVERLAY 
: REM  BRANCH  TO  EXIT 


; REM  EXIT 


( 
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AUTHOR  S y i 


iS  Phai 


ATM 1 X X 


— 1 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 

REM  **« 

DEFFN 

DIM 

DIM 


Subroutine  <hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhmhhhh»»  i c 
Abstract  > 

To  scan  text  buffer  and  create  lookup  table  and 
overlay  buffer  for  selected  output  devices. 

Variables  > 

W2*( ) > output  text  buffer  ! 02* ( ) > crt  overlay  buffer 

W3*< ) > underscore  lookup  tbl  ! W4*(>  > conversion  buffer 


10  9 


X4  > end  of  loop  indx  (row) 
R4  > lookup  tbl  indx  (row) 
R6  > linear  buff  position 
ME  > output  device  indx 


♦TRAN 

IF 

MAT  COPY 

MAT  SEARCH 
IF 

♦TRAN 
MAT  SEARCH 
MAT  SEARCH 


X5  > end  of  loop  indx  (col) 
RS  > lookup  tbl  indx  (col) 
R5^( ) > single  char  storage 
W9  > size  of  text  buffer 


W2^ ( 32 , 64 ) 1 , W 3* ( 1 , 200 ) 2 , W9^ ( S ) 8 
X3^( 1, 075)2, Y3^( 1,075)2 
W9^(l)  = HEX ( 5FAO) 

W9^(2)  = HEX ( 20800900 ) 

W9^(3)  = HEX ( 20802D8 1 2F825F83 ) 
W9^(4)  = HEX (2000200120022003) 
W9^(5>  = HEX (2020) 

W9  = 2048 
R2^(  1 ) = *Z* 

R2^(2)  = *0* 

(W2^( )<1,W9>,  W9^(X1,8>)  R 

W6  <>  1 THEN  1532 

W2^(>  <1,  1024 > TO  Q2^(  XI,  1024> 

W9  = 1024 

W2^(X1,W9>,  > R5^(3>  TO  W3^(  ) 

W6  = 1 THEN  1544 

<M2«()<1,W9>,  M9*()<1,8>)  7F  R 


W2^( )<1,W9>,  * R2^(l 
M2»( )<1.M9>,  = R2^(2 
U3^( 1,200)  = HEX (0 

X3S( 1,075)  = HEX (O 

Y3^< 1,075)  = HEX(0 

W6S  <>  "NULL" 

X3*( 1,1)  « HEX ( FFFF ) 
Y3^(l,l)  * HEX ( FFFF ) 
1644 

W6S  * "BOTH* 

W6^  = "ZEE* 

X3^(l,l)  * HEX (FFFF ) 
1612 

Y3«(l,l)  * HEX (FFFF ) 


R2^(l>  TO  X3^( ) 
R£%<3)  TO  Y3^() 
HEX (OOOO) 

HEX (OOOO) 

HEX (OOOO) 


THEN  1568 


THEN  1580 
THEN  1572 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  DEFINE  WORK  BUFRS 
REM  I NIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  SET  SIZE  TO  MAX 
REM  DEFINE  SPL  CHAR  1 
REM  DEFINE  SPL  CHAR  2 
REM  M1NIZE  UNDRSCRS 
REM  NOT  CRT  OUTPUT 
REM  SAVE  UPPR  BUFR 
REM  SET  BUFR  SIZE 
REM  CREAT  LOKUP  TBL  1 
REM  NOT  TTY  OUTPUT 
REM  CLR  HIGH  BIT 
REM  CREAT  LOKUP  TBL  2 
REM  CREAT  LOKUP  TBL  3 
REM  SET  EOI  BYTE 
REM  SET  EOI  BYTE 
REM  SET  EOI  BYTE 
REM  NULL  CHAR  SCAN 
REM  CLR  LOCATOR  BUFR 
REM  CLR  LOCATOR  BUFR 
REM  BRNCH  TO  BLD  TBL 
REM  BEG  BLD IN  TBLS 
REM  BLD  ONLY  Z TBL 
REM  CLR  LOCATOR  BUFR 
REM  BRNCH  TO  BLD  TBL  O 
REM  CLR  LOCATOR  BUFR 


JV-i^ 


157S  REM  ** 


1580 

FOR 

R4  - 1 TO  1 

■ 

• 

REM 

BEGIN  TBL  SCAN  ROW 

1584 

FOR 

R5  * 1 TO  075 

■ 

• 

REM 

BEGIN  TBL  SCAN  COL 

1588 

GOSUB  ' 125 

(R4,R5, 1,075, X3^(R4,R5>, HEX (81) ) 

a 

• 

REM 

SCAN  LOKUP  TABLE  1 

1592 

NEXT 

R5 

a 

a 

REM 

CONT  TBL  SCAN  COL 

1596 

NEXT 

R4 

a 

a 

REM 

CONT  TBL  SCAN  ROW 

1600 

X3^(X6,X7)  - HEX(FFFF) 

a 

a 

REM 

SET  EOI  BYTE 

1604 

IF 

W6a  * -BOTH-  THEN  1616 

a 

a 

REM 

EXECUTE  SCAN 

1608 

REM  ** 

1612 

IF 

W6^  <>  -ZERO*  THEN  1644 

a 

a 

REM 

NULL  'O'  SCAN 

1616 

FOR 

R4  - 1 TO  1 

a 

REM 

BEGIN  TBL  SCAN  ROW 

1620 

FOR 

R5  - 1 TO  075 

a 

REM 

BEGIN  TBL  SCAN  COL 

1624 

COSUB  ' 125 

( R4, RS, 1 , 075, Y3^ ( R4, R5 ) , HEX ( 82 > ) 

a 

a 

REM 

SCAN  LOKUP  TABLE  2 

1628 

NEXT 

R5 

a 

REM 

CONT  TBL  SCAN  COL 

1632 

NEXT 

R4 

a 

a 

REM 

CONT  TBL  SCAN  ROW 

1636 

Y3^(X6,X7)  = HEX (FFFF) 

a 

REM 

SET  EOI  BYTE 

1640 

REM  ** 

1644 

FOR 

R4  - 1 TO  1 

a 

a 

REM 

BEGIN  TBL  SCAN  ROW 

1648 

FOR 

RS  = 1 TO  200 

a 

a 

REM 

BEGIN  TBL  SCAN  COL 

1652 

GOSUB  ' 125 

(R4,R5, 1,200, W3a(R4,R5 >, HEX (83) ) 

a 

a 

REM 

SCAN  LOKUP  TABLE  0 

1656 

NEXT 

R5 

a 

a 

REM 

CONT  TBL  SCAN  COL 

1660 

NEXT 

R4 

a 

REM 

CONT  TBL  SCAN  ROW 

1664 

W3^(X6,X7)  = HEX (FFFF) 

REM 

SET  EOI  BYTE 

1668 

REM  ** 

1672 

REM  ** 

! CRT  ! TTY  ! LPT  ! 

1676 

REM  *+ 

1680 

ON  W6  GOTO 

1692  , 1716  , 1728 

: 

REM 

BRANCH 

1684 

REM  ** 

1688 

REM  +» 

1692 

MAT  COPY 

02^0  TO  W2^( X 1025, 1024 > 

a 

a 

REM 

MOVE  SAVED  BUFR 

1696 

♦TRAN 

(W2^(X1,W9>,  W9^(X9,8>>  80  R 

a 

a 

REM 

CONV  OVRLAY  BUFR 

1700 

MAT  COPY 

W2^(  XI,  1024>  TO  02*0 

a 

a 

REM 

STOR  OVRLAY  BUFR 

1704 

MAT  COPY 

W2^(  X1025, 1024 > TO  W2^(X1,1024> 

a 

REM 

UPDATE  TEXT  BUFR 

1708 

GOTO 

1740 

a 

REM 

BRANCH  TO  EXIT 

1712 

REM  ** 

1716 

♦TRAN 

(W2^(X1,W9>,  W9^(X1,8>>  7F  R 

a 

a 

REM 

CLR  UNDRSCR  FLGS 

1720 

GOTO 

1740 

a 

a 

REM 

BRANCH  TO  EXIT 

1724 

REM  ** 

1728 

♦TRAN 

(M2^(X1,W9>,  W9^(X17,24>)  83  R 

a 

a 

REM 

CONV  OVRLAY  BUFR 

1732 

GOTO 

1740 

a 

a 

REM 

BRANCH  TO  EXIT 

1736 

REM  ** 

1740 

RETURN 

a 

a 

REM 

EXIT 
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t Hui  i S / r;  t.  om  - I-’  ha  e> 

o 1 — A3  !4  X S I — X 

l 744 

hum  ** 

17*8 

RL-.M 

1758 

RUM  -*1-*  Cub  r outine  j i q 

1756 

RfcM  **  Abstract  > 

1 760 

REM  **  To 

select  type  of  CRT  d 

ispiay  to  be?  used. 

1 76 'V 

REM  Variables  > 

1 768 

REM  W2$  > rrturn  type  flag 

! R0$()  > input 

register 

1775 

RL-.M 

1 776 

RLM  ^tt***^*^*****************"********-*-**-*-***--*-***- 

1730 

DEEFN  ' 110 

REM 

ENTRY 

1 784 

If 

M2*  - "VP  SYSTEM" 

THEN  1340 

REM 

SKIP  ROUTINE 

1 738 

IP 

W2*  - “T  SYSTEM" 

THEN  1340 

RfcM 

SKIP  ROUTINE 

1 752 

l-J2$  - "T  SYSTEM" 

RfcM 

SET  FLAG 

1796 

PRINT 

HEX (03) 

RfcM 

CLR  CHI  SCREEN 

1800 

GOGUB  ' 101 

(5, 1,0,0) 

RfcM 

ROSE!  ION  CIJSUH 

1B04 

SELECT 

PRINT  005 

RfcM 

SLL  OUTPUT  MODE 

1308 

PRINTUSING 

1856,  “ * 

REM 

PRINT  MENU 

1312 

PRINTUSING 

1860,  “ “ 

REM 

PRINT  MENU 

1816 

SLLLC r 

PRINT  405 

RfcM 

Sfc.L  OUTPUT  MODE 

1 820 

CUBIC  ' 101 

(2, 1,0,0) 

RfcM 

POSITION  COLOR 

132'’: 

PR INTUB INC 

1864,  “ " ; 

REM 

PRINT  PROMPT 

1328 

KEY  IN 

R04I1),  1832,  1832 

: GDI  0 1823 

REM 

RES!  •ONCE  WAI  1 

1832 

IF 

R0<S(1)  - "2“ 

THEN  1840 

REM 

SKP  TO  EXIT 

1836 

W2*  - "VP  SYSTEM" 

REM 

SET  H 1 RUN  FLAG 

1840 

PRINT 

HEX (03) 

REM 

CLR  CRT  SCREEN 

1844 

HEM  ** 

1848 

HEM  ^•,1' 

OUTPUT  IMAGE  FORMATS 

j.  852 

REM  ** 

1856 

7.  CRT  L'l SPLAY  MENU  1 - WANG 

2200  VR  Display 

1860 

X 

2 - WANG 

2200  T Display 

■n 

ISC'! 

7.  Enter  Type  of  CRT  Display  to 

be  Used  > tt 

I860 

REM  •** 

1372 

REM  *"* 

1876 

RETURN 

RfcM 

EXIT 

o 
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r 


■ - 


< 


i 


AU  1 ! JLJJ? 


. t EMU  Z I ' t"n 


ATH 1ST 


— 1 


laso 

l«84 

1888 

1898 

1896 

1-300 

1904 

1905 
1913 
1916 
1930 
1934 
1-338 
1933 
1936 
1940 
1944 
1948 
1953 


****************************-»*-<>--<>--)<->-»--*-*-*>--l*-<v**'#"t‘-*'  111 


Subroutine 
Abstract  > 

To  Display  CRT  overlay  buffer  onto  selected  CRT 
display. 

Variables  > 

Q3*()  > overlay  buffer  ! W9  > buffer  out  line  indx 

R8*  > field  format  definition! 


hem  ** 

REM  *■* 

REM  *■* 

REM  ** 

RtM  *"* 

HEM  +* 
f!EM  ** 

HEM  ** 

HEM  ** 

HEM  ** 

DEFFN  ' 111 

R8*  = HEX (5103) 

#5  <4001  ,R8*<9>) 

W-3  = 1 TO  16 

<F=R8*>  STR ( R8S < 9 ) , V, 3 ) FROM  W9 

lt5  <R8*<6) ,R8$(9)  )Q34*<  ) <<W9-  1 )*64+l  ,64>  : REM  F'HINT  LINE 
W9  : REM  CONT  BUFR  OUT 

: RtM  EXIT 


*GIO  HOME 

FOR 

♦PACK 

♦GICJ  PRINT 

NEXT 

RETURN 


REM  ENTRY 

REM  DEFINE  PACK  FMT 
REM  HOME  CtJSOH 
REM  BEG  BUFFR  OUT 
REM  S I Of:  LIN  COUNT 


1356  REM  ** 

1360  REM  ** 

1364  REM  -*■*  Subroutine  ***«**^^*HHHHi-i»-»-»**HW-»***i‘-»«***-»**fr*t****  112 
1368  REM  *■*  Abstract  > 

1372  REM  To  Display  CRT  text  buffer  on  to  selected  CRT 

1376  REM  **  display. 

1380  REM  **  Variables  > 

1 384  HEM  **  W2$(>  > overlay  buffer  ! W3  > buffer  out  line  indx 

1388  REM  ++  R8$  > field  format  definition!  R3*<)  > scratch  buffer 

1932  REM  ** 

1336  Rt-M 

2000  DEFFN  '112  : REM  ENTRY 

2004  R8*  = HEX (5102)  : REM  DEFINE  PACK  FMT 

2008  R3< < 1 ) - “Touch  RETURN"  : REM  INI')  MESSAGE 

2012  *CIO  HOME  #5  (4001  ,R8*(3>)  : REM  HOME  CUSOR 

2016  EOR  W3  = 1 TO  16  : REM  BEG  BUFFR  OUT 

2020  *PACK  (F=R8$)  STR (ROSO) , 7, 2)  FROM  W9  : REM  STOR  LIN  COUNT 

2024  *GIO  PRINT  tt5  (R8*(6> , R8*<9> ) W2*( > < ( W3-1 >*64+1 , 64>  : REM  PRINT  LINE 
2020  NEXT  W3  : REM  CONT  BUFF!  OUT 

2032  *C10  MESG  Eb  (40004006AOOO,R8*(3>  >R9*(  XI , 13>  : REM  PRINT  MESSAGE 

2036  RETURN  : REM  EXIT 


AUTHOR 


3y  B-tem:  Ph< 


ATM 1 / I 


— 1 


£040 

£’044 

£048 

3055 

3050 

£060 

£064 

£068 

£07£ 

£076 

£080 

£084 

£088 

£09£ 

£096 

£100 

£104 

£108 

£11£ 

£116 

£1£0 

£1£4 

£1£8 

£13£ 

£136 

£140 

£144 

£148 

£15£ 

£156 

£160 

£164 

£168 

£17£ 

£176 

£180 

£184 

£188 

£13£ 

£196 

££00 

££04 

££08 

££1£ 

££16 

£££0 

£££4 

£££8 

££3£ 

££36 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■* 
REM  ** 
REM  ** 
REM 
DEFFN 
DIM 
IF 

PRINT 

GOSUB 


Subroutine  «H»*^**HHt*H»**«*iH»**HHHH»’**-i»-»********-«-»'«-»-»******  113 
Abstract  > 

To  Display  Instructions  to  set  up  TTY  device. 

Variables  > 

W5*  > return  scan  flag  ! W4t<  ) > i/o  buffer  #1 

W9  > scratch  loop  indx  ! W5*< ) > i/o  buffer  #£ 

R0*( ) > input  register  ! 


PRINTUSING 
GOSUB  ' 101 
PRINTUSING 
GOSUB  ' 101 
PRINTUSING 
GOSUB  ' 101 
PRINTUSING 
KEY  IN 
REM  ** 

*GIO  READY 
*IF  ON 
GOSUB  ' 101 
PRINTUSING 
SG 10  PAUSE 
GOSUB  ' 101 
GOTO 
PRINT 
PRINTUSING 
REM  ** 

GOSUB  ' 1£1 
SELECT 
PRINTUSING 
PRINTUSING 
PRINTUSING 
PRINTUSING 
PRINTUSING 
PRINTUSING 
PRINTUSING 
INIT(OA) 
♦GIG  LF 
SELECT 
REM  ** 

GOSUB  ' 1££ 


113 

X9*< 10)45 

W5*  = “SKIP  DISPLAY" 
W5*  = "SKIP  DISPLAY" 
HEX (03) 

101  <5,5, 0,0) 

££5£,  “ " 

<7, 5, 0,0) 

££56,  “ “ 

<9, 5,0,0) 

££60,  " " 

< 16,1,0,0) 

££7£,  " 

R0«<1),  £144,  £144 


THEN  ££36 


GOTO  £136 


#5  <4500  ,R8*<9)> 

#5,  £17£ 

<11,10,0,0) 

££64,  “ ' 

/0O5<R8*<4),R8*<9) ) 

<11,10,1,0) 

£144 

HEX  < 030A0A0A0A0A  > 

££68,  “ " 


PRINT  £11 <100) 
££76,  * “ 

££80,  " “ 

££84,  " " 

££88,  " “ 

££9£,  " “ 

££■36,  “ 

£300,  " " 

X9*<  ) 

#5  < AOOO 
PRINT  405 < 80) 


: PRINT  HEX <0A) 

I PRINT  HEX  < OA ) 

: PRINT  HEX ( OAOA ) 
; PRINT  HEX  < OA) 

: PRINT  HEX (OAOA) 

: PRINT  HEX  < OA ) 

,R8*<9) )X9*< )<1,7> 


REM  ENTRY 

REM  DEFINE  WORK  BUFR 
REM  SKIP  DISPLAY 
REM  SET  RETURN  FLAG 
REM  CLR  CRT  SCREEN 
REM  POSIT  ION  CUSOR 
REM  PRINT  INSTRUTN  1 
REM  POSITION  CUSOR 
REM  PRINT  INSTRUTN  £ 
REM  POSITION  CUSOR 
REM  PRINT  INSTRUTN  3 
REM  POSITION  CUSOR 
REM  PRINT  CONT  PROMPT 
REM  RE5PONCE  WAIT 

REM  SEND  CTL  CHAR 
REM  DEVICE  READY 
REM  POSITION  CUSOR 
REM  PRINT  ERR  MSG 
REM  ERROR  TONE 
REM  ERASE  ERR  MSG 
REM  CONT  READY  TEST 
REM  CLR  CONSOLE  DEV 
REM  PRINT  INSTRUCTN 

REM  CLR /SET  TAB  STOPS 
REM  SEE  CONSOLE  DEVICE 
REM  PRINT  INSTRUCTN5 
REM  PRINT  INSTRUCT  NS 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
INSTRUCTNS 
INSTRUCTNS 
INSTRUCTNS 

FEED 


PRINT 
PRINT 
PRINT 
REM  PRINT 
REM  PRINT 
REM  PRINT 
REM  INIT  TOR  LINE 
REM  ADJUST  PAPER 
REM  SEL  CONSOLE  DEVICE 

REM  DEVICE  RESET 


2240 

REM 

** 

2244 

REM 

** 

2248 

REM 

** 

2252 

X * 

* * 

* 

225G 

X * 

* *• 

* 

22G  0 

X * 

+ * 

•* 

22E4 

X 

22E8 

X * 

* * 

* 

2272 

X 

Touch 

227S 

X 

# 

2280 

X 

# 

2284 

X 

* 

2288 

X 

# 

22*32 

X 

* 

229E 

X 

# - 

■ = 

2300 

X 

# THl 

2304 

REM 

2308 

REM 

2312 

RETURN 

INSTRUCITON  FORMATS 


* * # 


INSERT  PAPER  INTO  TYPEWRITER  *■*■** 

SET  LEFT  MARGIN  TO  LETT  EDGE  OF  PAPER 
SET  SPACING  SELECTOR  TO  SINGLE  SPACING 
* * * * TYPEWRITER  IS  NOT  READY  * * * 

FOLLOW  INSTRUCTIONS  ON  OUTPUT  DEVICE  * 

‘ RETURN ' When  Completed  > # 

AFTER  EACH  PAGE  IS  PRINTED  THE  PROGRAM  WILL  STOP. 
CHECK  THAT  THE  PAPER  IS  PROPERLY  ALIGNED... 

MAKE  ADJUSTMENTS  WHEN  NESSARY. 

TO  CONTINUE  Switch  the  'MANL/AUTO'  SWITCH  10 

'MANL'  POSITION  THEN  SWITCH  TO  'AUTO'  POSIT IUN. 
ALIGN  TOP  EDGE  OF  PAPER  TO  THIS  POSITION  ... 


REM  EXIT 


66 


r m 


i 


AU  Tl  IQR  Syst  e-m  z 


Pha  s.  e- 


1 


ATH 1 / I 


# MAF' 


0768 

- 

1108 

0804 

- 

0804 

0808 

0956 

0820 

- 

0812 

0036. 

- 

0820 

0860 

- 

0820 

0880 

- 

0860 

0900 

- 

0872 

0944 

- 

0-332 

0952 

0-344 

0972 

0-300 

lOOO 

- 

0988 

1016 

- 

0900 

1040 

- 

0900 

1056 

1048 

1068 

- 

1040 

1076 

- 

1060 

1080 

0852 

1100 

- 

1092 

1112 

- 

1084 

1116 

- 

1080 

1232 

- 

1212 

1244 

- 

1256 

1252 

- 

1244 

1260 

- 

1256 

1276 

- 

1212 

1324 

- 

1312 

1328 

- 

1320 

1352 

- 

1212 

13-32 

- 

1212 

1396 

- 

1384 

1408 

1260 

1532 

- 

1520 

1544 

1536 

1568 

1564 

1572 

1569 

1580 

- 

1568 

1612 

1571 

1616 

- 

1604 

1644 

- 

1567 

16-32 

- 

1680 

1716 

1680 

1728 

- 

1680 

1740 

- 

1708 

1828 

1828 

1832 

- 

1828 

1840 

- 

1784 

1856 

1808 

18€6> 

1812 

1864 

- 

1824 

21 36 

- 

2136 

2144 

2136 

2172 

- 

2148 

2236 

2092 

2252 

2108 

2256 

- 

2116 

2260 

“ 

2124 

2264 

- 

2156 

0972  lOOO  1024 
082a  0884 


0868  0920 
0876 


1388 

1336  1396 


1612 

1720  1732 

1788  1832 

2168 
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njruojajrurunjru 

ruajajruajrunjru 


AUTHOK  System:  1 — ATH1/I  — V/  MAP 

02* < - 1524  1692  1700  1944 

R0*(  - 0804  0820  0860  0864  0868  0872  0876  0900  0924  0-348  0962  1256  1828  1832 

2136 

R1  - 0764  0/72  0780  0920  1076  1088  1092  1096 

Rl*  - 076-4  0812  0944  1048  1080 

R2  - 1088  1096  1100  1112 

R2*  - 0796  0808  0840  0848  0924  0984  1016  1020  1044  1068  1072  1084  1112 

R2*(  - 1508  1512  1544  1548 

R3  - 0792  0844  0848  0920  0924  0928  0932  0972  0980  0984  1040  1068  1076  1092 

R4  - 1580  1588  1596  1616  1624  1632  1644  1652  1660 

R4* ( — 0864 

R5  - 1584  1588  1592  1620  1624  1628  1648  1652  1656 

R5*<  - 1532 

R6*  - 0764  1044  1052  1072  1076 

R8*  - 1928  1940  2004  2020 

R8*<  - 0772  0780  0784  0808  0816  0824  0880  1100  1104  1932  1940  1944  2012  2020 

2024  2032  2144  2160  2224 
R9  - 0788  0808  0936  0988  0992  1016  1020 

R9*(  - 0768  0772  0776  0780  1100  2008  2032 

M2*  - 1244  1784  1788  1792  1836 

M2*<  - 1476  1516  1524  1532  1540  1544  1548  1692  1696  1700  1704  1716  1728  2024 

M3*  - 1312 

M3*<  - 1476  1532  1552  1652  1664 

M4*  - 1384  1388 

M5*  - 2092  2096 

M6  - 1188  1212  1520  1536  1680 

M6*  - 1564  1568  1569  1604  1612 

M7  - 1292 

M8  - 1304  1328  1368  1376 

M9  - 1504  1516  1528  1532  1540  1544  1548  1696  1716  1728  1936  1940  1944  1948 

2016  2020  2024  2028 
M9*(  - 1476  1484  1488  1492  1496  1500  1516  1540  1696  1716  1728 

X3  - 12-36 

X3*(  - 1480  1544  1556  1565  1570  1588  1600 

X6  - 1600  1636  1664 

X7  - 1600  1636  1664 

X9*(  - 2088  2220  2224 

Y3  - 1300 

Y3*<  - 1480  1548  1560  1566  1572  1624  1636 


AUTHOR  Sy&l:  e-m  S 


Phase 


1 


ATH X S X 


' MAP 


0000  DfcFFN'  0 

0001  DfcFFN'  1 

0002  DfcFFN ' 2 

0003  DfcFFN'  3 
????  DfcFFN'  101 

- 1800  1820  2104  2112  2120  2128  2152  2164 
0/64  DfcFFN'  104 

1188  DEFFN'  108 
1472  DfcFFN'  109 

- 1236  1280 
1780  DfcFFN'  110 

- 1240 

1924  DfcFFN'  111 

- 1248 

2000  DfcFFN'  112 

- 1252 

2084  DfcFFN'  113 

- 1284 

????  DfcFFN'  114 

- 1288  1332 
????  DEFFN'  115 

- 1308 

????  DfcFFN'  116 

- 1316 

????  DfcFFN'  117 

- 1324  1372 
????  DfcFFN'  118 

- 13fcO 

????  DfcFFN'  119 

- 1304  1380 
????  DfcFFN'  120 

- 1392 

????  DfcFFN'  121 

- 2184 

????  DfcFFN'  122 

- 2236 

????  DfcFFN'  123 

- 1192 

????  DfcFFN'  124 

. j 13& 

????  DEFFN'  125 

- 1588  1624  1652 
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TAE6  Report  No.  59 


ATH2/I 

This  section  of  the  'AUTHOR/1  * program  contains  subroutines 
114  to  123. 

The  remainder  of  this  section  contains  the  ' ATH2/I ' program 
listing  and  reference  maps. 


I • h 


.■'■'iTTH.LI  X X 


1 *"i 


AtJ  [ ! It  Jl  : i3  v t -t  c-m  : 


1 — 


£tN>  Prog  rail;  ■ AUTHOR /I  (ATHE/I  > Version  > 3.0  3300  T/VP  7803  It 

Ptm 
••it  M 

Rtf'!  Sub  rout  me 

REM  ■“"*  Abstret  > 

Rt.M  *•»  To  print  upper/lower  hash  lines  on  the  fTY  device. 

REM  *■*  Variables  > 

REM  **  W7$()  > hash  contorl  buffer  ! W9  > upper/lowrr  index 

REM  *'a 

L’t-PTM  ' IX  <W9>  : REM  ENTRY 

I'iM  N7$  <19)4,W&*U  )€/* 

W7<<1XHEX<  09210951)  : W7*  < 5 ) ~HEX  < 08080808 > ‘ HEM  INK  1 ABLE 

W7$l  2)“HEX  < 51: 51-  51- Sf- ) : W7t  < 4 ) -HEX  ( OAOAOAOA ) : HEM  INI  I ! ABLE 

W7T  ( B ) -HEX  < OAOAOAOA ) : W7<  < t ) "HEX  < OAOAOAOA ) : HEM  INK  I ABLE 

t\'7< < 7 ) -HEX < OAOAOAOA ) : W7*  <BXHEX<  OAOAOAOA  > : HEM  INK  TABLE 

WS'V,  1 > ~ " AUTHOR : An  Automatic  Authoring  System  Version: 


Subroutine 
Abstret  > 

To  print  upper/lowcr  hash  lines  on  the  fTY  device. 
Variables  > 

W7$<)  > hash  contorl  buffer  ! 1-J9  > upper/lowrr  index 


REM  ENTRY 


1 owe  r 


j Jl_  jVI  •»"* 

UN  W9  GOlO 
HEM  ,<-9- 
f:EM  *“* 

TCfO  TAfi 
<5010  HEAD 
TO  ID  TUP 
tCIO  LINE  1 
TCIO  LINE  3 
TCIU  LINE  3 
TCIO  LINE  3 
tG 10  ! fNE  3 
tCIO  U 
CO  10 

I ;£TM  .v  o 

V.,IO  LF 
•CIO  L INF  1 
TCIO  l INF.  1 
5C.MJ  LINE  1 
7<  rD  LINE  U 
•CIO  L iNE  3 
TOIL)  LE 


<4009's050A000,R8«<9>  M\I7*<  )<J3,  *i> 
*b  ( AOOO  ,RR*<9> >WS<< Kl,56> 

ItS  < ‘lOGO'sOOA  , R2t  < 9 ) ) 

ttS  < AOOO-iOOO  , R8'S  < 9 ) ) W7$  < ) <1 , <i  > 

t S < AOOOAOOD  , RSt < 9 ) ) W7* < )<1,4> 

IP-  < AOOO  ,RS*<9) )W7*<)<3, 10> 

ttb  < AOOO  , R8<  < 9 > > W7<  < ) < 1 , 3: 

f;b  < A000400D  ,H8*<9>  )W7<<  )<8,  S> 

*G  ( AOOO  ,RS«<9))W7»<)<13,3> 


< AOOO 

< '1009 AOOO 


,RS< (9) )W7*( ) < 1 3, 2> 
,R8*<9> >W7<< )<5,8> 


< A009A0004000 , RE<t < 9 ) )W7<<  ) <9,  'V' 


*t£,  <AOOC'-iUOO 
ttb  < AOoO'iOOO 
ttb  <AOOO‘iOOD 
itb  <A000 


,R8*<9)  )W7<C<  Kl,'i> 
,RS$<9)  >W7*<  ) <1 , A> 
,R8<<9>  )W7«<  > < 1 , A > 
,R8«M9> )W7<< )<1 3, 19> 


REM  BRANCH 


REM  HOP l TAB 
REM  PRINT  HEAD INC 
REM  VERTICAL  TAB 
REM  PRINT  HASH 
REM  PRINT  HASH 
REM  PRINT  HASH 
REM  PRINT  HASH 
REM  PRINT  HASH 
REM  VERTICAL  TAB 
REM  BRANCH  TO  EX1! 

REM  VERTICAL  TAB 
REM  PRINT  HASH 
HEM  PRINT  HASH 
REM  PRINT  HASH 
REM  PRINT  HASH 
REM  PRINT  HASH 
REM  VERTICAL  TAB 


Rl.TlIRN 


REM  EXIT 


I 


AUI'HOK  S X s>  "t  t-m  z F>r-.aacs.o  1 — ATHrf/I  — X i !3 


8672  REM  ** 

2676  REM  ** 

2080  KEM  Subroutine  *********+***************-***-*-*-#--*-fr*“<i--*-a-t<--&--#--#--*-»-*-*  115 
SOS':  REM  **  Abstract  > 

26SS  REM  ■**  To  scan  lookup  table  for  next  underscored  character. 

2692  HtM  **  Variables  > 

269 6 K'EM  W7  >'  lookup  table  indx  ! W3*  > return  scan  flag 

2700  REM  -fr*  WS  > text  buffer  lin  indx  ! R2f ( ) > search  return  buffer 

2704  REM  **  W1  > next  char  position  ! W3*()  > loo!<up  table 

2. 'OS  REM  *■* 

2712  REM 


2716 

DEFFN  ' lib 

2720 

MAT  COPY 

W3* < ) <W7, 2>  1 0 R24 O < 1 , 2> 

£724 

wi  *■ 

FNR<VAL<R2t(l> ) ) 

2728 

MAT  COPY 

X3*(KX3,2>  TU  R2i ( ) < 1 , 2> 

2722 

X4  a 

FNR  ( VAI_  ( R2*  C 1 ) ) > 

2730 

MAT  COPY 

Y3*< ) <Y3,£>  TU  R£* <)<!,£> 

27';  0 
2744 

REM  *+ 

Y4  - 

FNR  < VAL ( R2$ ( 1 ) ) ) 

2742 

IF 

Wl  < 

- W8*6'i 

THEN 

2776 

2762 

IF 

X4  < 

- W8*64 

THEN 

2/76 

2750 

IF 

Y4  < 

- W8*64 

THEN 

2776 

2760 

276/: 

REM  ** 

W3* 

« "NULL  SCAN" 

2760 

GOTO 

27B0 

2772 

2776 

REM  *■* 

W3* 

- “POSITIVE  SCAN" 

2780 

RETURN 

REM  ENTRY 

REM  STOP  BIN  POSH  ION 
REM  CMPUT  BIN  POSH  ION 
REM  S I OR  BIN  POSITION 
REM  CMPUT  BIN  POSH  ION 
REM  S i OH  BIN  POSITION 
REM  CMPUT  BIN  POSITION 

REM  SET  POSIIV  SCAN 
REM  SET  POSITV  SCAN 
REM  SET  POSITV  SCAN 

REM  SET  RETURN  FLAG 
REM  BRANCH  TO  EXIT 


REM  SET  RETURN  PLAC 
REM  EXIT 


~3 


AUTHOR 

2784 

REM 

** 

2788 

REM 

*•* 

2732 

REM 

** 

2796 

REM 

2800 

REM 

** 

2804 

REM 

*-* 

2808 

REM 

2812 

REM 

** 

2816 

REM 

** 

2820 

REM 

2824 

REM 

♦* 

2828 

REM 

** 

2832 

DEFFN 

2836 

REM 

** 

2840 

REM 

•IHHH 

2844 

DEFFN 

2848 

DIM 

2852 

2856 

2860 

2864 

2868 

2872 

REM 

2876 

2880 

2884 

*GIO  T/ 

2888 

REM  ** 

2892 

IF 

2896 

IF 

Sy  & t;i 


Ph, 


ATHa/ I 


— 1 


line  containing  underscoring  on  TTY  device. 

> 

micro 


Subroutine 
Abstract  > 

To  print 
Variables 

W9*( ) > micro  command  buffr 
W2*< ) > text  buffer 
W3*( ) > lookup  table 
R2*( ) > search  return  buf r 
R8*()  > micro  command  buffer 
Function  Definitions  > 

TIT)  = T - (W9+WO- 1 ) 


W9  > temp  text  bufr  position 
M7  > lookup  table  indx 
W2  > next  character  position 
W1  > curnt  char  position 
W8  > text  buffr  lin  indx 

REM  compute  string  length 


116 


W9*<5)8 
ws*( i : = 
W9*<2>  = 
W9*<3>  = 
W9*<4)  = 
W9«<5>  = 


2900 

2904 

2908 

2912 

2916 

2920 

2924 

2*328 

2932 

2336 

2940 

2944 

2948 

2952 

2956 

2960 

2*364 


*GIQ  PRINT 
IF 

*GIO  PRINT 
GOSUB  3144 
GOSUB  3076 
GOTO 
REM  ** 

IF 

HGIO  PRINT 
GOSUB  3212 
GOSUB  3076 
GOTO 
REM  ** 

IF 

*GIO  PRINT 
GOSUB  3144 
GOTO  2388 


HEX ( 4009402020202020 ) 
HEX ( A0004008405T2020 ) 
HE  X < A000400020202020 ) 
! EX ( A0004008402D2020 ) 
HEX ( A0004008402F2020 ) 


WO 

W9 

#5 

W1 

W1 

#5 

W1 

#5 


= O 

= <W8-1)*64 
( W9*  < 1 ) , R8< ( 9 ) ) 


+ 1 


X4 

Y4 


THEN  2952 
THEN  2972 


REM  ENTRY 

REM  DEFINE  WORK  BUFR 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 

REM  SET  TEMP  LIN  INOX 
REM  CMPUT  BEG  OF  LINE 
REM  HORZ  TAB 

REM  W1  NOT  MIN  VALUE 
REM  W1  NOT  MIN  VALUE 


IW9*(2),R8*(9))W2*< ) <W9+W0,FNT< W1 > >:  REM  PRINT  STRING 


0X4  THEN  2928 

<W9*<4),R8*<9) )W2*< )<W9+W0,0> 


2988 

W1  <>  Y4  THEN  2940 

#5  <W9*(5),R8*(9) )W2*( ><W9+W0,0> 


2988 


REM  ALSO  SPCL  CHAR  1 
REM  PRINT  SPCL  CHAR  1 
REM  I NCR  TBL  INOX  X3 
REM  I NCR  TBL  INDX  W3 
REM  BRNCH  TO  LIMIT  CHK 

REM  ALSO  SPCL  CHAR  2 
REM  PRINT  SPCL  CHAR  2 
REM  I NCR  TBL  INDX  Y3 
REM  I NCR  TBL  INDX  W3 
REM  BRNCH  TO  LIMIT  CHK 


X4  > Y4  THEN  2972  : REM  X4  NOT  MIN  VALUE 

#5  <W9*(4),R8*(9)  )W2*O<W9*W0,FNT<X4>>:  REM  PRINT  STRING 

: REM  I NCR  TBL  INDX  X3 
: REM  BRNCH  TO  LIMIT  CHK 


G 
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5968 

597a 

5976 

5980 

5984 


REM  ** 

*GI0  PRINT 
GOSUB  3515 
GOTO  5988 
REM  ** 


#5  <W9*(5),R8*<9) )W5*( )<W9«-W0,FNT<Y4>> 


5988 

IF 

W1  <=  W8*64 

THEN 

5895 

5995 

IF 

X4  <=  W8*64 

THEN 

5895 

5996 

IF 

Y4  O W8*64 

THEN 

5895 

3000 

REM  ** 

3004 

MAT  COPY 

-W5*< ><W9,64>  TO  R9*()<1, 

64  > 

3008 

MAT  SEARCH 

R9*<),  <>  RS*<1)  TO  R5*<> 

3015 

W5  = FNR<VAL<R5<< 1 ) ) ) 

3016 

W5  = <64-<W5-l ) ) - WO 

3050 

*GIO  END 

#S  (W9»<3),R8*(9))W5«<)<W9+W0,I 

45  > 

3054 

RETURN 

: REM  PRINT  STRING 
REM  I NCR  TBL  INDX  Y3 
REM  BRNCH  TO  LIMIT  CHK 

REM  CONT  THIS  LINE 
REM  CONT  THIS  LINE 
REM  CONT  THIS  LINE 

REM  REVERSE  LIN  COPY 
REM  SRCH  FOR  NON  BLNK 
REM  CMPUT  TRL  SPCS 
REM  CMPUT  TRL  SPACES 
REM  PRINT  END  OF  LINE 
REM  EXIT 
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AU  I HQR  Sy&tE-m:  Pha&e  1 — AThfc  / I — 1 1 &.  1 

3028  RL-.M  *■» 

303?  RtM  ** 

3030.  RtM  **  Subroutine  «*»■»«»»»♦* »»■»»»■»»»»»•»»■»■»»« mnnHnnnHnnnnnum-innt  1 i fe.  1 
3040  RtM  *•*  Abstract  > 

30V>  RtM  **  This  routine  will  increment  and  compute  the  index 

3048  RtM  **  into  the  underscore  lookup  table. 

305?  RtM  *■*  Variables  > 

3056  REM  **  W7  > lookup  table  index  ! W3$<)  > lookup  table 

3060  RtM  **  W1  > compute  position  ! WO  > temp  bufr  lin  indx 

306'h  REM  **  W9  > curnt  begin  of  line  ! R2*<)  > function  input  bufr 

306.8  REM 

3072  Rt.M  X II  X X »»»»  X 

3076  W7  - W7  ♦ 2 : RtM  I NON  LOKUP  TBL  IDX 

3080  MAT  COPY  W3*<XW7,2>  TU  R2*<)<1,2>  : REM  FTCH  NXT  CHAR  POS 

3084  WO  = <W1+1>  - W5  : REM  INCH  TMP  LIN  INDX 

3088  W1  = FNR(VAL(R2*(1> ) > : REM  CMPUT  DEC  CHAR  POS 

3052  RETURN  : REM  EXIT 
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3164  REM  *+ 

3168  REM  ** 

317c!  REM  **  Subroutine  #*#***#*<hhhhhhhhhhhhhm  * » * * »-ihhhhhu  >m  » »***•#■*♦  l 1 6.  3 
3176  REM  **  Abstract  > 

3180  REM  **  This  routine  will  increment  and  compute  the  index 

3184  REM  **  into  the  'O'  Scan  lookup  table. 

3188  REM  **  Variables  > 

3133  REM  *•*  Y3  > lookup  table  index  ! Y3*<>  > lookup  tabic 

3136  REM  *•*  Y4  > compute  position  ! WO  > temp  bufr  lin  indx 

3200  REM  *■*  W3  > curnt  begin  of  line  ! R2$<  ) > function  input  bufr 

3204  REM  ** 

3208  REM 

3S12  Y3  - Y3  + 2 : REM  INCH  LOKUP  TBL  IDX 

3216  MAT  COPY  Y3*<XY3,2>  TO  R2*<)<1,2>  : REM  FTCH  NXT  CHAR  POS 

sppn  WO  = < Y4+1 ) - W3  : REM  INCR  IMP  LIN  INDX 

3224  Y4  - PNR(VAL(R2*<1) ) ) : REM  CMPUT  DEC  CHAR  POS 

3228  RETLIRN  : REM  EXIT 


Sy  st  E>m 


P h3 ED  1 


ATH2 / I 


1 1 


AUTHOR 


3232  REM  +* 

3236  REM  ** 

3540  REM  **  Subroutine  »♦ » * * " * 117 


324  4 REM  ** 
3248  REM  ** 
3d 52  REM  +* 
3256  REM  ** 


Abstract  > 

To  print  a line  without  trailing  blanks  on  selected 
output  device. 

Variables  > 


3dG0  REM  ** 
3264  REM  ** 
3268  REM  ** 
3272  REM  ** 


W9  > temp  text  bufr  indx 
R9*<)  > temp  line  bufr 
R2*(>  > serach  retrn  bufr 
WO  > temp  length  of  line 


W2*<>  > text  buffer 
R5*()  > single  char  storage 
W6  > output  device  indx 
W7  > null  line  flag 


3276  REM  ** 
3280  REM 


3284 

DEFFN  ' 117 

REM 

3288 

DIM 

W9*(5>8 

REM 

3292 

W9t  < 1 ) = HEX(5FA0) 

REM 

32*36 

W9  = (W8-l>*64  + 1 

REM 

3300 

*TRAN 

(W2*(  ><W9,64>,  W9*(X1,8>)  R 

REM 

3304 

MAT  COPY 

-W2*  ( ) <W9, 64  > TO  R9*  (XI,  64> 

REM 

3308 

MAT  SEARCH 

R9*<>,  <>  R5*(l)  TO  R2*<) 

REM 

3312 

IF 

R2*(l>  <>  HEX ( OOOO ) THEN  3324 

REM 

3316 

BIN(STR(R2*(1),1,1))  " 0 

REM 

3320 

BIN(SfR(R2*(l),2,l>>  - 65 

REM 

3dct/\ 

WO  - 64  - <FNR(VAL(R2*(1>))-1) 

REM 

33 28 

BIN(STR(R8*(9),6,  1 > > = WO 

REM 

3^32 

BIN(STR(R8*(9>,7,1>>  - 00 

REM 

3336. 

*GIU  SETUP 

#5  (R84K8),RB*(9> ) 

REM 

3340 

REM  *■* 

3344 

REM  ** 

! CRT  ! TTY  ! LPT  ! 

3348 

REM  ** 

3352 

ON  WE.  GOTO 

3400  , 336.4  , 3380 

REM 

33S6 

REM  ** 

3360 

REM  ** 

3364 

tCIO  TAB 

45  < 1467160840094020, K8*<9> ) 

HEM 

3368 

*G1Q  TEXT 

t»S  < A 9004250  , R8*  ( 9 ) ) W2*  ( ) <W9 , WO> 

HEM 

3372 

GOTO 

3400 

REM 

3376 

REM  ** 

3380 

IN1T (20) 

R9*(  ) 

REM 

3324 

*CIO  TAB 

#5  ( 1 467 1 6O8AOOO , R 8$  ( 9 ) ) ROT  (XI,  34  > 

REM 

3388 

$GIO  TEXT 

#5  ( A0004250  , R8* ( 9 ) ) W2* ( ) <W9 . W0> 

HEM 

3392 

GOTO 

3400 

REM 

33-36 

REM  ** 

3400 

RETURN 

REM 

ENTRY 

DEFINE  WORK  BUFR 
DEFINE  CONVERSN 
CMPUT  BEG  OF  LIN 
MINI ZE  UNDERSCOR 
REVERSE  COFY 
SCAN  FOR  NONBLANKS 
TRAILING  BLANKS 
SET  TO  NULL.  LINE 
SET  TU  NULL  LINE 
CMPUT  LEN  OF  SIR 
ST  OH  LEN  OF  SI  R 
SET  LIMIT 
SETUP  CR  OH  LF 


BRANCH 


H0R2  TAB 
PHI NT  LINE 
BRANCH  T0  EXIT 

CL.R  TAB  BUFFER 
HORZ  TAB 
PRINT  LINE 
BRANCH  TO  EXIT 

EXIT 


AUTHOR  Syst  em  S P l"»< 


— ATiia  / 1 


3404  REM  ** 
3408  REM  ** 
3412  REM  ** 
3416  REM  ** 
3420  REM  ** 
3424  REM  ** 
3428  REM  ** 
3432  REM  ** 
3436  REM  *• 
3440  REM  ** 
3444  REM 


Subroutine 
Abstract  > 

To  Display  Instructions  to 
Variables  > 

W4*  > return  scan  flag 
W9  > scratch  loop  indx 
R0*( ) > input  register 


1 1 8 


set  up  LPT  device. 

! W4$()  > i/o  buffer  #1 
! W5*<)  > i/o  buffer  #2 
! W6*  > buffer  scan  flag 


3448 

DEFFN  ' 118 

REM 

ENTRY 

3452 

DIM 

X9*< 10)45 

REM 

DEFINE  WORK  BUFRS 

3456 

IF 

W4S  = “NO  UNDERSCORE" 

THEN 

4008 

REM 

SKIP  ROUTINE 

3460 

IF 

W4*  = “UNDERSCORE" 

THEN 

4008 

REM 

SKIP  ROUTINE 

346.4 

IF 

W4*  = “OVERLAY" 

THEN 

4008 

REM 

SKIP  ROUTINE 

3468 

IF 

W4*  = "TAPE" 

THEN 

4008 

REM 

SKIP  ROUTINE 

3472 

IF 

W4*  = “SET  PRINTER" 

THEN 

3532 

REM 

INIT  PRINTER  ONLY 

3476 

W4*  = “NO  UNDERSCORE" 

REM 

SET  RETRN  SCAN  FLG 

3480 

PRINT 

HEX  < 03) 

REM 

CLR  CRT  SCREEN 

3484 

G0SU8  ' 101 

(5, 1,0,0) 

REM 

POSITION  CUSOR 

3488 

SELECT 

PRINT  005 

REM 

SEL  OUTPUT  MODE 

3492 

PRINTUSING 

3824,  " " 

REM 

PRINT  INSTRUTN  1 

3496 

PRINTUSING 

3828,  " " 

REM 

PRINT  INSTRUTN  2 

3500 

PRINTUSING 

3832,  “ " 

REM 

PRINT  INSTRUTN  3 

3504 

SELECT 

PRINT  405 

REM 

SEL  OUTPUT  MODE 

3508 

G0SU6  ' 101 

(2, 1,0,0) 

REM 

POSITION  CUSOR 

3512 

PRINTUSING 

3836,  “ 

REM 

PRINT  PROMPT 

3516 

KEY  IN 

R0*<1),  3520,  3520  : 

GOTO 

3516 

REM 

RESPONCE  WAIT 

3520 

IF 

R0*<1>  <>  "1" 

THEN 

3528 

REM 

SCAN  FLAG  SET 

3524 

W4*  = "UNDERSCORE" 

REM 

SET  SCAN  FLAG 

3528 

IF 

R0*<1)  <>  "2" 

THEN 

3544 

REM 

SCAN  FLAG  SET 

3532 

W4*  = "TAPE" 

REM 

SET  SCAN  FLAG 

3536 

G05UB  ' 190 

(9,2,23,0,1,6) 

REM 

REWIND  TAPE 

3540 

REM  ** 

3544 

*GIO  READY 

#5  <4100  ,R8*<9)> 

REM 

SEND  CTL  CHAR 

3548 

*IF  ON 

#5,  3572 

REM 

DEVICE  READY 

3552 

GOSUB  ' 101 

(11, 10,0,0) 

REM 

POSITION  CUSOR 

3556 

PR 1NTUSING 

3840,  " " 

REM 

PRINT  ERR  MSG 

3560 

*GIO  PAUSE 

/005(R8*(4),R8*(9) ) 

REM 

ERROR  TONE 

3564 

GOSUB  ' 101 

<11,10, 1,0) 

REM 

ERASE  ERR  MSG 

35€>8 

GOTO 

3544 

REM 

CONT  READY  TEST 

3572 

PRINT 

HEX  < 030 AO AO AO AO AO A ) 

REM 

CLR  CONSOLE  DEV 

3576 

PRINTUSING 

3844,  “ " 

REM 

PRINT  INSTRUCTN 

80 


’ r . ...  ' . 


s 


3580 

REM  ** 

3584 

GQSUB  3856 

REM 

INIT  TEXT  BUFFR 

3588 

GOSUB  ' 

126 

( 33,13) 

REM 

VERT  TAB 

3592 

GOSUB  ' 

126 

( 46,30) 

REM 

LEFT  ARROWS 

3595 

GOSUB  ' 

126 

(361,  5) 

REM 

HORZ  TAB 

3600 

GOSUB  ' 

126 

(136,30) 

REM 

TEXT 

3604 

GOSUB  ' 

126 

( 91,30) 

REM 

RIGHT  ARROWS 

3608 

GOSUB  ' 

126 

( 91,35) 

REM 

RIGHT  ARROWS 

3612 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3616 

REM  ** 

3620 

GOSUB  ' 

126 

(181,30) 

REM 

LEFT  MARGIN 

3624 

GOSUB  ' 

126 

(226,40) 

REM 

SIZE 

3628 

GOSUB  ' 

126 

(361,35) 

REM 

HORZ  TAB 

3632 

GOSUB  ' 

126 

(316,25) 

REM 

RIGHT  MARGIN 

3636 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3640 

REM  ** 

3644 

GOSUB  ' 

126 

(361,  0) 

REM 

HORZ  TAB 

3648 

GOSUB  ' 

126 

(181,30) 

REM 

LEFT  MARGIN 

3652 

GOSUB  ' 

126 

(271,20) 

REM 

SIZE 

3656 

GOSUB  ' 

126 

(316,25) 

REM 

RIGHT  MARGIN 

3660 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3664 

REM  ** 

3668 

REM  ** 

3672 

GOSUB  3908 

REM 

INIT  TEXT  BUFFR 

3676 

GOSUB  ' 

126 

(285, 10) 

REM 

HORZ  TAB 

3680 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

3684 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

3688 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3632 

REM  ** 

3696 

FOR 

X7  = 2 TO  9 

REM 

BEG  LINE  LOOP 

3700 

GOSUB  ' 

126 

(285,30) 

REM 

HORZ  TAB 

3704 

GOSUB  ' 

126 

( ( (X7-1)*45)+1,LEN(X9*(X7) ) ) 

REM 

TEXT 

3708 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3712 

NEXT 

X7 

REM 

CONT  LINE  LOOP 

3716 

REM  ** 

3720 

GOSUB  ' 

126 

(285, 10) 

REM 

HORZ  TAB 

3724 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

3728 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

3732 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3736 

REM  ** 

3740 

REM  ** 

3744 

GOSUB  3968 

REM 

INIT  TEXT  BUFFR 

3748 

FOR 

X7  = 2 TO  8 

REM 

BEGIN  LINE  LOOP 

3752 

GOSUB  ' 

126 

(361,30) 

REM 

HORZ  TAB 

3756 

GOSUB  ' 

126 

(( ( X7- 1 ) *45 ) ♦ 1 , LEN ( X9* ( X7 ) > ) 

REM 

TEXT 

3760 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

3764 

NEXT 

X7 

REM 

CONT  LINE  LOOP 

3768 

REM  ** 

3772 

REM  ** 

3776 

*GIO  TOP 

«5  < 4000  ,R8*(9>) 

REM 

ISSUE  FORM  FEED 

3780 

KEY  IN 

R0*( 1 ) , 3800,  3780 

REM 

RESPONCE  WAIT 

3784 

IF 

R0*( 1 ) ■ HEX (81 ) 

THEN 

3780 

REM 

NO  TONE 

3788 

♦CIO  TONE 

/OOS  (R8*(4),R8*(9) ) 

REM 

PAUSE  TONE 

3792 

GOTO 

3780 

REM 

CONTINUE  WAIT 

3796 

REM  ** 

3800 

IF 

R0*( 1 ) * HEX ( 84 ) 

THEN 

3584 

REM 

REPRINT  PAGE 

3804 

IF 

R0*( 1 ) - HEX (81 ) 

THEN 

3780 

REM 

SHUT  OFF  TOME. 

3808 

GOTO 

4008 

REM 

BRANCH  TO  EXIT 

81 


38ia 

REM  ** 

3816 

REM  ** 

3sao 

REM  ** 

3834 

X LPT  UNDERSCORE  MENU  # 

3838 

X 

# 

3833 

X 

# 

3836 

X # Enter 

Code  from 

LPT 

3840 

X 

* * * * LINE 

3844 

x * * * * 

FOLLOW  INSTR 

3848 

REM  ** 

3853 

REM  ** 

3856 

INIT  <ao> 

X9*(  ) 

3860 

INIT  (OA) 

X9*(01> 

3864 

INIT  <0O> 

STR ( X9*  ( 1 ) , 

3868 

INIT  <"<“) 

X3»<03) 

387 2 

INIT  <">") 

X9*(03> 

3876 

X9*(04) 

_ M 

3880 

X9*(05> 

— M 

3884 

X9*(06> 

— M 

3888 

X9*(07> 

— II 

3833 

X3*(08> 

— N 

3896 

RETURN 

3300 

REM  ** 

3304 

REM  ** 

3308 

INIT  (30) 

X3*<  ) 

3313 

INIT  (OA) 

X9*( 1 ) 

3916 

INIT  (OD) 

STR ( X9*( 1 ) , 

3320 

INIT  (3D) 

X9*(10> 

3-334 

X9*(2) 

_ M 

3338 

X9*(3> 

— M 

3333 

X9*<4) 

— M 

3336 

X9*( 5) 

_ M 

3340 

X9*(6> 

— M 

3344 

X9*(7) 

_ || 

3348 

X9*(8> 

• M 

3-353 

X9*(9> 

= " 

3956 

RETURN 

3360 

REM  ** 

3364 

REM  ** 

3368 

INIT  (30) 

X3»(  ) 

3973 

INIT  (OA) 

X9*(l) 

3376 

INIT  (OD) 

STR ( X3* ( 1 ) , 

3-380 

X9*(2) 

. II 

3-384 

X3*(3) 

S 

3388 

X3*(4) 

s 

33-33 

X3*(5) 

s 

3336 

X3*(6) 

= 

4000 

X9*(7) 

= 

4004 

X3«(8) 

s 

4008 

RETURN 

1 - 
2 - 
3 - 


INSTRUCITON  FORMATS 

SINGLE  PAGE  UNDERSCORING 

MULTI  PAGE  UNDERSCORING  <W/  TAPE) 

DO  NOT  SCAN  FOR  UNDERSCORING 


IS  NOT  READY  * * * * 

ITN  OUTPUT  DEVICE  * * * * 


# 

# 


REM  LOAD  TEXT  BUFR  1 


««< 

14  7/8  X 11 
08  1/a  X 11 
Right  Margin 


Left  Margin" 


->»»" 


REM  EXIT 


REM  LOAD  TEXT  BUFR  2 


To  Continue  to  print  THIS  PAGE" 
TOUCH  the  'CONTINUE'  Key.“ 

To  Begin  Listing  TOUCH  the“ 
'RUN'  Key." 

This  page  should  appear  on" 
an  UPWARD  Facing  Page." 

: REM  EXIT 


REM  LOAD  TEXT  BUFR  3 


45,1) 

Special  Instructions  for  Underscoring: 

— Single  Page  Overlaying:  At  the" 
sound  of  the  tone,  position  page" 
two  inches  above  top  of  form. “ 
Multi  Page  Overlaying:  At  the" 
sound  of  the  tone,  position  paper" 
to  this  page  and  position." 

: REM  EXIT 
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f-’’  hC3E»e  1 


/STH<5!/  X 


1 1 


AUTHOR  -Sy  !=*-fce>mS 


4012 

4oig 

4020 

'1024 

4058 

4032 

4036 

4040 

4044 

4048 

4052 

4055 

4060 

4064 

4068 


Subroutine 
Abstrct  > < 

To  print  upper/lowor 
Variables  > 

W7$<)  > hash  contorl 


hash  lines  on  the  LP I device. 


buffer 


REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  *■* 

REM 
REM  ** 

REM  +****++**-**-»*-*-r*-*-**-fr*-*'tHv*-»-******'tHMH*-**-**-t»-*-»-** 

LIEFTN  ' 119  (W9) 

DIM  W7*(19)4,W8*(1>64 

INI  I (20)  W7*<)  : REM 

W7* ( 1 ) =HEX  < 2D2U2D2U  > : W7» ( 2 ) ^HEX ( OAOAOAOA ) : REM 
W8t ( 1 ) = “ AUTHOR : An  Automatic  Authoring  System 

REM 
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W9  > upper/lowor  index 


REM  ENTRY 


CLR  TABLE 
INI  I TABLE 
Version: 


5.0" 


4072 

REM  *-» 

1 

upper  ! 

lower  ! 

4076 

REM  ** 

! -- 

1 

4080 

ON  W9  G010 

40-32  , 

4155  : REM 

BRANCH 

4084 

REM  ** 

i 

4088 

REM  ** 

4092 

*CIO 

TOP 

#5 

( 400CA000 

,R8*<9)  )W7*(Kb,3> 

REM 

TOP  Oh  FORM 

4096 

*GIO 

TAB 

#5 

( AOOO 

,R8*(9))W7«(X9,38> 

REM 

H0R2  TAB 

4100 

*GIO 

HEAD 

#5 

( A0C0400D 

,R8*(9)  ) W84 (XI, 64 > 

HEM 

PRINT  HEADING 

4104 

*GIO 

LF 

#5 

(AOOO 

,R8*<9))W7*<  Xb,3> 

REM 

VERTICAL  TAB 

4108 

FOR 

W9 

= 1 TO  3 

REM 

PRINT  3 LINES 

4112 

*CIO 

TAB 

#5 

( A000407C 

, R8$(9) )W7$( ) <9, 33> 

REM 

HOHZ  TAB/HASH 

4116 

tcio 

TAB 

#5 

( A000407C400D,  RB9> ( 9 ) )W7*(  ><9,64> 

REM 

HCJRZ  TAB  /HASH 

4120 

NEXT 

W9 

REM 

PRINT  NXT  LINE 

4124 

*GIO 

TAB 

115 

(AOOO 

,R8*(9))W7*<  X9,30> 

REM 

HUHZ  tab 

4128 

*CIO 

HASH 

#5 

(AOOO 

,R8*(9>  )W7»(  Xl,4> 

REM 

PRINT  HASH 

4132 

*CIO 

TAB 

its 

(AOOO 

,R8*(9> )W7*(  X9,64> 

REM 

HORZ  1 AD 

4136 

*GIO 

HASH 

#5 

(A000400D 

,RS*(9)  )W7*(X1,4> 

REM 

PRINT  HASH 

4 1 40 

9.GI0 

LF 

its 

(AOOO 

,R8*(9))W7*(X5,3> 

REM 

VERTICAL  TAD 

4 3 44 

GOTO 

4192 

REM 

BRANCH  TO  EXlt 

4148 

REM  ** 

4152 

»GIO 

LF 

#5 

(AOOO 

,R8*<9>  >W7*(  X5,  3> 

REM 

VERTICAL  TAB 

4156 

*GIO 

TAB 

#5 

(AOOO 

,R8$<9>  )W7*(  X9,  30> 

REM 

HORZ  TAB 

4160 

*GIO 

HASH 

itb 

(AOOO 

,R8*<9>  )W7*(  XI,  4> 

REM 

PRINT  HASH 

4164 

tGIO 

TAB 

its 

(AOOO 

,R8*(9> )W7*< ) <9, 64> 

REM 

HORZ  TAB 

4168 

*GIO 

HASH 

if5 

< A000400L) 

,R8*(9>  )W7*(  XI, 4> 

REM 

PRINT  HASH 

4172 

FOR 

W9 

M TO  3 

REM 

PRINT  3 LINES 

4176 

*CIO 

TAB 

its 

(A00040/C 

,R8*(9))W7*(X9,33> 

REM 

HOHZ  TAB /HASH 

4180 

$GIO 

TAB 

ttb 

( A000407C4000, ROt (9) >W7*( ) <9, 64> 

HEM 

HORZ  1 AB/HASH 

4184 

NEXI 

W9 

REM 

PRINT  NXT  LINE 

4188 

REM  *•« 

4192 

RETURN 

REM 

EXIT 

ISO 


✓SLJ 

i i sar* 

sy 

e-  -fc  r> m : F*  ha  se-  1 — 

ATH2/I  —IS 

4196 

REM  ** 

4500 

REM  *•* 

4204 

REM  ** 

Subroutine  ♦•jhhhhi-^**^^*^^**^^****-*****-*****^*-*****-***  l cf  0 

4503 

REM  ** 

Abstract  > 

4515 

HEM  ** 

To 

print  the  underscore  overlay  buffer 

on  to 

LPi  device. 

4516 

REM  ** 

Variables  > 

4220 

REM  ** 

wt. 

> output  device  indx  ! W4*  > 

return  scan  flag 

4554 

REM  *■* 

23 

> end  of  file  flag  ! 

4553 

REM  *•* 

4535 

4536. 

DEFFN 

' 120 

: REM 

ENTRY 

4540 

IF 

W6  - 4 THEN 

4295 

: REM 

END  Of  PONT  FILE 

4544 

COSUB 

' 109 

: REM 

CREATE  OVERLAY 

4548 

ir 

W4*  = “TAPE"  THEN 

4580 

: REM 

WRITE  ON  TARE 

4555 

REM  ** 

4556 

COSUB 

' 122 

: REM 

DEVICE  WAIT 

456.0 

W4*  = “OVERLAY" 

: REM 

SET  SCAN  FLAG 

456-4 

G03UB 

' 108 

(Wt.) 

: REM 

PRINT  BIJFFR 

4568 

W4*  - “UNDERSCORE" 

: REM 

RESET  SCAN  FLAG 

4572 

CO  ID 

4344 

: REM 

BRANCH  TO  EXIT 

4576 

REM  +* 

4580 

COSUB 

' 190 

(15, 1 , Z3, 2048, 1,6) 

: REM 

WRITE  BUFFER 

4234 

GO  10 

4344 

: REM 

BRANCH  TO  EXIT 

4283 

REM  ** 

4595 

W6  ~ 3 

: REM 

RESET  DEVICE  f LG 

4 296 

GOSUB 

' 190 

( 10, 3, Z3, O, 1,6) 

: REM 

WRllE  EOF 

4300 

DEFrN 

' 016 

: REM 

RECOVERY  ENTRY 

4304 

COSUB 

' 190 

(9,3, 23,0, 1,6) 

S REM 

REWIND  TARE 

4308 

GOSUB 

' 122 

: REM 

DEVICE  WAIT 

4312 

W4*  - “OVERLAY" 

: REM 

SET  SCAN  FLAG 

4316 

COSUB 

' 190 

(7,1,23,2048,1,6) 

: REM 

READ  RECORD 

4350 

IF 

Z3  - 4 THEN 

4 332 

: REM 

END  Of  FILE 

4 354 

COSUB 

' 108 

(3) 

: REM 

PRINT  BUFFER 

4328 

COlO 

4316 

: REM 

READ  NXT  RECORD 

4332 

COSUB 

' 190 

(9,5,23,0, 1,6) 

: REM 

REWIND  TAPE 

4336. 

W4*  - “TAPE" 

: RFM 

RESET  SCAN  FLAC 

4340 

REM  ■** 

4344 

RETURN 

: REM 

EXIT 

84 
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ATHa/X 


1 a 1 


424  8 

IF 

W4*  - "TAPE" 

THEN  4280 

: REM 

WRITE  ON  TAPE 

4252 

ULM  ** 

4256 

COSUB  ' 122 

! REM 

DEVICE  WAIT 

4260 

W4*  = "OVERLAY* 

: RE'M 

SET  SCAN  FLAG 

4 264 

COSUB  ' 108 

(W6) 

: REM 

PRINT  BUFFR 

42ss 

W4*  « “UNDERSCORE" 

: REM 

RESET  SCAN  FLAG 

4272 

GOTO 

4 344 

: REM 

BRANCH  TU  EXIT 

4276 

REM  ** 

'►280 

GOSUB  ' 1-30 

(12,1,23,2048,1,6) 

: REM 

WRITE  BUFFER 

4284 

CO  10 

4344 

: REM 

BRANCH  TU  EXIT 

4288 

REM  ** 

4292 

W6  = 3 

: REM 

RESET  DEVICE  FLG 

4296 

COSUB  ' 190 

(10,  3,23,0,  1,6) 

: REM 

WRITE  EOF 

4 300 

DEFFN  ' 016 

: REM 

RECOVERY  ENTRY 

4304 

GOSUB  ' 190 

(9,3, Z3, 0,1,6) 

: REM 

REWIND  TAPE 

4308 

COSUB  ' 122 

: REM 

DEVICE  WAIT 

4312 

W4*  = “OVERLAY" 

: REM 

SET  SCAN  FLAC 

4316 

COSte  ' 190 

(7, 1,Z3,2048, 1,6) 

: REM 

READ  RECORD 

4320 

IF 

Z3  = 4 

THEN  4332 

: REM 

END  OF  FILE 

4324 

COSUB  ' 108 

(3) 

: REM 

PRINT  BUFFER 

4328 

GO  10 

4316 

: REM 

READ  NX  I RECORD 

4332 

COSUB  ' 190 

(9,2, Z3, 0,1,6) 

: REM 

REWIND  TAPE 

4 336 

W4*  - "TAPE" 

: REM 

RESET  SCAN  FLAG 

4340 

REM  ** 

4344 

RETURN 

: REM 

EXIT 

4348 

REM  ** 

4352 

REM  ** 

4356 

RtM  **■*  Subroutine  »»»»»»«••» »»»»«-*»» # # *•» « »»»»«•  l 2 1 

4 360 

REM  **  Abstract  > 

4 364 

REM  **  To 

Clear  all  tab  stops  and 

set  the  needed  tab  Etops. 

436.8 

REM  *•*  Variables  > 

4 372 

REM  **  W9 

> scratch  loop  indx  ! 

R94()  > temp  tab 

buffer 

4 376 

REM  **  W8 

> scratch  loop  indx  ! 

4380 

f!EM  «* 

4 384 

4388 

DEFFN  ' 121 

: REM 

ENTRY 

4392 

REM  ** 

4 396 

FOR 

W9  = 9 TO  1 STEP  -4 

: REM 

DECRMNT  LOOP 

4400 

*GI0  CRLF 

#5  (4000  ,R8*(9>) 

: REM 

CRLF 

4404 

FUR 

W8  - 1 TU  W9 

: REM 

TAB  LOOP 

4408 

*GIO  CLRTAB 

#5  (40094019  ,R8$(9)) 

: REM 

TAB /CLEAR 

4412 

NEXT 

W8 

: REM 

NEXT  TAB 

4 416 

NEXT 

W3 

: REM 

DECMNT  LOO- 

4420 

REM  *•* 

4424 

INI> (20) 

R9*'  ) 

: REM 

CLR  TAB  BUFFR 

4428 

*GIO  CRLF 

#5  (400D  ,R8*<9)) 

: REM 

CRLF 

4 4 32 

»GIO  TAB SET 

#5  (A000401A  ,R8*(9) )R9*( XI, 18> 

: REM 

TAB  AND  SET 

4436 

4GI0  TA8SLT 

#5  (4020A000401A,R8*(9)  )R9»<  )<1,64> 

: REM 

TAD  AND  SET 

4440 

*GIO  CRLF 

Ttb  (4000  , R8* < 9 ) ) 

: REM 

CRLF 

4444 

REM  ** 

4448 

RETURN 

: REM 

EXIT 

85 
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4452  REM  +* 


4456  REM  *+ 

/,/,(-,0  rem  *•*  Subroutine  ■wHHHHHHHHMHHHMHHeMHMHHHHHHHHHHHHHHHHHMHHHHHe*  IBB 
4464  REM  ■“■•*■  Abstract  > 


4468  REM  *-» 
4472  REM  *-* 
4 4 7C  RLM  *•* 
4480  REM  ** 
4484  REM  ** 


To  allow  the  output  device  to  be  reset.  Program  will 
pause  until  the  device  is  disabled  then  will 
continue  until  a device  ready  is  sensed. 

Variables  > 

Ws*<)  > micro  command  buffer  ! W6  > output  device  indx 


4433 

REM  ** 

r>i'  U JLikJLXJL. 

[-■ft- .ft- -ft. 

4 4 92 

REM  #•****• 

VHjBI 

4496 

DEFFN  ' 

152 

A 500 

DIM 

W9^<5)8 

4504 

W9S<1)  « HEX <122141002020) 

4503 

W9*<2>  * HEX (122145002020) 

4512 

W9*<3)  « HEX (1221 4 1002020) 

4516 

♦CIO  TONE 

/005  (R8<(4  ) , R3t*<9)  ) 

4520 

♦CIO  TSI 

ON 

#5  <W3^(Wt) ,R8«<9) ) 

4524 

♦ IF  ON 

45, 

4516 

4528 

♦ CIO  TST 

ON 

#5  (W3«<W6)  .R8T.C3)  ) 

4532 

♦ If-  ON 

its, 

4540 

4536 

GOTO 

4528 

4540 

♦CIO  TST 

ON 

*5  <W9S(W6),H8*<9) > 

4544 

♦ IF  ON 

ns. 

4552 

4548 

GOTO 

4520 

4 552 

RETURN 

REM  ENTRY 

REM  DEFINE  WORK  SUFR 
REM  INI T MICRO  CMND 
REM  IN IT  MICRO  CMND 
REM  INI  I MICRO  CMND 
REM  ATTENTION  TUNE 
REM  SEND  TST  SICNAL 
REM  If-  READY 
REM  SEND  1ST  SIGNAL 
REM  IF  READY 
REM  If  NOT  READY 
REM  SEND  TSi  SICNAL 
HEM  IF  READY 
REM  IF  NOT  READY 
REM  EXIT 


AU  I'HOR  Syctem 


P ha  & t?  1 


ATH3/X 


1 


REM  *+ 

HEM  ** 

HEM  +*  Sub 
REM  **  Abu 
REM  **  Ti 
HEM  **  Var 
HEM  **  Q, 
HEM  **  W 
REM  **  W 
REM  ** 

REM  •*"*■*-****- 
DEFFN  ' IS: 
HEM  ** 

REM  ** 

HEM  ** 

ON  WE.  GOTO 
REM  ** 

REM  ** 

MAT  COPY 
GOTO 
REM  ** 

II- 

FOH 

MAT  COPY 
NEXT 
REM  ** 
RETURN 


Subroutine  **^*#**w+****^*HHt*#**<HHHt*******«*+****»** 
Abstract  > « 

To  load  3 S line  text  buffer  for  16  line  input  buffer. 
Variables  > 


QS*<)  > input  text  buffer 
W9  > temp  text  bufr  indx 
W6  > output  device  indx 


WS*<)  > 3S  line  text  buffer 
WS  > temp  text  bufr  indx 


REM  ENTRY 


QS*(  XI  j 1024>  TO  WS* ( ) < 1 , S04B> 

4664 

W4*  - "OVERLAY"  THEN  4664 

W9  « 1 TO  10S4  STEP  64 

WS  = <W3*S>  - 1 

QS*  < ) <W9, 64 > TO  WS* ( ) <W8, 1S8> 

WS 


REM  BRANCH 


REM  LOAD  1 EXT  BUFR 
REM  BRANCH  TO  EXIT 

REM  SKIP  ADJUSTMENT 
REM  BEC  BUFR  LOOP 
REM  CMPUT  NEW  POS 
REM  LOAD  TEXT  BUFR 
REM  CONT  LOAD 

REM  EXIT 


O 
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3 >'  -t  c-in  : F*  ha  r-  c? 


2592 

- 

2580 

2636 

- 

2580 

2t.€.2 

- 

2623 

2776 

- 

2748 

2/52 

2780 

- 

2768 

2892 

2*338 

2992 

2928 

~ 

2904 

2970 

- 

2*922 

2952 

- 

28*92 

2978 

- 

28*96. 

2952 

2*383 

- 

2930 

2944 

3076 

2*916 

2940 

3144 

- 

?912 

2*960 

3212 

- 

2*936. 

2976 

3324 

- 

3312 

3364 

* 

3352 

3380 

- 

3352 

3400 

- 

3352 

33/2 

3516 

- 

3516 

3520 

- 

3516 

3528 

- 

3580 

3538 

3470 

354  4 

- 

3528 

3568 

3572 

- 

3548 

3524 

- 

38*90 

3780 

3780 

3724 

3800 

3/80 

3824 

- 

3492 

3328 

3496 

3832 

- 

3500 

3836. 

- 

3512 

3340 

- 

.3556 

3344 

- 

3576 

3356 

“ 

3584 

3*908 

- 

36.72 

3*968 

- 

3744 

4003 

- 

34  56 

3460 

4092 

- 

4080 

4158 

- 

4080 

4192 

- 

4144 

4280 

- 

4248 

4290 

- 

4240 

4316 

- 

4328 

4332 

“ 

4 320 

4344 

- 

4272 

4284 

4516 

“ 

4524 

4520 

- 

4542 

4528 

- 

4536. 

4540 

“ 

4532 

4552 

- 

4544 

4623 

- 

4616 

4640 

- 

4616 

4644 

- 

4616 

46C4 

- 

4632 

4640 

^Tt-ia/I 


■#+ 


MAP 


c 


S*»  MA.H 
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Q2*( 

- 

4638 

4652 

R0*( 

- 

3516 

3520 

3528 

3780 

3784 

3800 

3804 

R 2*( 

- 

3730 

2724 

2728 

2732 

2/36 

2740 

3008 

3012 

3080 

3088 

3148 

3.1  56 

3216 

3224 

3308 

3312 

3316 

3320 

3324 

R5*( 

- 

3008 

3308 

R8*( 

- 

2593 

2596. 

2600 

2604 

26.08 

2612 

2616 

2620 

2624 

2636 

2640 

26.44 

2648 

2652 

3656 

266.0 

2884 

2300 

2908 

2932 

2-356 

2972 

3020 

3328 

3332 

3336 

336.4 

336-8 

3384 

3388 

3544 

3560 

3776 

3788 

4092 

4096 

4100 

4104 

4112 

4116 

4124 

4128 

4133 

4136 

4140 

4152 

4156 

4160 

4164 

4168 

4176 

4180 

4400 

4408 

4428 

4 432 

4436 

4440 

4516 

4520 

4528 

4540 

R9*< 

- 

3004 

3008 

3304 

3308 

3380 

3384 

4424 

4432 

44  36. 

T 

- 

2832 

WO 

- 

3833 

2876 

2300 

2-308 

2332 

2356 

2372 

3016 

3020 

3084 

3152 

3220 

3324 

3328 

3368 

3388 

W1 

- 

2724 

2748 

2232 

28-36 

2300 

2304 

2928 

2388 

3084 

3088 

wa 

- 

3012 

3016 

3020 

W2*< 

- 

2-300 

2-308 

2332 

2956 

2372 

3004 

3020 

3300 

3304 

3368 

3388 

4628 

4652 

W3* 

- 

2764 

2776 

W3*< 

- 

3720 

3080 

l'J4* 

“ 

3456 

3460 

3464 

3468 

3472 

3476 

3524 

3532 

4248 

<26.0 

4260 

4312 

4336 

4640 

W6 

- 

3352 

4240 

4264 

4292 

4520 

4528 

4540 

4616 

W7 

- 

2720 

3076 

3080 

W7*< 

- 

2544 

2548 

2552 

2556 

2560 

2592 

2604 

2608 

2612 

2616 

2620 

2624 

2636 

2640 

2644 

2648 

2652 

2656 

2660 

4052 

4056. 

4060 

4092 

4096 

4104 

4112 

4116 

4124 

4128 

4132 

4136 

4140 

4152 

4156 

4160 

416.4 

4168 

4 1 76. 

4180 

W8 

- 

2748 

2752 

2756 

2880 

2388 

2992 

2396 

3236. 

4404 

4412 

4648 

4652 

W8'*< 

- 

2544 

2564 

2596. 

4052 

406.4 

4100 

W9 

- 

2540 

2580 

2832 

2800 

2300 

2308 

2932 

2356 

2372 

3004 

3020 

3084 

3152 

3220 

3296. 

3300 

3304 

3368 

3388 

4048 

4030 

4108 

4120 

4172 

4184 

43-36. 

4404 

4416 

4644 

4648 

4652 

4656 

W9*< 

- 

2848 

2852 

2856 

2860 

2864 

2868 

2884 

2300 

2908 

2932 

2356 

2972 

3020 

3288 

3292 

3300 

4500 

4504 

4508 

4512 

4520 

4528 

4540 

X3 

- 

2728 

3144 

3148 

X3*< 

- 

2728 

3148 

X4 

- 

2732 

2752 

2892 

2904 

2352 

2956 

23-32 

3152 

3156 

X7 

“ 

36.96. 

3704 

3712 

3748 

3756. 

3764 

X9*( 

- 

3452 

3704 

3756 

3856 

3860 

3864 

3868 

3872 

3876 

3880 

3884 

3888 

3892 

3-308 

3-312 

3916 

2320 

3-324 

3928 

3932 

2336. 

3940 

3944 

3948 

2352 

3968 

3972 

3976 

3-380 

3984 

3988 

3-3-32 

3996 

4000 

4004 

Y3 

- 

2736 

3212 

3216 

Y3*< 

- 

2736 

3216 

Y4 

~ 

2740 

2756 

28-96 

2328 

2952 

2372 

29-36 

3220 

3224 

Z3 

“ 

3536 

4280 

4236. 

4304 

4316 

4320 

4332 

o 
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DfcFFN ' 16 
DfcFFN ' 101 

- 3484  3508  3552  3564 
DEFFN ' 108 

- 4864  4384 
DEFFN ' 109 

- 4344 
DEFFN'  114 
DEFFN'  115 
DfcFFN'  116 
DEFFN'  117 
DfcFFN'  118 
DEFFN'  119 
DEFFN'  180 
DEFFN'  181 
DEFFN'  iaa 

- 4356  4308 
DfcFFN'  133 
DEFFN'  136 

- 3588  3593  3596.  3600  3604  3608  3613  3630  3634  3638  36.33  3636  3644  36.48 
3653  3656  3660  367fc.  3680  3684  3688  3700  3704  3708  3730  3734  3738  3733 
3753  3756  3760 

DfcFFN'  190 

- 3536.  4380  43-36  4304  4316  4333 


TAEG  Report  No.  59 


3.2.3  ATH3/I 

This  section  of  the  'AUTHOR/1 1 program  contains  subroutines 
124  to  126. 

The  remainder  of  this  section  presents  the  'ATH3/I'  program 
listing  and  reference  maps. 


AUTHOR 


-tom:  P ho 


■ e: 


ATM 3 / J 


5000  Program 

5004  REM  ** 

BOOS  REM  *+ 

5012  REM  ** 

5016  RtM  *+ 

5020  RtM  ** 

502':  RtM  ** 

5028  REM  ** 

5032  REM  ** 

5036  REM 


AUTHOR/1  (ATH3/I  ) Version  > 2.0  2200  ! /VP  780316 

Subroutine  *******#****♦*#♦#**♦****«*#*♦#*«+***#*****#*+  1 2 '’i 
Abstract  > 

This  routine  will  select  the  type  of  special 
character  scanning  to  be  executed. 

Variables  > 

W6t  > scaning  flag  bufr  I R0*()  > char  input  bufr 


SO'iO 

DtFFN  ' 124 

: REM 

ENTRY 

5044 

IE 

W6*  - " 7ER0“' 

THEN 

5212 

I REM 

SCAN  SELECTED 

BOAS 

IF 

W6*  “ "ZEE"' 

THEN 

5212 

: REM 

SCAN  SELECTED 

5052 

IF 

W6*  = " BO  1 H" 

THEN 

5212 

: REM 

SCAN  5LLECTED 

5056 

IE 

W6*  - “NULL". 

THEN 

S3 12 

: REM 

SCAN  SELECTED 

5060 

REM  ** 

506.A 

PRINT 

HEX < 03) 

: REM 

CLR  CRT  SCREEN 

BOSS 

COSUB  ' 101 

(5,  1,0,0) 

: REM 

POSITION  CUSOR 

5072 

SELECT 

PRINT  005 

: re:m 

SSL  DISPLY  MODE 

5076 

PRINTUSING 

5188,  " “ 

: REM 

PRINT  MENU 

5080 

PRINTUS1NG 

5192,  " " 

5084 

PRINTU5INC 

5196,  “ “ 

5088 

PRINTUSINC 

5200,  " “ 

5092 

SELECT 

PRINT  405 

: REM 

SEE  DISPLY  MODE. 

5096 

COSUB  ' 101 

(2, 1,0,0) 

: REM 

POSITION  CUSOR 

5100 

PRINTUSINC 

5204,  “ “ 

510': 

KEY  IN 

ROS( 1 ) , 5108,  5108 

: 

GOTO 

5104 

: REM 

RESPOND t WAIT 

5108 

PRINT 

HEX<03) 

: REM 

CLR  CRT  SCREEN 

5112 

W6*  - "NULL" 

: REM 

SET  DEFLT  VALUE 

5116 

IF 

R0*<1)  <>  “1" 

THEN 

5123 

: REM 

SET  '0'  SCAN 

5120 

W6*  = "ZERO" 

5124 

REM  *•* 

5128 

IE 

RO*  < 1 ) <>  "2" 

THEN 

5140 

: RtM 

SET  '2'  SCAN 

5132 

W6*  *•  "ZEE" 

5136 

RtM  *"* 

5140 

IE 

RO* < 1 ) <>  "3“ 

THEN 

5152 

: REM 

SET  '0-Z'  SCAN 

5144 

W6*  * "BOTH" 

5142 

REM  ** 

5152 

IF 

W6*  "NULL" 

THEN 

5212 

: REM 

BRNCH  TO  EXIT 

5156 

IF 

W6  0 3 

THEN 

5212 

: REM 

NOT  LPT  OUTPUT 

5160 

W4*  - “SET  PRINTER" 

: REM 

SET  SCAN  FLAG 

516.4 

SELECT  #5 

015 

: REM 

SEE  LINE  PRINTER 

5168 

SELECT  TAPE 

07B 

: REM 

SEE  TAPE  DRIVE 

5172 

COSUB  ' 118 

: REM 

INI V PRINTER 

5176 

REM  ** 

5180 

REM  ** 

OUTPUT  IMAGE  FORMATS 

5184 

REM  ■** 

5188 

X tt  Spenal 

Character  Scanning  > 

l 

- Scan 

i for 

zero 

(0  <-  /) 

5192 

X * 

2 

- Scan 

i for 

zee 

(Z  <-  -) 

51 ’36. 

X # 

3 

- Scan 

for 

both 

'O'  & 'Z' 

5200 

X # 

4 

- NO  Special  Scanning 

5204 

X tt  Enter  Scanning  Code  from  Below 

Table  > 

5208 

RLM  **• 

6218 

RETURN 

: REM 

EXIT 
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AUTHOR  Sy  e-tem:  Pha&e 


ATH3/I 


— 1 


5216 
5220 
5224 
5228 
5232 
52 36 
5240 
5244 
5248 
5252 
5256 
5260 
5264 
5268 
52/2 
5276 
5280 
5284 
5288 
5292 
5296 
5300 
5304 
5308 
5312 
5316 


REM 

REM 

-*■* 

REM 

*-* 

REM 

*■» 

REM 

+■» 

REM 

## 

REM 

REM 

REM 

REM 

REM 

REM 

*-* 

REM 

*-* 

REM 

*-* 

RLM 

DEFFN 

IF 

GOlO 

Subroutine 
Abstract  > i 

This  routine  will  scan  search  search  return  buffer 
and  insert  special  character  into  text  buffer  in 
location  specified  by  buffer  value. 

Variables  > 

R4  > lookup  tbl  row  indx 
X6  > rtrn  row  indx  on  0 
X8  > max  table  row  indx 
R2*(>  > search  bufr  value 
R6  > decimal  bufr  value 


R5  > lookup  tbl  col  indx 
X7  > rtrn  col  indx  on  O 
X9  > max  table  col  indx 
R0*( ) > spcl  insert  char 


1 2 5 


125  <R4,R5,X8, X9,K2*<1 > ,R0*< 1 > > 

R6  ^ FNR(VAL(R2*<1>)> 

R6  <>  0 THEN  5304 

X6  - R4  : X7  «=  R5 

R4  - X8  : R5  - X9 


REM  ** 

IF 

MAT  COPY 
RETURN 
REM  ** 


W6  = 2 THEN  5312 

R0*(><1,1>  TO  W2*<)<R6,1> 


REM  ENTRY 

REM  CMP UT  DECMAL  POS 
REM  NOT  END  OF  TABLE 
REM  SAVE  END  OF  TABLE 
REM  SEND  END  OF  LOUP 
REM  BRNCH  TO  EXIT 

REM  TTY  OUTPUT 
REM  INSR1  SPCL  CHAR 
REM  EX 1 1 
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53ie 
5320 
5324 
5328 
5332 
£>336 
5340 
5344 
£>348 
5353 
5356 
5360 
5364 


HbM  ** 
RbM  ** 
REM  *•* 
REM  +* 
RbM  ** 
RbM  ** 
REM  ** 
RbM  ** 
REM  ** 
REM 
DEFFN  ' 
«GI0  PR 
RETURN 


Subroutine 
Abstract  > * 

This  routine  will  print  the  text  string  buffer 
X9$()  as  specified  by  input  string  parameters. 
Variables  > 

X8  > beging  string  position  ! X9  > length  of  string 


1 a 6 


126  (X8,X9) 
1NT  its  < AOOO 


, H8* ( 9 > > X9*  < > <X8, X9> 


REM  ENTRY 

RbM  PRINT  TEXT  STRING 
RbM  EXIT 


/SUIHCIR  System:  Phase  1 — — # MAI 


5104  - 5104 

5103  - 5104 

5138  - 5116 

5140  - 5138 

5153  - 5140 

5188  - 5076 

5193  - 5080 

5196.  - 5084 

5300  - 5083 

5304  - 5100 

5313  - 5044  5048  5053  5056  5153  5156 

5304  - 5384 

5313  - 53-36  5304 
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3.2.4  ATH4/I 

This  section  of  the  'AUTHOR/1'  program  contains  subroutines 
190  and  191.  These  two  subroutines  represent  a general 
purpose  nine- track  tape  utility. 

The  remainder  of  this  section  contains  the  'ATH4/I'  program 
listing  and  reference  maps. 


I 


98 


AUTHOR  Sys-t  em 


Ph 


e-  1 


ATHA / X 


19  0 


Program  > AUTHOR/1  (ATH4/I 


Version  > 2.0  2200  T/VP  780317 


Abstract  > 

This  is  a general  nine  track  utility  package.  This 
Routine  Mill  perform  the  following  functions  > 

1 - < BSF  > - Backspace  one  File; 

2 - < BSR  > - Backspace  one  Record  (read  ready); 

3 - < BSW  > - Backspace  one  Record  (write  ready); 

4 - < CLEANS  - Clean  local  area  on  tape; 

5 - < FSF  > - Space  Forward  one  File; 

6 - < FSR  > - Space  Forward  one  Record; 

7 - < READ  > - Read  Record; 

8 - <REREAD>  - Backspace  and  Read  Record; 

9 - <REWIND>  - Rewind  tape  to  Load  point; 

10  - < WEOF  > - Write  End  Of  File  mark; 

11  - < WGAP  > - Write  Inter  Record  Gap; 

12  - < WRITE>  - Write  Record. 

A scan  for  I/O  errors  will  be  performed  according  to 
the  following  index  > 

1 - Data  Input/Output  errors  (7,12,8) 


2 - Position  errors  (1,2, 

3 - Control  Output  errors  (10,1 

4 - No  error  processing 

A error  index  is  returned  in  variable 
Values  of  Z3  are  > O Fatal  E 

1 - Tape  at 

2 - Tape  is 

3 - End  of 

4 - End  of 

Variables  > 

Z1  > Function  index  ! Z2  > err 

Z3  > return  error  index  ! Z4  > tra 

Z5  > suppress  error  mesg  ! Z6  > dev 

Zl*()  > micro  cmnd  buffer  ! Z2$( ) > 

W2*()  > i/o  buffer  ! 


(1, 2,5,6, 9,4) 

( 10,11,3) 

variable  > Z3 
Fatal  Error 
Tape  at  Load  Point 
Tape  is  Write  Disabled 
End  of  Tape  Sensed 
End  of  File  Sensed 

Z2  > error  index 
Z4  > transfer  buffer  size 
Z6  > device  table  indx 
Z2$( ) > error  mask  buffer 


■ « 
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1 *3»  O 


U 


5617 

DEFFN 

' 190 

(Z1,Z2,Z3, 

Z4,Z5,Z6) 

REM 

ENTRY 

5620 

DIM 

Zl*( 13) lO, 

Z2*(12>1,Z3*40 

REM 

DEFINE 

WORK  BUFRS 

5653 

DEFFN 

Z < Z ) =2S6*VAL ( STR ( Z 1 * ( Z ) , 9 , 

1) )+FNY(Z) 

REM 

DEFINE 

FUNCTION 

5626 

DEFFN 

Y(Y)=VAL(STR(Z1*(Y),10, 1) ) 

REM 

DEFINE 

FUNCTION 

sees 

SELECT 

TAPE  07B 

REM 

SEL  TAPE  DEVICE 

5632 

Zl*( 

1) 

S 

HEX  < 6CF 344008607 > 

REM 

DEFINE 

MICRO  CMND 

5635 

Zl*( 

2) 

= 

HEX ( 6CF 1 44008607 ) 

REM 

DEFINE 

MICRO  CMND 

5638 

Zl*( 

3> 

3 

HEX ( 6CF 044008607 ) 

REM 

DEFINE 

MICRO  CMND 

5641 

Zl*< 

4) 

3 

HEX ( 6CF744008607 ) 

REM 

DEFINE 

MICRO  CMND 

5644 

Zl*( 

5) 

= 

HEX ( 6C F 444008607 ) 

REM 

DEFINE 

MICRO  CMND 

5647 

Zl*< 

6) 

= 

HEX  < 6CF244008607 ) 

REM 

DEFINE 

MICRO  CMND 

5650 

Zl*< 

7) 

= 

HEX  < 6CFB4400C2228607 ) 

REM 

DEFINE 

MICRO  CMND 

5653 

Zl*( 

8) 

3 

HEX ( 6CF84400C 2228607 ) 

REM 

DEFINE 

MICRO  CMND 

5656 

Zl*( 

9) 

5= 

HEX  < 6CF544008607 > 

REM 

DEFINE 

MICRO  CMND 

5659 

Zl*(10> 

« 

HEX ( 6CF94 4008607 ) 

REM 

DEFINE 

MICRO  CMND 

5662 

Zl*(ll> 

= 

HEX  < 6CF 644008607 ) 

REM 

DEFINE 

MICRO  CMND 

5665 

Z14>(  12) 

3 

HEX ( 6CF A4400A2068607 ) 

REM 

DEFINE 

MICRO  CMND 

5668 

Zl*(13) 

S 

HEX ( 1 1223344556600000000 ) 

REM 

DEFINE 

MICRO  CMND 

5671 

REM  ** 

5674 

Z2*( 

1) 

= 

HEX (80) 

: Z2*( 

2)  = 

HEX (40) 

REM 

DEFINE 

ERR  MASKS 

5677 

Z2*( 

3) 

3 

HEX < 20) 

: Z2»( 

4)  = 

HEX ( 10) 

REM 

DEFINE 

ERR  MASKS 

5680 

Z2*< 

5) 

3 

HEX  < 03  > 

: Z2*( 

6)  = 

HEX (04) 

REM 

DEFINE 

ERR  MASKS 

5683 

Z2*( 

7> 

= 

HEX (02) 

: Z2«( 

8)  = 

HEX ( 04) 

REM 

DEFINE 

ERR  MASKS 

5686 

Z2*( 

9) 

HEX (02) 

: Z2*( io)  = 

HEX(Ol) 

REM 

DEFINE 

ERR  MASKS 

5689 

REM  ** 

5692 

*GI0  TAPE 

(Z1*(Z1),Z1*(13)>  W2*(K1,Z4> 

REM 

EXECUTE  FUNCTION 

5695 

REM  ** 

5698 

Z3  = 0 

REM 

CLR  RETURN  FLAG 

5701 

REM  *+ 

5704 

REM  ** 

i I/O  ! 

POS  ! 

CTL 

! NULL 

1 

5707 

REM  ** 

1 1 

_ t 

1 

5710 

ON  Z2 

GOTO 

5719  , 

5743  , 

573* 

, 5764 

: 

REM 

BRANCH 

5713 

REM  ** 

1 1 

_ 1 ...... 

i 

5716 

REM  *•* 

5719 

GOSUB 

' 191 

(7,2) 

REM 

RCVRBL 

DAT  ERR 

5722 

GOSUB 

' 191 

(8,9) 

REM 

TRANSMIT  DAT  ERR 

5725 

GOSUB 

' 191 

(8, 10) 

REM 

DAT  OVERFLOW  ERR 

5728 

GOSUB 

' 191 

(9, 10) 

REM 

DAT  OVR/UNDR  FLOW 

5731 

REM  ** 

5734 

GOSUB 

' 191 

(7,1) 

REM 

IRRCVRBL  DAT  ERR 

5737 

GOSUB 

' 191 

(7,4) 

REM 

WRITE  DISABLED 

5740 

REM  ** 

5743 

GOSUB 

' 191 

(7,3) 

REM 

BEG  OF 

TAPE 

5746 

GOSUB 

' 191 

(7,5) 

REM 

END  OF 

TAPE 

5749 

GOSUB 

' 191 

(7,6) 

REM 

END  OF 

FILE 

5752 

GOSUB 

' 191 

(7,7) 

REM 

DEV  NOT  READY 

5755 

GOSUB 

' 191 

(8,8) 

REM 

MICRO  CMND  ERR 

5758 

IF 

Z3  = 3 

THEN  56.92 

REM 

REPROCS  RECORD 

5761 

REM  ** 

5764 

RETURN 

REM 

EXIT 

100 
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5767  REM  ** 

5770  REM  ** 

5776  REM  **  Abstract  > 

5773  REM  **  To  mask  the  CIO  register  buffer  with  error 

5782  REM  **  mask  buffer  and  display  error  messages  if  any. 

5785  REM  **  Variables  > 

5788  REM  **  Z5  > supress  non-fatal  msgs  ! Z7  > buffer  register 

5791  REM  **  Z8  > error  index  to  check  ! Z4  > transfer  bufr  size 

5794  REM  **  Z9  > characters  processed  ! Zl*( ) > micro  cmnd  buffer 

5797  REM  **  Z 2*0  > error  mask  buffer  ! Z3*  > non-fatal  err  msg 

5800  REM  **  Z3  > return  error  index  ! ZO  > multi  volume  flag 

5803  REM  ** 


5803 

DEFFN  ' 

191 

<Z7,Z8> 

REM 

ENTRY 

5812 

IF 

Z3  <>  0 

THEN 

5956 

REM 

PRIVIOUS  ERR 

5815 

IF 

Z7  <>  9 

THEN 

5842 

REM 

NOT  COUNT  REG 

5818 

GOSUB  ' 

191 

(7,6) 

REM 

EOF  TEST 

5821 

IF 

Z3  = 4 

THEN 

5956 

REM 

EOF  RECORD 

5824 

GOSUB  ' 

191 

(7,5) 

REM 

EOT  TEST 

5827 

IF 

Z3  = 3 

THEN 

5956 

REM 

EOT  ERROR 

5830 

Z9  = FNZ (13) 

REM 

CMPUT  TRANSFR  CNT 

5833 

IF 

Z4  <>  Z9 

THEN 

5881 

a 

a 

REM 

OVR/UNDR  FLOW  ERR 

5836 

GOTO 

5956 

a 

a 

REM 

BRANCH  TO  EXIT 

5833 

REM  ** 

5842 

IF 

Z8  <>  5 

THEN 

5854 

a 

a 

REM 

NOT  EOT  TEST 

^845 

IF 

Z1  <>  9 

THEN 

5854 

a 

a 

REM 

NOT  REWIND 

848 

IF 

ZO  = 99 

THEN 

5869 

a 

REM 

PREVIOUS  EOT  ERR 

851 

REM  ** 

34 

AND 

(Z2*(Z8), 

STR(Z1*(13),Z7,1)> 

REM 

MASK  REGISTER 

3857 

IF 

Z2*(Z8>  = 

HEX(OO)  THEN 

5956 

REM 

NO  ERROR 

5860  REM  ** 

5863  REM  **  ! 01  F ! 02  F ! 03  I ! 04  I ! 05  I ! 

5866  REM  **  ! ! ! ! ! ! 

5869  ON  Z8  GOTO  5881  , 5881  , 5914  , 5917  , 5920  , 

5926  , 5881  , 5881  , 5881  , 5881  : REM  BRANCH 

5872  REM  **  ! ! ! -> ! ! ! 

5875  REM  **  ! 06  I ! 07  F ! 08  F ! 09  F ! 10  F ! 

5878  REM  ** 

5881  PRINT  HEX(01070C0C0C>;  : REM  POSITION  CUSOR 

5884  PRINT  “Touch  'CONTINUE'  'RETURN'  to  Attempt  Recovery"; 

5887  REM  ** 

5890  REM  **  ! 01  F ! 02  F ! 03  I ! 04  I ! 05  I ! 

5893  REM  **  • ! ! ! ! ! 

5896  ON  Z8  GOTO  5908  , 5911  , 5914  , 5917  , 5923  , 

5926  , 5929  , 5932  , 5935  , 5938  : REM  BRANCH 

5899  REM  **  • ! ! ! ! ! 

5902  REM  **  ! 06  I ! 07  F ! 08  F ! 09  F ! 10  F ! 

5905  REM  ** 


o 
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5908 

STOP 

“IRRECOVERABLE  DATA  ERROR" 

GOTO 

5956 

VJ 

5911 

STOP 

"RECOVERABLE  DATA  ERROR" 

GOTO 

5956 

591 A 

Z3  = 1 

: Z3*  = “BEGINING  OF  TAPE* 

GOTO 

5944 

5917 

Z3  = 5 

: Z3*  = “TAPE  WRITE  DISABLED" 

GOTO 

5944 

5950 

Z3  = 3 

: 13*  = “END  OF  TAPE"  : ZO  = 99 

GOTO 

5881 

5953 

STOP 

“MOUNT  FIRST/NEXT  TAPE  VOLUME..." 

GOTO 

5944 

5956. 

Z3  = 4 

; Z3*  = “END  OF  FILE" 

GOTO 

5944 

5959 

STOP 

"TAPE  UNIT  NOT  READY" 

GOTO 

5956 

5935 

STOP 

"INVALID  MICRO  COMMAND  SEQUENCE" 

GOTO 

5956 

5935 

STOP 

"DATA  READ  ERROR" 

GOTO 

5956 

5938 

STOP 

"DATA  OVER /UNDER  FLOW  ERROR" 

GOTO 

5956 

5941 

REM  *-» 

5944 

IP 

Z5  = 0 THEN  5956  : REM  SUPPRESS  MESG 

5947 

PRINT 

HEX(01070C0C0C);  : REM  position  CUSOR 

5950 

PRINT 

STR<Z3*. 1,40);  : REM  PRINT  MSG 

5953 

REM  ** 

5956 

RETURN 

: REM  EXIT 

I 

X * 
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569  2 

- 

5758 

5719 

- 

5710 

5734 

- 

5710 

5743 

“ 

5710 

5764 

- 

5710 

5842 

- 

5815 

5B54 

“ 

5842 

5845 

5869 

- 

5848 

5881 

“ 

5833 

5869 

5920 

5908 

- 

5895 

b91 1 

- 

58'9fc 

5914 

- 

5869 

5896 

5917 

- 

5869 

5896 

5920 

“ 

5869 

5923 

- 

5896 

5926 

- 

5869 

5896 

5929 

- 

5896 

5932 

- 

5896 

5935 

- 

5896 

5938 

- 

58-96 

5944 

- 

5914 

5917 

5923 

5955 

- 

5812 

5821 

5827 

C 
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wa*< 

- 

5695 

Y 

- 

5656. 

z 

- 

5653 

zo 

- 

5848 

5950 

21 

- 

5617 

5695 

5845 

21*( 

- 

5650 

5653 

5656. 

5635 

5635 

5638 

5665 

5668 

5695 

5854 

25 

- 

5617 

5710 

25*  < 

- 

5650 

5674 

5677 

5680 

5683 

5686 

23 

- 

5617 

5698 

5758 

5815 

5851 

5887 

23* 

- 

5650 

5914 

5917 

5950 

5956 

5950 

Z4 

- 

5617 

5695 

5833 

25 

- 

5617 

5944 

Z6 

- 

5617 

27 

- 

580-3 

5815 

5854 

ZS 

- 

5809 

5845 

5854 

5857 

5869 

5896 

Z9 

- 

5830 

5833 

5644  5647  5650  5653  5656  5665  5665 
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- 5719  5732  5735  5738  5794  5737  5743  5746  5749  5753  5755  5818  5834 
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3.2.5  ATH5/I 

This  section  of  the  'AUTHOR/l'  program  contains  subroutines 
200  to  206. 

The  remainder  of  this  section  contains  the  ' ATH5/I * pro- 
gram listing  and  reference  maps. 


AUTHOR  System:  F>  |-.-a  s.  *=*  1 — ATH5/I  - a O O 

6000  Z##  Program  > AUTHOR/1  (ATHS/I  ) Version  > 2.0  2200  T/VP  780317 

6004  REM  ** 

6008  REM  ** 

6016  REM  **  Abstract  > 

6020  REM  **  To  initialize  program  Tables. 

6024  REM  **  Variables  > 

6028  REM  **  R4*<>  > conversion  tables 

6032  REM  **  <01)-(04)  > <1,64>  lower  case  to  upper  case  conv. 

6036  REM  **  (05)-<08)  > <65,64>  upper  case  to  lower  case  conv. 

6040  REM  **  (09)-<10)  > <129, 32>  conv  binary  indx  to  fiche  row  char. 

6044  REM  **  < 1 1 > > <161, 16>  control  character  conversion  (input) 

6048  REM  **  (12)  > <177, 16>  buffer  mode  character  conversions  - 

6052  REM  **  > <177, 4>  HEX(OO)  to  HEX (20) 

6056  REM  **  > <181, 4>  HEX(OO)  to  HEX(OO) 

6060  REM  **  > <185,4>  HEX<30)  to  HEX<20) 

6064  REM  **  > <189, 4>  HEX (30)  to  HEX(OO) 

6068  REM  **  (13>-(14)  > <193, 32>  convert  mask  digits  to  normal  codes 

6072  REM  **  (15i'-(16)  > <225, 32>  conv  fiche  row  char,  to  binary  indx 

6076  REM  **  R5*( ) > single  character  search  ids 

6080  REM  **  (01)  > blank  (02)  > HEX(FF) 

6084  REM  **  (03)  > HEX(80)  (04)  > HEX(5FXunderscor> 

6088  REM  **  (05)  > HEX ( 3A) <coln>  (06)  > HEX(3C)  < < > 

6092  REM  **  (07)  > HEX(3E><  > > (08)  > HEX(2E>  < . > 

6096  REM  **  (09)  > HEX (20) <blnk>  (10)  > HEX(23)  < # > 

6100  REM  **  R6*( ) > cusor  control  <vert.> 

6104  REM  **  R7*( ) > cusor  control  <horz.> 

6108  REM  **  K5*()  > cusor  contorl  <erase> 

6112  REM  **  R8*( ) > micro  command  buffer  & output  sequences 

6116  REM  **  (01)  > cusor  blink  w/  overprint  char. 

6120  REM  **  (02)  > output  of  buffer  with  CRLF 

6124  REM  **  (03)  > 

6128  REM  **  (04)  > warning  tone  w/  2 sec  wait 

6132  REM  **  (05)  > 

6136  REM  **  (06)  > output  16  line  buffer  to  crt 

6140  REM  **  (07)  > single  tone 

6144  REM  **  (08)  > set  register  5 with  CR  or  LF 

6148  REM  **  (09)  > command  register  buffer 

6152  REM  ** 

6156  REM 
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AUTHOR  S/stem:  Phase  1 — ATHS/I 


— a o o 


DEFFN  ' i 

R4*(01 > = 

R4*(02)= 

R4*(03)= 

R4*  < 04 ) = 

R4*(05>= 

R4*(06)= 

R4*(07)= 

R4*(08)= 

R4*(09)= 

R4*(10>= 

R4*(ll)= 

R4*< 12) = 

R5*(01 >= 

R5*(03)= 

R5*(05)= 

R5*(07)= 

R5*(09>= 

INIT(OA) 

INIT (09) 

INIT(20) 

R8*(01 > = 

R8*(02)= 

R8*(03)= 

R8*(04)= 

R8*<05)= 

R8*  < 06 ) = 

R8*(07)= 

R8*(08>= 

R8*(09>= 

RETURN 


X)  : REM  ENTRY 

HEX  < 41614262436344644565466647674868 ) 

HEX (49694A6A4B6B4C6C40604E6E4F6F5070 ) 

HEX  ( 5171 5272537354745575567657775878 ) 

HEX ( 59795A7A202020202020202020202020 ) 

HEX ( 6 1 4 1 6242634364446545664667476848 ) 

HEX ( 69496A4A6B4B6C4C6D4D6E4E6F 4F7050 ) 

HEX  < 7 1 5 1 7252735374547555765677577858 ) 

HEX ( 79597A5A202020202020202020202020 ) 

HEX  < 204 1 424 3444 5464748494A4B4C4D4E4F ) 

HEX  < 20202020202020202020202020202020 ) 

HEX ( 0 1 0802A70 3000 3E62020202020202020 ) 

HEX  < 20002020000020202030202000302020 ) 

HEX (20 > I R5*(02>=  HEX ( FF ) 

HEX ( 80 ) : R5*(04>=  HEX(5F) 

HEX ( 3A)  : R5*(06)=  HEX(3C) 

HEX<3£>  : R5*(08>=  HEX(2E> 

HEX (20)  : R5«(10)=  HEX (23) 

R6*(>  ! R6*(01)=  HEX (01 ) 

R7*()  : R7*(01)=  HEX (00) 

K5*(>  ! K5  = 1 

HEX ( 400642604008121 1425040081 1 36145416081 146) 

HEX ( 4006A 000402 1 4000400 A2020 ) 

HEX ( FFFF ) 

HEX ( 4007 1 22 1 4007 1 22 1 4007 ) 

HEX (FFFF) 

HEX ( A0004000 1 427 1 608400A ) 

HEX (40074007) 

HEX ( 050014671 708050A ) 

HEX ( 051 6 3F 20556677000000) 

: REM  EXIT 
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AUTHOR  System 


P he se  1 


ATM S/I 


O 1 


Subroutine 
Abstract  > 

To  initialize  program  input  and  output  devices. 
Variables  > 

R 2*  > return  input  value  ! 


a 0 1 


63ia 

REM  ** 

6316 

REM  '•HHHHHHHH 

J U M M M U M 

ff  IIH 

6330 

OEFFN  ' 301 

6334 

PRINT 

HEX (03) 

6338 

PRINTUSING 

6493, 

M N 

6333 

PRINT 

6336 

PRINTUSING 

6496, 

H M 

6340 

GOSUB  ' 101 

<11,1, 

0,0) 

6344 

SELECT 

PRINT 

005 

6348 

PRINTUSING 

6S0C, 

M M 

9 

6353 

PRINTUSING 

6504, 

M M 

9 

6356 

PRINTUSING 

6508, 

M M 

9 

6360 

PRINTUSING 

6513, 

m u 

6364 

PRINTUSING 

6516, 

u u 

6338 

SELECT 

PRINT 

405 

6373 

GOSUB  ' 101 

<9,1,C 

>,0) 

6376 

PRINTUSING 

6530, 

U N a 

9 

6380 

GOSUB  ' 104 

<1, “N“ 

, “5* 

*#" 

■#“ 

•#“ 


REM  ENTRY 

REM  CLR  CRT  SCREEN 

REM  PRINT  HEADING 

REM  PRINT  HEADING 
REM  POSITION  CUSOR 
REM  SEL  OUTPUT  MODE 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  SEL  OUTPUT  MODE 
REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  ENTER  RESPONCE 


6384 
6388 
63 92 


REM  ** 
REM  ** 
REM  ** 


310 


BIO 


350  ! 320 


BEO 


6396 

ON  R3  GOTO 

6408  , 6413  , 

6416  , 6430  , 6434 

z 

REM 

BRANCH 

6400 

REM  ** 

1 1 1 

- — ! -- 

— 

1 

6404 

REM  ** 

6408 

SELECT 

#1  310 

a 

GOTO 

6433 

REM 

SEL  DEV  310 

6413 

SELECT 

#1  BIO 

a 

a 

GOTO 

6433 

REM 

SEL  DEV  BIO 

6416 

SELECT 

#1  350 

a 

GOTO 

6433 

REM 

SEL  DEV  350 

6430 

SELECT 

#1  330 

a 

GOTO 

6433 

REM 

SEL  DEV  330 

6434 

SELECT 

#1  B30 

a 

a 

GOTO 

6433 

REM 

SEL  DEV  B20 

6438 

REM  ** 

6433 

GOSUB  ' 

101 

(11,1,5,0) 

REM 

ERASE  MENU 

6436 

GOSUB  ' 

101 

<13, 1,0,0) 

REM 

POSITION  CUSOR 

6440 

SELECT 

PRINT  005 

REM 

SEL  OUTPUT  MODE 

6444 

PRINTUSING 

6534,  “ * 

REM 

PRINT  MENU 

6448 

PRINTUSING 

6538,  " " 

REM 

PRINT  MENU 

6453 

PRINTUSING 

6533,  - " 

a 

a 

REM 

PRINT  MENU 

6456 

SELECT 

PRINT  405 

a 

REM 

SEL  OUTPUT  MODE 

6460 

GOSUB  ' 

101 

<11,1,0,0) 

a 

REM 

POSITION  CUSOR 

6464 

PRINTUSING 

6536,  - ■; 

a 

a 

REM 

PRINT  PROMT 

6468 

GOSUB  ' 

104 

( 1, “N* , * 1 “ > 

a 

a 

REM 

ENTER  RESPONCE 

6473 

GOSUB  ' 

101 

<13,1,3,0) 

a 

a 

REM 

ERASE  MENU 

6476 

01  «=  R2 

a 

a 

REM 

STOR  DEV  TYPE 

o 
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' •* 


OUTPUT  IMAGE  FORMATS 


€•480  REM 
6484  REM 
6488  REM 
6492 
6496 
6500 
6504 
6508 
6512 
6516 
6520 
6524 
6528 
6532 
6536 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


6540  REM 
6544  RETURN 


AUTHOR  An  Automat i 
PHASE  I Format 

STORAGE  DEVICE  MENU  ft  1 

* 2 
ft  3 
ft  4 
# 5 

Code 
ft  1 
ft  2 
ft  3 

Enter  Output  Device  Code  > 


Enter  Storage  Device 
OUTPUT  DEVICE  MENU 


c Authoring  System 
Construction 

- Flopy  Drive  #1 

- Flopy  Drive  #2 

- Flopy  Drive  #3 

- Fixed  Plater 

- Removable  Plater 
> ft 

- CRT  <005> 

- TTY  <01 1> 

- LPT  <015> 


# 

ft 

<310> 

<B10> 

<350> 

<320> 

<B20> 


REM  EXIT 


O 3 


£.600 
6604 
6608 
661  a 
6616 
6680 
6634 
6688 
6638 
6636 
6640 


GCJSUB  ' 104  (4,  “A"  , "SAME"  ) 

IF-  R3*  <>  “STOP"  THEN  6680  : 

COM  CLEAR  RO  : 

LOAD  DC  T #1,  “AUTHOR*  10,9999 

END  : 

IF  R3*  <>  “SAME*  THEN  6638  : 

cosub  ' aos  <ri > : 

STR<R3*,5,4>  “ STR<R3*,1,4> 
STR<Ra*,l,4)  = * ATH1 “ 

COSUB  ' 108  < "Phase  I Data  Subprogram" ,R3*, "3000' 

RETURN  : 


REM 

REM 

REM 

REM 

REM 


) 

REM 


NUT  END 

CLEAR  VAFIABLES 

END  Of-  PHOCKAM 
D1FRNT  FILE  NAM 
LOAD  SUFFER 


EXIT 


o 


AUTHOR  System:  Phase 


— ATHb/ X 


6644 

6648 

6655 

6fc.bG 

6660 

6664 

6668 

6675 

6676 
6680 
6684 
6688 

6695 

6696 
6700 
6704 
6708 

6715 

6716 
6750 

6754 
6758 
6735 
6736. 
6740 
6744 
6748 

6755 

6756 
6760 
6764 
6768 

6775 

6776 
6780 
6784 


50b 

509 

101 


RtM  ** 

RfcM  ** 

Rfc.M  *-* 

RfcM  ** 

REM  ** 

REM  ** 

RtM  ** 

RtM  ** 

RfcM  *-» 

RfcM 
UEFFN 
OEFFN 
PRINT 
COSUB 
PRINT 
PNINTUS1NC 
GOSUB  ' 101 
PRINT 
PRINT 
KOR 


NEXT 
RESTORE 
PRINT 
1N1T (50) 
GOSUB  ' 
GOSUB  ' 
GOSUB  ' 
PRINT 
GOSUB  ' 
IF 
IP 
IP 

CUSUB  ' 
GOSUB 
RETURN 


Subroutine 
Abstract  > 

To  Read  the  Data  Subprogram  and  load  into 
Storage  buffer. 

Variables  > 

R 5*  > returned  input  value 


5 0 5 


506. 

108 

101 

104 


108 

505 


<R1>  : REM  ENTRY 

<R1>  : RfcM  ENTRY 

HEX (03) 

(4,50,1,0) 

•Title  Line  of  Program  Loaded: •; HEX (OUOAOA) 
9000,  * * 

(15,1,0,0) 

•Touch  'ESCAPE.'  to  Override  wait";HEX(OUOA) 
"Format  will  be  displayed  in  30  seconds..." 

RO  = 1 TO  5600 
KEYIN  R0*( 1 ) ,6735,6735 
RO 
1 

HEX (03) 

Q5S(  ) 

(1) 

(01) 

(16,1,1,40) 

“More  Formats  (Y/N)  > •; 

( 1, "A", "Y* ) 

R5*  - * Y*  THEN  6736 

01  <>  3 THEN  6780 

W4*  <>  ‘TAPE"  THEN  6780 

(4) 


REM  CLR  TEXT  BUFER 
REM  LOAD  BUFFER 
REM  PRINT  BUFFER 
REM  POSII  ON  CUSClR 
REM  PRINT  PROMPT 
REM  ENTER  RESPONDS 
RfcM  LOAD  NXT  PMT 
REM  NOT  LPT  DEV 
REM  TAPE  NOT  USED 
RtM  PRNT  OVRLY 
RtM  LOAD  NXT  PILE 
REM  EXIT 
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o 


AUTHOR  Systi 


Ph< 


1 — ATHE.  / I 


O e 


6788 

6795 

6796 
6800 
6804 
6808 

6815 

6816 
6850 

6854 
6858 

6835 

6836 
6840 
6844 
6848 

6855 

6856 
6860 
6864 
6868 
6875 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 
IF 

READ 

IF 

GOTO 

READ 

REM 

REM 

REM 


Subroutine 
Abstract  > 

To  Read  the  Data  Subprogram  and  load  intc 
Storage  buffer. 

Variables  > 


5 0 6 


CO 

C5 

C4 


initial  bufr  indx 
col  number 
control  index 


Cl  > row  numbe 
C3  > length  of 
S4*< ) > input 


r 

text 

bufr 


6876 

6880 

6884 

6888 

6895 

6896 
6900 
6904 
6908 

6915 

6916 
6950 

6954 
6958 

6935 

6936 
6940 
6-944 
6948 

6955 

6956 
6960 
6964 
6968 

6975 

6976 
6980 
6984 
6988 
6995 


REM 
REM 
REM 
GOTO 
REM  ** 
REM 
REM 
♦TRAN 
GuTO 
REM  * 
REM 
REM  ** 
♦TRAN 
GOTO 
REM  ** 
REM 
REM 


' 506  (CO) 

REM 

ENTRY 

CO  <>  3 

THEN 

6856 

REM 

LOAD  BUFR 

Cl  ,C5,C3, 

C4,S4*<1> 

REM 

READ  DATA 

PROGRAM 

C4  <>  9 

THEN 

6844 

REM 

NOT  EOF 

6875 

REM 

BRACNH  TO 

EOF 

C1,C5,C3, 

C4,S4*(1) 

REM 

READ  DATA 

PROGRAM 

! LOWR  ! 

CAPS  ! BOLD  ! LINE  ! UNDR SCR 

1 

GOTO  6904  , 

6954  , 6944  , 6988  , 

7008 

9 

7044  , 

7044  , 7044  , 7080  , 

7044 

Z REM  BRANCH 

! NULL  ! 

NULL  ! NULL  ! EOF  ! 

NULL 

i 

7044 


: REM  INSERT  TEXT 
CONV  TO  LOWER  CASE 


<S4*<>  <1,C3>, 
7044 


R4*<>  <65, 64> ) R 


REM  CONVERSION 
REM  INSERT  TEXT 


CONV  TO  UPPER  CASE 


<S4*< ) 
7044 


< 1 , C 3> , R4*<>  <1 , 64> ) 


REM  CONVERSION 
REM  INSERT  TEXT 


CONV  TO  BOLD  FACE 


MAT  COPY 
MAT  SEARCH 


MAT  COPY 
MAT  COPY 


GOTO 
REM  « 
REM 
REM  * 
INIT 
GOTO 


CO  = LEN<S4*<1>> 

-S4*<)  <1,C0>  TO  -S4*()<1,64> 
S4*C)  < 1 , 64> , <>  R5*<1>  TO  R5*< ) 
C5  = FNR(VAL<R5*U>>> 

R5*()  <5, 1>  TO  S4*(>  <1,1> 

S4*()  <C5, C0>  TO  S4*()  <5,63> 

C3  = C3  + 1 
7044 


REM  CMPUT  LENGTH 

REM 

REM 

REM 

REM 

REM 

REM 

REM  INSERT  TEXT 


CREATE  A LINE 


<5F)  S4*<> 
7044 


REM  FILL  BUFR 
REM  INSERT  TEXT 


O 
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• • ' 


6996 

7000 

7004 

7008 

7012 

7016 

7020 

7024 

7028 

7032 

7036 

7040 

7044 

7048 

7052 

7056 

7060 

7064 

7068 

7072 

7076 

7080 

7084 

9000 


REM 
REM 
REM  ** 

MAI  COPY 

AND 

ADO 

MAT  COPY 
GOTO 
REM  ** 
REM 
REM  ** 

MAT  COPY 

GOSUB  ' 
♦CIO 
GOTO 
REM  ** 
REM 
REM  ** 
GOSUB  ' 
RETURN 


101 


C4  = < C 1 - 1 ) *64  + C2 
<32*0  <C4,C3>  TO  S4*<  ) <1,C3> 
(S4*<1),7F> 

< S4*  < 1 ) , 80 ) 

S4*<)  <1,C3> 

7044 


TO  02*0  <C4, C3> 


C4  * (Cl-l >*64  + C2 

S4*<)  <1,C3>  TO  02*0  <C4,C3> 

K1  * Cl  - INT < <C1-1)/16)*16 
(K1,C2,0,0> 

PRINT/005<A000,R8*<9>  >S4*OCl,C3> 
6856 


101  <1, 1,0,0) 


UNDERSCORE  TEXT 

REM  CMPUTE  BUF  POS 
REM  LOAD  FRM  BUFR 
REM  MASK  TEXT 
REM  UNDERSCORE 
REM  RELOAD  BUFR 
REM  GET  NXT  LINE 

LOAD  INTO  BUFFER 

REM  CMPUT  BUF  POS 
REM  LOAD  BUFFER 
REM  CMPUT  CRT  POS 
REM  POSITION  CUSOR 

REM  GET  NXT  LINE 

END  OF  FILE 

REM  HOME  CUSOR 
REM  EXIT 


X##  Data  Subprogram  > ATH101.0 


Version  > 2.0  09-Sep-77 


AU  I HCIR  ays-tem 


P ha 5D  1 


ATH B/I 


+t  MAI' 


(ooio)  - fc.fe.ii; 

6408  - 6396 

6412  - 6396 

6416  - 6396 

6420  - 63-36 

6424  - 6396 

6432  - 6408  6412  6416  6420  6424 

6492  - 6328 

649fc.  - 6336 

6500  - 6348 

6504  - 6352 

6508  - 6356 

6512  - 6360 

6516  - 6364 

6520  - 6376 

6524  - 6444 

6528  - 6448 

6532  - 6452 

6536  - 6464 

6620  - 6604 

6628  - 6620 

6732  - 6724 

6736  - 6764 

6780  - 6768  6772 

6844  - 6848 

6856  - 6840  7064 

6872  - 6852 

6-304  - 6872 

6924  - 6872 

6944  - 6872 

6988  - 6872 

7008  - 6872 

7044  - 6872  6888  6908  6928  6972  6992  7028 

7080  - 6872 

9000  - 6704 

(9999)  - 6612 
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P h3  S-  D 


1 


ATH b/1 


MAI 


AUTHOR  System: 


CO 

- 

6836 

6840 

6944 

6948 

6964 

Cl 

- 

6*844 

6856 

7008 

7044 

7052 

C2 

- 

6*844 

6856 

7008 

7044 

7056 

C3 

- 

6*844 

6856 

6904 

6954 

696*8 

7012 

7024 

7048 

706*0 

C4 

- 

6*844 

6848 

6856 

6872 

7008 

7012 

7024 

7044 

7048 

C5 

- 

6956 

696*4 

K 1 

- 

7055 

7056 

Kb 

- 

6540 

K5*< 

- 

6540 

01 

- 

6476 

6748 

6768 

05*  ( 

- 

6740 

7012 

7084 

7048 

R0 

- 

6608 

6720 

6788 

HO*  ( 

- 

6754 

HI 

- 

6654 

6684 

6688 

R2 

- 

6396 

6476 

R2* 

- 

6604 

6650 

6658 

6632 

6636 

6764 

R2*< 

6955 

6956 

R4*< 

- 

6164 

6168 

6175 

6176 

6180 

6184 

6188 

6192 

6196 

6200 

6204 

6808 

6904 

6984 

RS*( 

- 

6518 

6516 

6550 

6224 

6258 

6952 

6960 

H6*C 

- 

6538 

R7*( 

- 

6536* 

R8*< 

- 

6544 

6248 

6555 

6256 

6260 

6564 

6568 

6278 

6576 

7060 

S4*< 

- 

6844 

6856 

6904 

6924 

6944 

6948 

6952 

696*0 

6964 

6*988 

7018 

7016 

7020 

7024 

7048 

706*0 

W4* 

- 

6775 

AU1 HOR  System 


P ha se  1 


w iitiwiw  |innnMiijimwHfliwW1'  tiW'nM  ii'i'UMtmi* i »mnw  1 W 


— /NTH  lb /I  — " MAP 


????  UEFFN'  101 

- 6340  6375  6435  6436  6460  6475  6595  6696.  6708  6755  7056  7080 
????  DEFFN'  105 

- 6636 

????  DfcFFN'  104 

- 6380  6468  6600  6760 
????  DfcFFN'  108 

- 6748  6776 
6160  DfcFFN'  500 
6350  DfcFFN'  501 
6588  DfcFFN'  505 

- 6780 

6684  DfcFFN'  505 

- 6654 

6836  DfcFFN'  506 

- 6744 

6688  DfcFFN'  50-9 
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4.0  DATA  BASE  MAINTENANCE  PROGRAMS 

The  purpose  of  this  program  is  to  create  and  maintain  an  AUTHOR 
System  data  base.  This  data  base  contains  the  information 
recorded  in  the  AUTHOR  workbook.  The  structure  of  the  data 
base  is  indexed.  This  program  will  allow  a data  entry  clerk  to 
enter  and  update  all  elements  of  the  data  base.  This  program  will 
also  allow  for  the  data  base  to  be  printed  onto  the  line  printer. 
The  name  of  this  program  is  'AUTHOR/2'.  For  operating  instructions 
see  section  4.0  in  Volume  I. 

4.1  PROGRAM  FLOWCHART 

Figures  4.1  through  4.8  present  program  flowcharts  which  show  the 
major  steps  of  the  data  base  maintenance  program. 

When  appropriate  the  subroutine  name  or  overlay  name  will  be  shown 
in  the  lower  portion  of  the  flowchart  element.  This  indicates  that 
the  named  routine  will  perform  the  function  described. 


() 
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- , 


- 


ABSTRACT 


AUTHOR/2 


DEFINE 

COMMON 

STORAGE 


SF  ENTRY 


INITIALIZE 

PROGRAM 


SEE  FIGURE  4.2 


SF  ENTRY 
002 


MAINTAIN 

DATA 

BASE 


SEE  FIGURE  4.3 


ATH2LOGC 


SF  ENTRY 


LIST 

DATA 

BASE 


SEE  FIGURE  4.4 


ATH2LIST 


FIGURE  4.1 


AUTHOR/ 2'  DATA  BASE  MAINTENANCE  PROGRAM 


ABSTRACT 


INITIALIZE 

PROGRAM 

TABLES 


EXECUTIVE  \ 
INITIALIZING 
COMMAND 


ASSIGN 
DISK  UNITS 


ASSIGN 


BACKUP 

DATA 

BASE 


BACKUP 


DISPLAY 

HELP 

FILE 


HELP 


INITIALIZE 
FOR  DATA 
ENTRY 


LOAD  1 

DATA  BASE 
MAINTENANCE 


INITIALIZE  1 
FOR  DATA 
MAINTENANCE 


FIGURE  4. if.  'ATHZINIT'  INITIALIZE  DATA  BASE  MAINTENANCE  PROGRAM 


I# 


o 


SORT 

SYMBOL 

TABLE 


203 


\ 

A 


CLEAR 
TEMPORARY 
SORT  TABLES 


LOAD  \ 
VARIABLES  \ 
FOR  LIST  ) 
PROGRAM  / 


ENO 


FIGURE 


FIGURE  4.5.  'ATH2LSTV'  PROGRAM  TO  DEFINE  COMMON 


PRINT 

DATE 


COMPUTE 

BRANCH 

INDEX 


TEST 
PRINTER 
READY 
k 201 


PRINT 

TITLE 


PRINT 

SUBTITLE 


PRINT  1 
AUTHORS 


f PRINT  \ 

ORGANIZA- 
TION 

L 134 J 


PRINT  ’ 
TRAINING 


'initialize' 

PRINTER 


'ENTER  \ 
LIST  1 
COMMAND 

l 108  J 


FIbURE  4.6.  'ATH2LSTP'  PROGRAM  TO  LIST  DATA  BASE  ITEMS 


FIGURE  4.6.  'ATH2LSTP'  PROGRAM  TO  LIST  DATA  BASE  ITEMS  (CONTINUED) 
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ABSTRACT 


FIGURE  4.8.  ' AUTHOR/2'  ROUTINE  109— PROGRAM  ROUTINE  FOR  PROCESSING  INPUT  TEXT 
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r 


0 
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4.2  AUTHOR/2 

The  'AUTHOR/2*  program  is  presented  in  three  parts.  The  routines 
contained  in  'AUTHOR/2'  control  the  storage  of  data  on  the  disk  and 
also  the  manipulation  of  data  within  the  32  line  text  buffer. 

4.2.1  ATH1/II 

This  section  of  the  'AUTHOR/2'  program  contains  the  main 
control  logic  along  with  the  entry  points  for  loading  the 
maintenance  and  listing  routines.  This  program  also 
contains  subroutines  999  to  105. 

The  remainder  of  this  section  presents  the  'ATH1/I I ' program 
listing  and  reference  maps. 

I 


o 
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ST/SH  I 


/M.J 

100 

104 

108 

112 

ne 

120 

124 

128 

132 

i3e 

140 

144 

148 

152 

155 

150 

154 

158 

172 

175 

180 

184 

188 

192 

195. 

200 

204 

208 

212 

215 

220 

224 

228 

232 

236 

240 

244 

248 

252 

255 

250 

254 

258 

272 

275 

280 

284 

288 

292 

300 


I HQR  System:  P hd  r.  d 


.*%TM  XXII 


zmt 

RtM 

RtM 

RtM 

RtM 

RtM 

REM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

REM 

REM 

REM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

REM 

RtM 

RtM 

RtM 

REM 

RtM 

REM 

RtM 

RtM 


Pr 


ogram  > AUTHOR /2  (ATH1/II  > Version  > 2.0  2200  T/VP  780320 
Abstract  *^^*************^*************>^********-*-'<-*-*-'<--,*--*'1<-*-*'*-»-',-*-«--* 

Phase  II  of  -the  AUTHOR  programming  system  ** 

is  used  "to  Create  and  Maintain  "the  AUTHOR  Phase  II  Data  ** 


*■* 


*■* 

** 


Base. 

Program  Logic 

AUTHOR/2  will  create  a Indexed  Data  Base.  The 
Index  will  be  stored  on  disk  sectors  1-10. 

Disk  sector  0 contains  disk  creation  dates 
and  ID.  The  structure  of  the  Data  Base  will 
allow  access  to  any  item  or  subitem  of 
of  information  stored  on  the  disk. 

AUTHOR/2  will  use  two  types  of  Data  Entry 
procedures  > 

- Input  of  a string  <1-54  characters) 

- Input  of  text  < n pages  32x54  char/page) 

AUTHOR/2  uses  a modified  form  of  SOS 
(Son  Of  Stopgap)  to  allow  editing  to  be  performed 
to  the  input  text  buffer. 

Program  Sturcture  requires  a resident  program 
structure  containing  initializing  and  main 
logic  routines  also  containing  program  utitlity 
routines.  Data  sturcture  routines  are  loaded 
according  to  main  program  logic. 


+■* 

-a-* 


*■* 

*■» 


***hhh«-********hh»hh<-**^********hm^*-**-*-*-i<--*-*-*-i<-*-*  PROGRAM  STORAGE 


COM 

DO,  D1  , 

D2,  D3  , 

D4,  D5,  D5  , 

D7,  D8,  D9 

COM 

El  , 

El  *4  , 

E2*4  , Nl*, 

N2* 

COM 

H8*< 23 >45, 

K5*< 1 )64 

COM 

RO,  R1  , 

R2,  R3  , 

R4,  R5,  R6  , 

R7,  RE.  R9 

COM 

R0*2  , 

Rl*2  , 

R2*64  , 

R3*8 

COM 

R4*64  , 

R5*l  , 

Ql*< 18)2 

05* < 12)5 

COM 

R5*54  , 

R7*10  , 

R8*2  , 

R9*64 

COM 

RO*  <1)1  , 

R2*<2)2  , 

R4*<20)15  , 

R5*< 10)  1 

COM 

R5*<15)1  , 

R7*<64) 1, 

R8*<9)24  , 

R9*  <1)54 

COM 

SO*  2 , 

SI  *2  , 

S2*2  , 

S3*2 

COM 

S4*2  , 

S5*2  , 

S6*2  , 

S7*2 

COM 

Q0<  2 ) , 

QO*  < 20 ) 1 , 

03* <75, 5) 2 

COM 

Q4*  <11)1  , 

05* (10, 54) 

>2 

, 07* <5)2 

COM 

08*< 128)2, 

09*  < 54 ) 4 , 

Rl* ( 32,53) 1 

DIM 

Q2*<1, 1)1 

RtM  ** 

X##  END  Of  COMMON  STORAGE 
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Phase  S 


ATH  1 S 1 I 


CNTRL. 


AUTHOR  Syst em = 

304  REM  ** 

308  REM 

315  REM  ** 

316  DEI- FN  R (R ) = S56*K  + VAL (SIR <R8*< 1 ) , 5,  1 > > 

380  INIT(OA)  R6SO  : R6$(l)  = HEX(Ol) 

384  IN1T (09)  R7*<)  : R7*(l)  = HEX<0D) 

388  REM  ** 

336  REM 

340  SELECT  PRINT  405 
344  DEFFN  ' 001 

348  GCJSUB  ' 108  ( “ Ini  t ial  i zat i on"  , “ ATH51N1T “ , “6000"  ) 

355  DEFFN  ' 005 

356  GCJSUB  ' 105  (“Data  Maintenance- , “ATH5L0GC" , "6000“ 
360  DEFFN  ' 003 

364  GCJSUB  ' 108  (“Data  Listing-  , "ATHaUST1' 1500"  > 


FUNG  I I UN  DEF  INi'l  ICJN 


PROGRAM  OVERLAY  CONTROL 

REM  SEL  OUTPUT  D1SPLY 
REM  ENTRY  POINT  001 
REM  LOAD  1N1T  ROUTINE 
REM  ENTRY  POINT  005 
: REM  LOAD  ENTRY  ROUTNE 
REM  ENTRY  POINT  003 
REM  LOAD  LIST  ROUTINE 


O 
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AU  I NOR  £jystem:  Phase  a — ATHi/II  — O 

368  REM  *■* 

372  REM  *■* 

376  REM  *****-****•*■*■«■*-**■****^-*■**^^•*•***•*****^**********•*■*■*■!,•■,,•■*■''•-*■^<■■i,■■,,•■*•*-*-'^■,,■■,H'■•t,■^'■ 
380  HEM  **  LABELED  SUBRDUT 1 NEE  •** 

38A  RLM  *'****-^-*****-**-**-»******-*-*h«**-^***********************'*-,<'**-!,--!,-',,--,>-'*-**-,<"* 
388  REM  •»* 


REM  ■** 

REM  **  S 
REM  **  A 
REM  ** 

REM  **  V 
REM  ** 

REM  ** 

REM  ****■#• 
DEFFN  7 
ON  ERROR 
IE 


Subroutine  •ihhhhhhhhhhhhhhh 
Abstract  > 

Error  Recovery. 

Variables  > 

El*  > two  byte  error  code 


E1*,E2*  GOTO  432 
El*  <>  “80"  TH 

El*  <>  "DB2*  TH 

COSUB  7 101  (16,24,1,40) 
PRINT  “ RILE  NOT  IN  CATALOG 


0 0 0 


line  in  error 


THEN  4S6 
THEN  4 SC- 


REW NORMAL  ENTRY 
REM  ERROR  ENTRY 
REM  T ERROR  CHECK 
REM  VP  ERROR  CHECK 


*GIO  PAUSE  10NE/005(R8*<4) ,R8*<9> ) 
GOTO  512 

El*  <>  “29"  THEN  488  : RE 

El*  <>  ■ X73“  THEN  488  : RE 

COSUB  7 101  (16,24,1,40) 

PRINT  * Error  > ";E1*;“  At  Line  > ";E2*J 
PRINT  HEX (ODOA) ; “ Invalid  Data  Pormat" 
GOSUB  7 101  (1, 1,5,0) 

STOP 

END 

El*  <>  "27“  THEN  512  : RE 

El*  <>  “X70"  THEN  512  : RE 

GOSUB  7 101  (16,24,1,40) 

PRINT  “ Insufficient  Data  " 

*GIO  PAUSE  T0NE/005(R8*(4),R8*<9) ) 
GOTU  512 


REM  T ERROR  CHECK 
REM  VP  ERROR  CHECK 


REM  T ERROR  CHECK 
REM  VP  ERROR  CHECK 


512 

COSUB  7 

101 

(15, 1,2,40) 

516 

PRINT 

“ Error  > “ ;E1*;“  At  Line  > " ;E2*; 

520 

PRINT 

HEX(OUOA); " Correction  Required" 

524 

GOSUB  7 

101 

(1, 1,5,0) 

528 

532 

S10P 

END 

: REM  EXIT 

536  REM  ** 

540  REM  ** 

548  REM  Function  > 

552  RtM  Cusor  Address  and  Screen  erase 

555  RtM  Varaibles  > 

560  REM  K 1 > row  position  ! K3  > lines  to  erase 

564  RtM  K2  > col  position  ! K4  > char(s)  erase 

568  RtM  R6*<)  > cusor  vert  ! R7*<)  > cusor  horz 

572  RtM  K5,K5*0  > line  ers  ! R8*<)  > micro  cmnd  bufr 

576  RtM 


584 

DEFFN  ' 101 

<K1,K2,K3, 

K4) 

588 

IP 

K3  = 0 

THEN  632 

592 

IP 

K4  <>  0 

THEN  600 

5-36 

K4  = 65  - 

K2 

600 

FOR 

K5  = 1 TO 

K3 

604 

IP 

K5  <>  1 

THEN  616 

608 

*GIO 

ROW 

/005< AOOO 

,H8*<9) )R6*< ><1,K1> 

612 

GOTO  620 

616 

*GIO 

ROW 

/005<A000 

,R8*<9) )R6*< )<2, 1> 

620 

*GIQ 

COL 

ZOOS (AOOO 

,R8*(9> >RV*< )<1,K2> 

624 

*GIO 

ERASE 

/OOS(AOOO 

,R8*<9> )K5*( )<1,K4> 

628 

NEXT 

K5 

632 

*GIO 

ROW 

/005 ( AOOO 

,R8*(9)  >86*0  <1,K1> 

636 

♦GIO 

COL 

/005( AOOO 

,R8*<9> >R7*< > <1,K2> 

640 

RETURN 

REM  ENTRY 
RtM  ERASE  NO  LINE 
RtM  CHAR  TO  ERS  SPCPD 
REM  ERS  REST  OF  LINE 
RtM  BtGIN  LOOP  Kb 
RtM  NOT  FIRST  LINE 
PEM  POSITION  CUSOR 
REM  BRANCH  TO  POS  COL 
RtM  POSITION  CUSOR  LF 
REM  POSITION  CUSOR 
RtM  ERASE  TEXT 
RtM  CONTINUE  LOOP  K5 
REM  REPOSITION  CUSOR 
REM  REPOSITION  CUSOR 
RtM  EXIT 


1 


Am  HOR  Syct  Dm  s l=>  |-.-a  be?  a — ATH 1 / I I 


— 1 


RtM  *•* 

RtM  ** 

RtM 

RtM 

REM 

RtM 

RtM 

RtM 

RtM 

RtM  ***"! 

DtFFN  ' 

PRINT 

PRINT 

PRINT 

GOSUB  ' 

PRINT 

GOSUB  ' 

PRINT 

IF 

LOAD 

IF 

LOAD 

IF 

LOAD 

IF 

LOAD 

IF 

LOAD 

IP 

LOAD 
GOSUB  ' 
RLTURN 


Subroutine  > <H?****-t»-**********- 
Function  > 

To  load  an  over  lay  Routine. 
Variables  > 


1 0 B 


Lit  > description 
L8t  > overlay  name 


L3t  > begining  line 


108  (Llt,Let,L3t) 

HEX (03) 

"AUTHOR  SYSTE 
HEX ( ODOA ) ; " P H A S 

101  (5,10,0,0) 

“System  Now  Loading  »>  “;Llt; 

101  (7,10,0,0) 

"Program  being  Loaded  >>> 
L3t  <>  ”0100“ 

DC  T #1,  Left  100 
L3t  <>  “1500" 

DC  T #1,  Let  1500 
L3t  <>  “4000* 

DC  T #1,  Let  4000 
L3t  <>  “6000" 

DC  T #1,  Let  6000 
L3t  <>  “7000" 

DC  T #1,  Let  7000 
L3t  <>  “•3000“ 

DC  T #1,  Let  5000 

OOO 


: RtM  ENTRY 
: REM  CLEAR  CRT 
M"  : RtM  PRINT  TITLE 

E III"  : REM  PRINT  SUBTITLE 

: REM  POSIT  ION  CUSUR 
" Routine":  RtM  PRINT  DESCRIPTION 
: RtM  POSITION  CUSUR 
* ; Let  : RtM  print  prog  name 

THEN  7E4  : REM  LOAD  AT  LINE  0100 


THEN  73B  : REM  LOAD  AT  LINE  1500 

THEN  740  : RtM  LOAD  AT  LINE  4000 

THEN  748  : RtM  LOAD  AT  LINE  6000 

THEN  756  : RtM  LOAD  AT  LINE  7000 

THEN  764  : RtM  LOAD  AT  LINE  '3000 

: RtM  ERR  PROCESSING 
: RtM  EXIT 


AUTHOR 

System:  Phase 

S. 

— 

ATM 1 X I I - 1 O 

772 

REM 

•** 

776 

REM 

** 

780 

REM 

Subroutine  -tHHH*"*  10  4 

784 

REM 

** 

Abstract  > 

788 

REM 

** 

Accept  ALPHA  and  NUMERIC 

Input. 

792 

REM 

** 

Varaibles  > 

796. 

REM 

■*Hfr 

R0*( ) > entry  buffer 

! Rl 

> 

max  length 

800 

REM 

Rl*  > 'A'  or  'N'  or  'E' 

! R2 

> 

return  <num> 

804 

REM 

** 

R2*  > return  <alph> 

* R3 

> 

char  pointer 

808 

REM 

R6*  > initial  value 

i R9 

> 

scratch  count 

812 

REM 

816  REM 

820  DEFFN  ' 104  (R1,R1*,R6*> 

824  INIK3F)  R9*(  ) 

828  *G 10  PRINT  /00S  (A000,R8$(9> )R9*( ><1,R1> 

832  INIT <08)  R9SO 

836  *G 10  PRINT  /005  (A000,R8*(9> >R9*( )<1,R1> 

840  *GIO  /005  (1136,R8S(9>) 

844  R9  = 1 

848  R3  = 1 


REM  ENTRY 
REM  INIT  CHAR  BUFR 
REM  PRNT  CUSOR  BKGRND 
REM  INIT  CHAR  BUFR 
REM  PRNT  CUSOR  BKGRND 
REM  INIT  REGISTER 
REM  PRNT  POS  INDX 
REM  BUFR  POS  INOX 


852 

INI1 

(20)  R2* 

z 

REM 

CLR  BUFR 

856 

REM  ** 

860 

KEY1N 

R0*(1),  860,  860 

REM 

CLR  INPUT  BUFR 

864 

STR(R8«(9),5, 1 ) = 

STR(R2*,R9, 1 ) 

REM 

STOR  OUT  CHAR 

868 

IF 

Rl*  <>  "E“ 

THEN 

876 

REM 

ECHO  CHAR AC TR 

872 

STR  < R8* ( 9 ) , 5, 1 ) = 

HEX ( 20 ) 

REM 

SET  NtJ  ECHO 

876 

KF  YIN 

R0*(1),  916,  892 

REM 

INPUT  CHAR 

880 

KTO 

INPUT  WAIT/005(R8*(1),R8*<9) ) 

REM 

PRNT  CUSOR 

884 

GOTO 

876 

REM 

CONT  INPT  WAI 1 

888 

REM  ** 

892 

PRINT 

HEX (0808); 

REM 

FNT  KEY  ENTRY 

896 

INPUT 

R2* 

REM 

REENTER  SPL  KEY 

900 

R3  = 5 

REM 

SET  LENGTH 

904 

STR(R2*,R3)  = HEX(20> 

REM 

CLR  BUFR  END 

•308 

GOTO 

1136 

REM 

CONV  IN  DATA 

912 

REM  ** 

916 

IF 

ROt ( 1 ) < HEX (08) 

THEN 

936 

REM 

INVALID  INPT 

320 

♦TRAN 

(R0*(  XI,  1>.  R4*(  X161, 10>)  R 

REM 

CONV  CTL  CHARS 

924 

IF 

R0*(1>  > HEX(7F) 

THEN 

936. 

REM 

INVALID  INPT 

928 

IF 

RO* ( 1 ) > HEX ( IF) 

THEN 

956 

REM 

VALIU  CHAR 

932 

IF 

RO*( 1 ) < HEX (04) 

THEN 

956 

REM 

VALID  CTL  CHAR 

936 

♦GIO 

T0NE/005 ( R8* ( 7 ) , R8* ( 9 ) ) 

m 

• 

REM 

SOUND  BELL 

940 

GOTO 

876 

a 

REM 

RE-ENTER  CHAR 

944 

REM  ** 

348 

REM  *■* 

! RUB OUT 

! UNDERSCORE  ! 

ESCAPE  ! 

952 

REM  ** 

1 

— 

— 

__  1 

956 

ON  VAL(R0*(1))  GOTO  1028 

, 1072 

1096  : 

REM  BRANCH 

960 

REM  ** 

1 

— 

— 

t 

Enter  Character 


964 

REM  ** 

968 

RLM  ******* 

975 

REM  ** 

976 

IF 

R3  = Rl  + 1 

980 

STR(R5*,R3,  1)  = 

984 

R3  = R3  + 1 

988 

IF 

R3  = 5 

995 

R9  = R9  + 1 

9-36 

PRINT 

HEX<09); 

1000 

IF 

Rl*  <>  “E“ 

1004 

RO*  ( 1 ) = HEX  <51 

1008 

PRINT 

R0*( 1 ) ; HEX (08) 

1015 

GOTO 

864 

1016 

REM  ** 

1050 

REM  *■****• 

****♦**■*■»-********■*■ 

1054 

REM  ** 

1058 

IF 

R3  = 1 

1035 

PRINT 

HEX ( 3F08) ; 

1036 

R3  = R3  - 1 

1040 

STR<R5*,R3, 1 ) 

1044 

IF 

R9  = 1 

1048 

R9  = R9  - 1 

10SS 

PRINT 

HEX ( 08 ) ; 

1056 

GOTO 

864 

1060 

REM  ** 

= R0*<1> 


THEN  936 


THEN  1000 


THEN  1008 


HEX(S0> 


THEN  864 


THEN  1056 


1064 

1068 

1075 

1076 
1080 
1084 
1088 

1095 

1096 
1100 
1104 
1108 

1115 

1116 
1150 

1154 
1158 

1135 

1136 
1140 
1144 
1148 

1155 

1156 
1160 
1164 
1168 
1175 


REM 
REM 
AND 
ADO 
GOTO 
REM  ** 
REM 
REM  ** 
IF 

IE- 

PRINT 
GOTO 
REM  ** 


PRINT 

IF 

IF 

IE 

INIT (08) 

*GIO 

GOTO 

CONVERT 

RETURN 


■** 

(STR(RS*.R9, 1 ),7F) 
<STR(R5*,R9, 1 ),80> 
864 


R3  <>  1 THEN  1154 

RS*  = R6* 

Rl*  <>  "E“  THEN  1115 

R6*  = " " 

HEX  < 08 ) ; 

1135 

STR(RS*,R3>  = HEX (50) 

R6*  = RS* 

HEX (03) ; SIR (R6*, R3, ADS(R1 -R3) +1 ) ; 
Rl*  <>  “N"  THEN  1175 

NUM(R5*>  = 64  THEN  1168 

R5  = Rl 

R3  <>  Rl +1  THEN  1156 

R5  = Rl +5 

R9*< ):  *GIO/005(AOOO,R8*<9> >R9*< )<1,R5> 
TQNE/005 ( R8*  < 7 ) , R8* ( 9 ) ) 

854 

RS*  TO  R5 


REM  BUFR  f ULL 
RLM  MOVE  TO  BUFR 
REM  INCH  BUFR  INDX 
REM  NOT  FRST  CHAR 
REM  I NCR  DSPLY  INDX 
REM  POSITION  CUSUR 
: REM  ECHO  CHARACTR 
REM  SCT  NO  ECHO 
REM  PRNT  CHAR 
REM  FECTH  NXT  CHAR 

Rubout  Character 

: REM  BUFR  EMPTY 
: REM  POSITION  CUSOR 
REM  DCRMNT  BUT  INDX 
REM  CLR  FRM  BUFR 
REM  CUSOR  POSITIONED 
REM  DCRMNT  DSP  INDX 
REM  POSITION  CUSOR 
REM  FETCH  NXT  CHAR 

Underscore  char. 

REM  MASK  CHAR 
REM  UNDERSCORE 
REM  FETCH  NXT  CHAR 

String  Entered 

REM  BUFR  NOT  EMPTY 
REM  INSRT  DFLT  VAL 
REM  ECHO  DFLT  VAL 
REM  CLR  DFLT  VAL 
REM  PUSH  ION  CUSOR 
REM  BRNCH  TO  PRNT 

REM  CLR  REST  OF  BUF 
REM  MOVE  TO  PRNT  BUF 
REM  PRNT  STRNG 
REM  RET  ALPHA  VAL 
REM  VALID  NUM  FMT 
REM  SET  CUSOR  INDX 
REM  INDX  IS  OK 
REM  RESET  INDX 
REM  PRNT  CUSOR  BKGRND 
REM  ERR  TONE 
REM  REENTER  STRNG 
REM  SET  NUMERIC  VAL 
REM  EXIT 
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f 


r 


AUTHOR 

1176  RfcM  ** 
1180  HEM  ** 
1184  HEM  ** 
1188  HEM  <1## 


! y s-  "t  ei 


Subroutine 

Function 


Ph. 


— ATH 1/11 


— 1 


1 0 5 


1340 
1344 
1 348 
1352 
1356 
1360 
1 364 
1368 
1372 
1376 
1380 
1384 
1388 
1392 
1396 


*•* 


REM 
HEM 
REM 
X 

X # -- 

X 

X 

X 

X 

X 

X 

X 

X 

HEM  ** 
RETURN 


OUTPUT  IMAGE  FORMATS 


COMMAND  SUMMARY  - 


# TITLE 

# SUBTITLE 

# AUTHORS 

# DATE 

tt  ORGANIZATION 

# TRAINING 

« IMPORTANCE 

# USAGE 


* 

# 

# 

# 

* 

# 

« 

# 


TYPE 

NAME 

SOURCE 

EXAMPLE 

SYMBOL 

HELP 

LIST 

ESCAPE 


: REM  EXIT 


1192 

1196 

1200 

1204 

REM  ###  Display  program  directives 

REM  ###  Varaiables  > 

HEM  ###  R0*<>  > entry  buffer 

HEM  ###  Q3*<>  > command  memorj  bufr 

and  accept  input. 

! RO  > value  of 

i 

input 

1208 

Rtn  wnnnnrwi 

• 

1212 

DEFFN  ' 105 

<R0,R2*) 

REM 

ENTRY 

1216 

SELECT 

PRINT  005 

REM 

SEL  CONSOLE  MODE 

1220 

PRINT 

HEX<03) 

REM 

CLR  CONSULS  SCREN 

1224 

PH1NTUS1NG 

1352,  R2* 

REM 

PRINT  MENU 

1228 

PRINTUSING 

1356,  " ■ 

1232 

PRINTUSING 

1360,  00*0),  Q0*<9> 

1236 

PRINTUSING 

1364,  00*<2),  00*00) 

1240 

PRINTUSING 

1368,  Q0*<3),  00*01) 

1244 

PRINTUSING 

1372,  GO*<4),  00*02) 

1248 

PRINTUSING 

1376,  QO*<5),  00*03) 

1252 

PRINTUSING 

1380,  QO*<6>,  QO*<14) 

1256 

PRINTUSING 

1384,  QO*<7),  QO*<15) 

1260 

PRINTUSING 

1388,  Q0*<8),  00*06) 

1264 

SELECT 

PRINT  405 

REM 

SEL  CONSOLE  MODE 

1268 

GOSU0  ' 101 

05, 1,0,0) 

REM 

POSIT IUN  CUSUR 

1272 

PH  I NT 

"Enter  Command  > “ 

REM 

PRINT  PROMPT 

1276 

GOSUB  ' 104 

< 16, " A" , Nl*) 

REM 

INPUT  RESPUNCE 

1280 

RO  = LEN ( R2* ) 

REM 

CMPUT  CMND  LEN 

1284 

IF 

RO  <=  2 

THEN  1292  I 

REM 

LEN  WiTHN  LIMITS 

1288 

RO  = 2 

REM 

SET  TO  MAX  LEN 

1292 

AND 

(STR (R2*, 1 , RO) ,DF) 

REM 

FURCE  TO  UPPW  CAS 

1296 

MAT  SEARCH 

01*0,  =STR<RB*,l,RO>  TO 

R2*( ) STEP  2: 

REM 

SRCH  KEYWRU  BUFR 

1300 

IF 

R2*(2)  <>  HEX ( OOOO ) 

THEN  1308  : 

REM 

INVALID  COMMAND 

1304 

IF 

R2*( 1 ) <>  HEX (OOOO ) 

THEN  1332  : 

REM 

KEY  FOUND 

1308 

GOSUB  ' 101 

06,  1,0,0) 

REM 

KEY  NOT  FOUND 

1312 

PRINT 

“ INVALID  COMMAND! ! RE-ENTER"  : 

REM 

PRINT  ERR  MSG 

1316 

*G10  TONE 

/0O5  < R8*  < 4 ) , R8*  < 9 > ) 

REM 

PAUSE  TONE 

1320 

GOSUB  ' 101 

06, 1, 1,0) 

REM 

ERASE  ERR  MSG 

1324 

GOTO 

1268 

REM 

REENTER  COMMAND 

1328 

REM  ** 

1332 

RO  = INT<FNR<VAL<R2<<1 >> >/2)  + 1 : 

REM 

CMPUT  CMND  1NDX 

1336 

00*  < RO  > = HEX<2A> 

; 

REM 

SET  MENU  FLAG 
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AUTHOR  System 


P ha  e e 2 


ATH  X / I X 


-rt  map 


\ 


01  oo 

- 

0720 

O':  3? 

- 

O':  28 

Oh  56. 

- 

0432 

0436 

0488 

- 

in 

o 

0460 

051  a 

- 

0452 

0488 

0492 

0508 

oeoo 

- 

0592 

oeie. 

- 

060 'i 

0620 

- 

0612 

06.32 

- 

0588 

0724 

- 

0716 

0 732 

- 

0724 

0740 

- 

0732 

0748 

- 

0740 

0756. 

- 

0^48 

076.4 

0756 

0824 

- 

1164 

0860 

- 

0860 

0864 

- 

1012 

1028 

1056 

1080 

0876 

- 

0868 

0884 

2 

V, 

C 

0892 

- 

0876 

0916 

- 

0876 

0-3  3€. 

- 

0316 

0924 

0976 

0-350 

- 

0928 

0932 

lOOO 

- 

0988 

1008 

lOOO 

1028 

- 

0956. 

lose. 

- 

1044 

1072 

- 

0356 

1096 

- 

0-356 

1112 

- 

1 104 

1124 

- 

1096. 

1132 

- 

1116 

1136 

- 

0-308 

1156 

- 

1148 

1168 

“ 

1140 

1172 

- 

1136 

1268 

- 

1324 

1292 

- 

1284 

1208 

- 

1300 

1332 

- 

1304 

1352 

- 

1224 

1356 

- 

1228 

1360 

- 

1232 

1367i 

- 

1236 

1368 

- 

1240 

13,2 

- 

1244 

1376 

- 

1248 

1380 

“ 

1252 

13B4 

- 

1256 

1388 

- 

1260 

( 1500) 

- 

0728 

('lOOO) 

- 

0736 

(6000) 

- 

0744 

(7000) 

- 

0752 

(3000) 

0760 

^ - - «-  - -»L,  , I,  .1  , . i - BB 
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O 


o 


• • 


AUTHOR 


ATH1  SIT 


— V»  MAP 


DO 

- 

0232 

D1 

- 

0232 

02 

- 

0232 

03 

- 

0232 

04 

- 

0232 

D5 

- 

0232 

D6 

- 

0232 

D7 

- 

0232 

D8 

- 

0232 

D9 

- 

0232 

El 

- 

0236 

El* 

- 

0236 

0428 

0432 

0436 

0456 

0460 

E2* 

- 

0236 

0428 

0468 

0516 

H8*( 

- 

0240 

K 1 

- 

0584 

0608 

0632 

K2 

- 

0584 

0596 

0620 

0636 

K3 

- 

0584 

0588 

0600 

K4 

- 

0584 

0592 

0596 

0624 

K5 

- 

0600 

0604 

0628 

KS*( 

- 

0240 

0624 

LI* 

- 

0684 

0704 

L2* 

0684 

0712 

0720 

0728 

0736 

0744 

L3* 

0684 

0716 

0724 

0732 

0740 

0748 

Nl* 

- 

0236 

1276 

N2* 

- 

0236 

QO( 

- 

0276 

Q0*< 

- 

0276 

1232 

1236 

1240 

1244 

1248 

01*  ( 

- 

0252 

1296 

02*  ( 

- 

0288 

03*  < 

- 

0276 

04*  ( 

- 

0280 

05*  ( 

- 

0252 

06*  < 

- 

0280 

Q7*( 

- 

0280 

08*  < 

- 

0284 

Q9*< 

- 

0284 

R 

- 

0316 

R0 

- 

0244 

1212 

1280 

1284 

1288 

1292 

R0* 

- 

0248 

R0*  ( 

- 

0260 

0860 

0876 

0916 

0920 

0924 

R 1 

- 

0244 

0820 

0828 

0836 

0976 

1132 

Rl* 

- 

0248 

0820 

0868 

1000 

1104 

1136 

Rl*( 

- 

0284 

R2 

- 

0244 

1144 

1152 

1156 

1168 

R2* 

- 

0248 

0852 

0864 

0896 

0904 

0980 

1212 

1224 

1280 

1292 

1296 

R2*< 

- 

0260 

0316 

1296 

1300 

1304 

1332 

R3 

- 

0244 

0848 

0900 

0904 

0976 

0980 

1148 

R3* 

- 

0248 

R4 

- 

0244 

R4* 

- 

0252 

R4*< 

- 

0260 

0920 

R5 

- 

0244 

R5* 

- 

0252 

R5*< 

- 

0260 

R6 

- 

0244 

R6* 

- 

0256 

0820 

1100 

1108 

1128 

1132 

139 


R6*< 

- 

0564 

0350 

0608 

0616 

0635 

R7 

- 

0544 

R7* 

- 

0556 

R7*< 

- 

0564 

0354 

0650 

0636 

R8 

- 

0544 

R8* 

- 

0556 

R8*< 

- 

0564 

0448 

0504 

0608 

0616 

0650 

0880 

0936 

1156 

1160 

1316 

R9 

- 

0544 

0844 

0864 

0995 

1044 

1048 

R9* 

“ 

0556 

R9*< 

- 

0564 

0854 

IB 

00 

o 

00 

o 

0836 

1156 

SO* 

- 

0568 

SI* 

- 

0568 

S5* 

- 

0568 

S3* 

- 

0568 

S4* 

- 

0575 

S5* 

- 

0575 

S6* 

- 

0575 

S7* 

- 

0575 

0654  0635  0636  0858  0836  0840  0864  0875 
1075  1076 
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AUTHOR  Syst em 


P ha s e-  2 


ATH 1 / I I 


MAP 


0454  OEFFN'  0 

- 0764 
0344  DtFFN ' 1 
0355  DtFFN'  5 
0360  DtFFN'  3 
0584  DtFFN'  101 

- 0440  0464  0476  0496  0515  0554  0700  0708  1568  1308  1350 
0684  DtFFN'  105 

- 0348  0356  0364 
0850  DEFFN'  104 

- 1576 

1515  DtFFN'  105 


TAEG  Report  No.  59 


ATH2/II 

This  section  of  the  'AUTHOR/2'  program  contains  subroutines 
106  to  123. 

The  remainder  of  this  section  presents  the  'ATH2/ir 
program  listing  and  reference  maps. 


AUTHOR  Sayctum:  !=■  ti-E* ! 


— ATMS XXX 


1S64 
1568 
1 572 
1576 
1580 
1584 
1588 
1592 
1596 
1600 
1604 
1608 
1612 
1616 
1620 
1624 
1628 
1632 
1636 
1640 
164'! 
1648 
1652 
1656 
1660 
1664 
1668 
1672 
16/6 
1680 
1684 
1688 
1692 
1696 
1700 
1704 
1708 
1712 
1716 


REM  *■* 
REM  ** 
REM  *•* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
UEFFN 


To  Initialize  pointers  and  buffer 


Subroutine 
Function  > 

Variables  > 

R1  > crt  pos  <row> 

R3  > linear  bufr  indx 

R4  > bufr  pos  <row> 

Rl*<)>  storage  buffer 
R9*<)>  scratch 
Rb*()>  search  id's 
El  > pre-existing  data  fig 


1 O 7 


107 


IN1T(20) 
INIT (20) 
INIT<20) 
INIT (20) 
INIT  <20) 

KEY  IN 
REM  ** 

*GIO  HOME 
POR 

*GIO  BORDER 
NEXT 
REM  ** 

COSUB  ' 
PRINT 
KEY  IN 
GOSUB  ' 
RETURN 


R1 
R2 
R3 
R4 
R5 
R6 
El 
Rl* 

R2* 

Rl*<  > 
R9*<  ) 
R0*<  > 
R0*<1>, 


1672,  1672 


R2 

R6 

R5 

RO* 

R9 

RB« 


> crt  pos  <col> 

> top  lin  on  crt 

> bufr  pos  <col> 
< )>  charactr  bufr 

> scratch 

( )>  micro  cmnds 


/OOb  < 4001 , R84 (9) ) 

R9  = 1 TU  13 

/005  <R8*(2),R8*<9) > R9*(K1, 
R9 


101 


101 


(14,50, 1, 12) 

" Entry  Mode 
RO*( 1 ) , 1708, 
(R1,R2,0,0) 


M ■ 

1708 


REM  ENTRY 

REM  INIT  CRT  RUW  POS 
REM  INI)  CRT  COL  POS 
REM  INIT  LINR  BUF  POS 
REM  INIT  BUFR  ROW  POS 
REM  INI!  BUFR  COL.  POS 
REM  INIT  1 OP  OP  SCREN 
REM  CLR  EXSTNC  DAT  FLG 
REM  CLR  CUSR  RPEA1  FLG 
REM  CLR  NUMBER  BUFR 
REM  CLR  TEX  I BUFR 
REM  CL.R  SCRATCH  BUFR 
REM  CLR  ENTRY  BUFR 
REM  CLR  ENTRY  QUEUE 


: REM  HOME  CUSOH 
: REM  BEC  BORDER  LOUP 
63>  : REM  PRINT  BORDER 

: REM  CUNT  LOOP 

: REM  POSITION  CUSOH 

: REM  CLR  ENTRY  BUFR 
: REM  POSITION  CUSOR 
: REM  EXIT 
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AUTHOR  Syst om 


F*  ha  e e 


ATH^ / X 1 


1 O S 


' 


1750  REM 
1754  REM 
1758  REM 


1735 

1736 
1740 
1744 
1748 

1755 

1756 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


Subroutine 

Function 


** 


Var iables> 
R0*()  > 
R8*( ) 
R4*<  ) 


> To  Input  a character  and  verify 
for  validity. 


1 0 8 


character  bufr 
micro  cmnds 
translations 


R4 

R5 


bufr 

bufr 


indx 

indx 


<row> 

<col> 


1760  REM 


1764 

DEFFN  ' 108 

(R0*( 1 ) ) 

REM 

ENTRY 

1768 

STR(K8*(9),5, 1)  = R1*(R4 

,R5) 

REM 

STCJR  CURNT  CHAR 

1775 

KEY  IN 

RO*  < 1 ) , 

1788,  1815 

REM 

INPUT  CHARACTER 

1776 

♦GIO  WAIT 

/005(R8*(1),RB*(9> ) 

REM 

INPUT  WAIT 

1780 

GOTO 

1775 

REM 

CONT  WAIT 

1784 

HEM  ** 

1788 

IF 

R0*(1> 

< HEX (08) 

THEN 

1815 

REM 

INVALID  INPUT 

1795 

♦TRAN 

(R0*( ) 

<1,!>,  R4*()<557, 

16> ) R 

REM 

CONV  CTL  CHARS 

1796 

IF 

R0*(1) 

> HEX (7F) 

THEN 

1815 

REM 

INVALID  INPUT 

1800 

IF 

R0*<1) 

> HEX<1F> 

THEN 

1854 

REM 

VALID  INPUT 

1804 

IF 

R0*(1> 

< HEX (06) 

THEN 

1854 

REM 

VALID  INPUT 

1808 

REM  ** 

1815 

♦GIO  TONE 

/0O5(H8*(7),RS*(9) > 

REM 

SOUND  TONE 

1816 

GOTO 

1775 

REM 

CONTINUE  INPUT 

1850 

REM  ** 

1854 

RETURN 

: 

REM 

EXIT 

O 
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AU  I I— ICJF-i  tjyst:  o-m 


P h3  HE1  *3 


ATH5 y X I 


1 O S 


1858  RtM  ** 

1835  RtM  ** 

1840  RtM  **  Function  > To  Insert  Character  into  buffer 
1844  REM  **  and  process  any  control  functions. 

1848  REM  **  Variables> 

1855  REM  **  R0*<>  > character  buffer  ! 

1856  RtM  ** 

1860  RtM 

1864  UEFFN  ' 109  <R0*( 1 ) ) : RtM  ENTRY 

1863  RO  = VAL<R0*<1))  : RtM  CONV  TO  DEC 

1875  RtM  ** 

1876  RtM  **  ! ERASE  ! UNDRSCR  ! EDIT  ! ESCAPE  ! CRLF  ! OTHER  ! 

1880  RtM  **  ! ! ! ‘ ! ! ! 


1884  ON  RO  GOTO  1900  , 1904 

1888  REM  **  ! ! 

1895  REM  ** 

1896  GOSUB  ' 110  <R0*<1>> 

1-300  GOSUB  ' 111 

1904  GOSUB  ' 115 
1908  GOSUB  ' 113 

1915  GOSUB  ' 153 

1916  GOSUB  ' 154 
1950  RETURN 


1908  , 1915  , 1916  , 1896.  : RtM  BRNCH 

i i t i 

: GOTO  1950  : RtM  ENTER  CHARACTER 
: GOTO  1950  : RtM  KUBOUT  CHARACTER 
: GOTO  1950  : RtM  UNDERSCORE  CHAR. 

: GOTO  1950  : RtM  EDIT  BUFFER 
: GOTO  1950  : REM  INPUT  COMPLETE 
: GOTO  1950  : RtM  INSERT  <CRLF> 

: REM  EXIT 


AUTHOR  S y s "t  em  : Ph-i 


— ATMS X I I 


1324  REM  ** 
1928  REM  ** 
1932  REM  ** 
1336  REM  ** 
1940  REM  ** 


Subroutine 
Function  > 


1 1 0 


To  transfer  character  from  character 
buffer  to  storage  buffer. 


1944 

REM 

*■* 

Store  buffer 

on  disk 

when  full. 

1348 

REM 

*•* 

Variables' 

1952 

REM 

R1 

> 

crt  pos  <row> 

! R2 

> 

crt  pos 

<col> 

1956 

REM 

R4 

> 

buf  pos  <row> 

! R5 

> 

buf  pos 

<col> 

1960 

REM 

R3 

> 

bufr  pointer 

! R6 

> 

top  lin 

of  buf 

1964 

REM 

•tt"* 

Rl*<  ) 

> 

storage  bufr 

! R0*<> 

> 

char,  buffer 

1968 

REM 

-»-* 

R5*(  ) 

> 

terminator  char 

! 11 

> 

item  id 

1972 

REM 

12 

> 

storg  fnct  code 

1976 

1980 


REM  ** 
REM 


1984 

DEFFN 

' 110 

'R0*<1>> 

: 

REM 

ENTRY 

1988 

IF 

R3  = 1 

THEN 

2168 

: 

REM 

FIRST  CHARACTER 

1992 

REM  ** 

1996 

IF 

R2  <>  59 

THEN 

2036. 

REM 

NOT  TIME  FOR  TONE 

2000 

*GI0  TONE 

/OOS  <R8*(7), 

R8*<9) ) 

REM 

END  OF  LINE  TONE 

2004 

IF 

R4  <>  32 

THEN 

2036. 

REM 

NOT  END  OF  BUFR 

2008 

GOSUB 

' 101 

(14,50,1,12) 

REM 

POSITION  CUSOR 

2012 

PRINT 

“ LAST  LINE! 

« 

REM 

PRINT  WARNING 

2016 

*GIO  TONE 

/OOS  (R8*(4>, 

R8*(3)  ) 

REM 

PAUSE  TONE 

2020 

*GIO 

PONE 

/005  (R8*<4), 

R8*(9) ) 

REM 

PAUSE  TONE 

2024 

$G 10  TONE 

/005  (R8*(4), 

R8*(9) ) 

REM 

PAUSE  TONE 

2028 

GOSUB 

' 101 

(R1,R2,0,0) 

• 

REM 

REPOSITION  CUSOR 

2032 

REM  ** 

2036 

IF 

R2  <>  63 

THEN 

2148 

REM 

NOT  END  OF  LINE 

2040 

R2  = 0 

REM 

SET  CRT  POS 

2044 

R5  = 0 

REM 

SET  BUFFR  POS 

2048 

IF 

R1  <>  13 

THEN 

2068 

REM 

NOT  BOTM  OF  SCRN 

2052 

R6  = R6  + 1 

REM 

I NCR  TOP  LIN  INDX 

2056 

GOSUB 

' 121 

(R6) 

REM 

ROLL  CRT  SCREEN 

2060 

\ 

R1  = 12 

REM 

SET  CRT  POS  INDX 

2064 

REM  ** 

2068 

R1  = R1  + 1 

REM 

I NCR  CRT  ROW  INDX 

2072 

GOSUB 

' 101 

<R1,R2+1,0,0) 

REM 

POSITION  CUSOR 

2076 

IF 

R4  <>  32 

THEN 

2144 

REM 

NOT  END  OF  BUFR 

2080 

MAT  COPY 

R5t  ( ) <2, 1>  TG 

Rl$<  XR3-1, 1> 

REM 

SET  EOI  BYTE 

2084 

GOSUB 

' 101 

(14,50,0,0) 

REM 

POSITION  CUSOR 

2088 

PRINT 

“ Working... 

H 

2092 

GOSUB 

' 129 

(11,12) 

REM 

WRITE  TO  DISK 

2096 

12  =2 

REM 

SET  FUNCTION  INDX 

2100 

R3  = 1 

REM 

SET  BUFR  INDEX 

2104 

R6  = 1 

REM 

SET  TOP  OF  BUFFR 

2108 

R4  = o : 

R5  =0 

REM 

SET  BUF  POS  INDX 

2112 

R1  = 1 : 

R2  =0 

REM 

SET  CRT  POS  INDX 

2116 

GOSUB 

7 122 

(El) 

REM 

RESET  TEXT  BUFR 

2120 

GOSUB 

' 101 

(14,1,0,0) 

REM 

POSITION  CUSOR 

2124 

INIT (2D) 

R9*(  ) 

REM 

CREATE  BOTOM  LINE 

2128 

*GIO 

PRINT 

/005(R8*(2),R8*(9) ) R9*<)<1,63> 

REM 

PRINT  BOTOM  LINE 

2132 

GOSUB 

' 101 

(14,50,0,0) 

REM 

POSITION  CUSOR 

2136 

PRINT 

" Entry  Mode 

■ 

2140 

GOSUB 

' 101 

(R1,R2+1,0,0) 

REM 

POSITION  CUSUR 

2144 

R4  * R4  4 1 

REM 

I NCR  ROW  INDX  BUF 

2148 

R2  = R2  4 1 

REM 

I NCR  COL  INDX  CRT 

2152 

R5  = R5  4 1 

REM 

I NCR  COL  INDX  BUF 

O 


147 


21 56 

♦G 10 

LEFT 

/005 

<4009 

,R8*<9) ) 

REM 

SPACE  CUSOR  LEFT 

2160 

IF 

R2  <> 

1 

THEN  2168 

REM 

SPACE  IS  OK 

2164 

*GI0 

RIGHT 

/005 

<4008 

,R8*<9> ) 

REM 

SPACE  CUSOR  RIGHT 

2168 

MAT 

COPY 

RO*<  ) 

<1.  1> 

TO  Rl*< ) <R3, 1> 

REM 

LOAD  INTO  BUFFER 

2172 

*GI0 

CHAR 

ZOOS 

<A0004008,R8*<9) ) R0*<>  <1,1> 

REM 

DISPLAY  CHARACTER 

2176 

2180 

RETURN 

R3  = 

R3  ♦ 

1 

REM 

REM 

I NCR  BUFFER  INDX 
EXIT 

r 


AUI HOH 

Sy  &-tei 

2184 

REM  +* 

2188 

REM  ** 

2192 

REM  ** 

Subroutine 

2196 

REM  ** 

Function  > 

2200 

REM  ** 

Variables  i 

2204 

REM  ** 

R1  > i 

2208 

REM  ** 

R4  > 1 

2212 

REM  ** 

R3  > 1 

2216 

REM  ** 

Rl*<>  > ! 

2220 

REM  ** 

UL  M -JHMH 

CCC't 

ntn  •wwwi 

2228 

DEFFN  ' 

Ill 

2232 

IF 

R3  * 

2236 

COSUB  ' 

101  <R1,R2 

2240 

MAT  COPY  R5*<> 

2244 

R3  = 1 

2248 

IF 

R3  * 

2252 

IF 

R2  <> 

2256 

R2  * i 

2260 

R5  = ' 

2264 

IF 

R1  <> 

2268 

R6  = 1 

2272 

COSUB  ' 

121  (R6) 

2276 

R1  " , 

2280 

R1  - 1 

2284 

R4  = 1 

2288 

R2  = 1 

2292 

R5  = 1 

2296 

GOSUB  ' 

101  (R1,R2 

2300 

RETURN 

Phai 


— ATHS X I I 


— a 


1 1 1 


To  Rubout  current  character. 


crt  pos  <row> 
buf  pos  <row> 
bufr  pointer 


R2 

R5 

R6 

R0*<) 


crt  poo  <co 
buf  poo  <co 
top  lin  of 
char,  buffo 


1> 

1> 

buf 

r 


R3 

1 

1 

64 

64 

1 

R6 

2 

R1 

R4 

R2 

R5 


THEN  2300 


THEN  2300 
THEN  2288 


THEN  2280 


REM  ENTRY 

REM  IE  BUFR  EEGIN1NC 
REM  ERASE  CHARACTER 
REM  CLR  TEXT  BUFFR 
REM  DECRMNT  BUFR  INOX 
REM  IF  BUFR  BEGIN1NG 
REM  NOT  BEC  Of  LINE 
REM  SET  TO  END  OF  LIFE 
REM  SET  TO  END  OF  LINE 
REM  NOl  TUP  OF  SCREEN 
REM  DECRMNT  TOP  INDEX 
REM  RE-WRITE  SCREN  PAC 
REM  RESET  CRT  ROW  INDX 
REM  DECRMNT  ROW  INDX 
REM  DECRMNT  ROW  INDX 
REM  DECRMNT  COL  INDX 
REM  DECRMNT  COL  INDX 
REM  POSITION  CUSOR 
REM  EXIT 


AUTHOR 

5304 

REM  ** 

3308 

REM  ** 

2312 

REM  **  ! 

2316 

REM  **  1 

2320 

REM  **  1 

2324 

REM  ** 

2328 

REM  ** 

2332 

REM  ** 

2336 

REM  **♦*■ 

2340 

DEFFN  ' 

2344 

MAT  CORY 

2348 

AND 

2352 

ADD 

2356 

MAT  COPY 

2360 

RETURN 

Sys-tcm:  Phase 


— /NTHa  ^ I I 


— X 


Subroutine 
Function  > To 
Variables  > 
Rl*<)  > 

R3  > 


underscore  the  current  character. 


1 1 2 


storage  bufr 
buffer  pointer 


! R0*()  > char  buffer 


11a 


Rl*<>  <R3-1,1>  TO  R0*<)  <1,1> 
(R0»(l)t7F) 

<R0»<1),80> 

RO*()  <1,1>  TO  Rl*<)  <R3-1,1> 


REM  ENTRY 

REM  FETCH  CHARACTER 
REM  CLR  UNDHSCR  FLAG 
REM  SIT."  UNDHSCR  F LAG 
REM  SAVE  CHARACTER 
REM  EXIT 


150 


AUTHOR  System: 


ATH2/I I 


— i 


2364  REM  ** 
2368  REM  ** 
2372  REM  ** 
2376  REM  ** 
2380  REM  ** 
2384  REM  ** 
2388  REM  ** 
2392  REM  ** 
23-36  REM  ** 
2400  REM  ** 
2404  REM  ** 
2408  REM  ** 
2412  REM  ** 
2416  REM  *** 


Function  > To  alow  the  storage  buffer  to  be 

Edited.  Editing  can  only  be  performed 
on  data  currently  in  buffer. 

Variables  > 

10  > value  of  numbr  str  ! R3  > buffer  point 
R2*  > number  string  ! R4  > buf  indx  <roi 


Rl*()>  storage  buffer 
R0*(>>  character  bufr 
R8*(>>  micro  cmnds 


R3  > buffer  pointer 
R4  > buf  indx  <row> 

R5  > buf  indx  <col> 

R4*()>  translations 

19  > length  of  numbr  string 


2420 

DEFFN 

/ 

113 

: 

REM 

ENTRY 

2424 

GOSUB 

/ 

101 

< 14,50,1,12) 

: 

REM 

POSITION  CUSOR 

2428 

PRINT 

“ Edit  Mode  * 

2432 

GOSUB 

/ 

101 

(R1,R2,0,0> 

REM 

POSITION  CUSOR 

2436 

REM  ** 

2440 

INIT (20) 

R2* 

REM 

CLR  STORAGE  BUFR 

2444 

19  = 0 

REM 

SET  NUMBR  LENGTH 

2448 

10  = 1 

REM 

SET  NUMBR  VALUE 

2452 

R3  = (R4-l>*63  + R5  ♦ 1 

REM 

CMPUTE  CURNT  INDX 

2456 

IF 

Rl*  = HEX (00) 

THEN 

2544 

REM 

REPEAT  CUSR  MOVE 

2460 

REM  ** 

2464 

STR(R8*(9),5, 1)  = R1*(R4, 

R5) 

REM 

STOR  CURNT  CHAR 

2468 

KEY  IN 

R0*( 1 ) , 2484,  2584 

REM 

INPUT  EDIT  CMND 

2472 

*GIO  CUSOR 

/005  <R8*(1),R8*(9)) 

REM 

INPUT  WAIT 

2476 

GOTO 

2468 

REM 

CONTINUE  WAIT 

2480 

REM  ** 

2484 

*TRAN 

( RO*  ( XI,  1 > , R4*( )<273,48>>  R 

REM 

CONV  CTL  CHAR 

2488 

Rl*  = HEX (20) 

REM 

CLR  REPT  CUSR  FLG 

2492 

RO  = VAL<R0*<1) ) 

REM 

CMPUT  CHAR  VALUE 

2496 

IF 

R0*(1)  < HEX<0A> 

THEN 

2608 

REM 

VALID  CTL  CHAR 

2500 

IF 

R0»<1)  > HEX  < 39) 

THEN 

2584 

REM 

INVALID  INPUT 

2504 

IF 

RO* ( 1 ) > HEX (29) 

THEN 

2608 

REM 

VALID  NUM  CHAR 

2508 

IF 

RO*< 1 ) > HEX(OA) 

THEN 

2536 

REM 

INVALID  INPUT 

2512 

IF 

R3  <>  2 

THEN 

2564 

REM 

NO  TEXT  LOOKUP 

2516 

IF 

El  <>  1 

THEN 

2564 

REM 

IF  NOT  A NEW  START 

2520 

GOSUB 

/ 

122 

(2) 

REM 

LOAD  TEXT  BUFFER 

2524 

IF 

14  = 0 

THEN 

2564 

REM 

NON-EXISTANT  ITEM 

2528 

GOTO 

2440 

a 

a 

REM 

BRANCH  EDIT  INPUT 

2532 

REM  ** 

2536 

Rl*  = HEX (00) 

a 

a 

REM 

SET  REPT  CUSR  FLG 

2540 

RO  = VAL(RO*< 1 ) ) - 10 

a 

REM 

CMPUT  BRANCH  INDX 

2544 

KEY  IN 

R0*( 1 ) , 2484,  2544 

REM 

REPEAT  INTRUP  CHK 

2548 

STR  <R8*<9) ,5,1)  = R1*(R4, 

R5) 

a 

REM 

STOR  CURNT  CHAR 

2552 

*GIO  CUSOR 

/005  <R8*( 1 ) ,R8*(9) ) 

a 

a 

REM 

DISPLAY  CUSOR 

2556 

GOTO 

2608 

a 

a 

REM 

EXCUTE  MOVE 

2560 

REM  ** 

2564 

GOSUB 

/ 

101 

(14,50,1,12) 

a 

a 

REM 

POSITION  CUSOR 

2568 

PRINT 

" Entry  Mode  " 

2572 

GOSUB 

/ 

101 

(R1,R2,0,0> 

REM 

POSITION  CUSOR 

2576 

GOTO 

2668 

a 

a 

REM 

BRANCH  TO  EXIT 

2580 

REM  ** 

2584 

♦CIO  TONE 

/005  (R8*(7),R8*(9>) 

a 

• 

REM 

ERROR  TONE 

2588 

GOTO 

2440 

a 

a 

REM 

BRANCH  EDIT  INPUT 

151 


¥ — ^ — i 


5592 

REM  ** 

asse 

REM  ** 

2600 

REM  ** 

! LEFT  ! 

RIGHT  ! 

UP  ! 

DOWN 

! CHANG  ! 

2604 

REM  ** 

1 — 1 . 

- 

. 1 

i 

2608 

ON  RO 

GOTO 

2628  , 

2632  , 

2636  , 

2640 

, 26.44 

2648  , 

2652  , 

2656  , 

2660 

, 2624 

; REM  BRANCH 

2612 

REM  ** 

( 1 . 

» -■ 

- ! 

1 

2616 

REM  ** 

! DELET  ! 

INSRT  • 

BEGIN  ! 

END 

! NUMBR  ! 

2620 

REM  ** 

2624 

GOSUB 

4 

120 

( 10, 19) 

GOTO 

2464  : 

REM 

CMPUT  NUMBER 

2628 

GOSUB 

' 

114 

(IO*(-l>> 

GOTO 

2440  : 

REM 

CUSOR  LEFT 

2632 

GOSUB 

t 

114 

(10) 

GOTO 

2440  : 

REM 

CUSOR  RIGHT 

26.30 

GOSUB 

4 

115 

(I0*(-1) ) 

■ 

• 

GOTO 

2440  : 

REM 

CUSOR  UP 

2640 

GOSUB 

4 

115 

(10) 

• 

GOTO 

2440  : 

REM 

CUSOR  DOWN 

2644 

GOSUB 

4 

116 

GOTO 

2440  : 

REM 

CHANGE  CHARACTER 

2648 

GOSUB 

4 

117 

GOTO 

2440  : 

REM 

DELETE  CHARACTER 

2652 

GOSUB 

4 

118 

(10) 

GOTO 

2440  : 

REM 

INSERT  CHARACTER 

2656 

GOSUB 

4 

119 

(1) 

GOTO 

2440  : 

REM 

SET  TO  BEG  OF  BFR 

2660 

GOSUB 

4 

119 

(2) 

GOTO 

2440  : 

REM 

SET  TO  END  OF  BFR 

2664 

REM  ** 

2668 

RETURN 

; 

REM 

EXIT 

AUTHOR 


i/5t  cm  : Phase 


— ATH5 /II 


— 1 


2672 
2676 
at&o 
2684 
2688 
26  92 
2636 
2700 
2704 
2708 
2712 
2716 
2720 
2724 
2728 
2732 
2736 
2740 
2744 
2748 
2752 
2756 
2760 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *♦ 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 


Subroutine 

Function  > To  position  cusor  left  or  right  of 
current  position. 

> 

character  bufr 
buf  indx  <col> 
bufr  indx  linr 
length  of  move 


1 1 4 


Variables 
R0*<>  > 
R5  > 
R3  > 
10  > 


R1 

R2 

R4 


crt  pos  <row> 
crt  pos  <col> 
buf  indx  <row> 


10 


If 


GOTO 
REM  ** 
If 


114  (10) 

R2  = R2  ♦ 

R2  > O' 

R2  = R2  ♦ 63 
2752 


THEN  2744 


REM  ENTRY 

REM  CMPUT  NEW  COL  INDX 
REM  NOT  PAST  LEFT  MRGN 
REM  SOLE  FOR  RAP AROUND 
REM  BRANCH  FOR  SCROLL 


GOSUB  ' 
RETURN 


R2  < 64 
R2  - R2 
R5  * R2 

101  <R1,R2,0,0> 


TEEN  2752 


63 


REM  NOT  PAST  RCHT  MRGN 
REM  SCLE  FOR  RAP AROUND 
REM  SET  NEW  COL  INDX 
REM  POSITION  CUSOR 
REM  EXIT 


AUTHOR  Sys- -terns  Phase 


— ATH2 /IX  — 


2764  REM  * 
2768  REM  « 
2/72  REM 


Subroutine  *hhhhhhmhhhhmhhhhhhhhmhmhhhhhh»" 
Function  > To  position  cusor  up  or  down  of 
current  position. 

Variables  > 

R0*<>  > character  bufr  ! R1  > crt  poo  <row> 

R5  > buf  indx  <col>  ! R2  > crt  pos  <col> 

R3  > bufr  indx  linr  ! R4  > buf  indx  <row> 

10  > length  of  move  ! Rl*<)>  storage  bufr 

R8*(>  > micro  cmnds  ! 


1 1 5 


2812 

REM  iHHHHHHH 

»•»»««  » » ■ » « ■ » II 

" " " " " 

ririr-iriri 

2816 

UEFFN  ' 115 

<I0) 

2820 

R4  = 

R4  ♦ 10 

2824 

IF 

R4  > 

0 

THEN 

2840 

2828 

R4  = 

R4  ♦ 32 

2832 

GOTO 

2852 

2836 

REM  ** 

2840 

IF 

R4  < 

33 

THEN 

2852 

2844 

R4  = 

R4  - 32 

2848 

REM  ** 

2882 

If 

R4  > 

R6+12 

THEN 

2864 

2856 

IF 

R4  > 

= R6 

THEN 

2884 

2860 

REM  ** 

2864 

R6 

= R4 

2868 

If 

10  < 

O 

THEN 

2880 

2872 

R6 

= R6  - 12 

2876 

REM  ** 

2880 

COSUB  ' 121 

(R6) 

2884 

R1  - 

R4  - R6  ♦ 1 

2888 

COSUB  ' 101 

<R1, 

R2,0,0) 

RETURN 


REM  ENTRY 

REM  Cf'PUT  NEW  ROW  IUX 
REM  N01  OVER  TOP 
REM  SOLE  FOR  RAP AROUND 
REM  BRANCH  FOR  SCROLL 


: REM  SOLE  FUR  RAP AROUND 
: REM  IF  PAST  BOTTOM 


: REM  SET  TOP  Of  PAGE 
*.  REM  MOVE  WAS  CUSR  UP 
: REM  RESET  TOP  Of  PAG 

: REM  REWRITE  SCREEN 
: REM  RESET  CRT  POSITION 
: REM  POSITION  CUSOR 
: REM  EXIT 


AU'I  HQR  S x stem:  Ph-aise 


— ATH2 /II  — 1 1 fc 


2896 

2900 

2904 

2908 

2912 

2916 

2920 

2924 

2928 

2932 

2936 

2940 

2944 

2948 

2952 

2956 

2960 

2964 

2968 

2972 

2976 

2980 

2984 

2988 

2992 

2996 

3000 

3004 

3008 


REM  ** 

REM  ** 

HEM  **  Subroutine  ***************** 
HEM  **  Function  > To  Change  current 
REM  ** 

HEM  **  Variables  > 

REM  **  RO*<)  > character  buffer  ! 
REM  **  R3  > buffer  indx  ! 


1 1 6 


HEM  *» 
REM  *» 
REM  ** 
REM  ** 
DEFFN 
GOSUB 


character  only. 


Rl*<)  > storage  bufr 


ERASE  ! UNDR SCR  ! EDIT  ! ESCAPE  ! CRLF  ! OTHER 


DEFFN  ' 116 

GOSUB  ' 108  <R0*< 1 ) ) 

RO  = VAL ( RO*  < 1 ) ) 

REM  ** 

REM  **  ! ERASE  ! UNDR SCR  ! 

REM  **  ! ! !- 

ON  RO  GOTO  2988  , 2976  , 

REM  **  ! ! ! - 

REM  *» 

GOSUB  ' 110  <R0*(1>> 

GOSUB  ' 112 
GOTO  3000 

REM  ** 

*G10  TONE  /005  <R8*<7> ,R8*<9> > 
10  » O 

REM  ** 

10  « 10  - 1 

IF  10  > O 

RETURN 


: REM  ENTRY 

: REM  ENTER  A CHARACTER 
: REM  CONV  TO  AN  INDX 


, 2992  , 2988  , 2972  : REM  BRNCH 

. i i i i 


GOTO  3000  : REM  INSERT  CHAR 
GOTO  3000  : REM  UNDERSCORE  CHAR 
: REM  BRANCH  TO  EXIT 

: REM  INVALID  CHARACTER 
: REM  SET  END  INDEX 

: REM  DECRMNT  INDEX 
THEN  2940  : REM  CONT  CHAR  CHANGE 
: REM  EXIT 


AUTHOR 

3012 

REM  ** 

3016 

REM  ** 

3020 

REM  **  ! 

3024 

REM  **  | 

3028 

REM  ** 

3032 

REM  **  1 

3036 

REM  ** 

3040 

REM  ** 

3044 

REM  ** 

3048 

REM  ** 

3052 

REM  ** 

3056 

REM  »**«■ 

3060 

DEFFN  ' 

3064 

3068 

IP 

3072 

3076 

3080 

MAT  COPY 

3084 

GOSUB  * 

3088 

GOSUB  ' 

3092 

RETURN 

Sy  B-tem:  Phase 


— ATH2 /IX 


— 1 


Subroutine 

f-unction  > To  Delete  a string  of  characters. 


1 1 7 


Variables  > 


Rl*< ) 
RS*< ) 
R3 
R2 


> storage  buffer 

> scratch  buffer 

> buffer  index 

> crt  pos  <col> 


RO 

10 

R1 

R6 


> spcs  in  bufr 

> spcs  to  delete 

> crt  pos  <row> 

> top  line  of  buf 


117 


RO  - 2016  - R3  + 1 

10  < RO  THEN  3076 

10  = RO 

IS  = 2016  - R3  + 1 
Rl*< XR3+I0, IS-10>  TO  Rl*<  ) <R3, 1S> 
121  (R6) 

101  <R1,R2,0,0> 


REM  ENTRY 

REM  CMPUT  SPCE  AVI ABLE 
REM  SPACE  AVA1ABLE 
REM  SET  TO  MAX  SPACE' 
REM  CMPUT  TRNSPR  SPACE 
REM  CLR  BUFR  TEXT 
REM  RE-WRITE  SCREEN 
REM  POSITION  CUSUR 
REM  EXIT 


156 


AU1HQR  System 


Phase 


ATH2 XII 


IIS 


i> 


3096  REM  * 
3100  HEM  * 
310/1  REM 


3108  REM  ** 


Subroutine 
Function  > To 


1 1 8 


Insert  characters  into  the  buffer. 


3112 

3116 

REM 

REM 

** 

** 

Variables 

> 

3120 

REM 

** 

RO 

> 

max  spcs  to  insrt! 

R1 

> 

crt  pos  <row> 

3124 

REM 

*■* 

R2 

> 

crt  pos 

<col>  ! 

R3 

> 

buffer  indx 

3128 

REM 

*■* 

Rl*( ) 

> 

storage 

buffer  ! 

R4 

> 

buf  pos  <row> 

3132 

REM 

** 

R2*< ) 

> 

search 

result  ! 

R5 

> 

buf  poo  <col> 

3136 

3140 

REM 

REM 

** 

** 

R9*<  ) 

> 

scratch 

buffer  ! 

10 

> 

spcs  to  insrt 

3144 
3148 
31 5c! 
3156 
3160 
3164 
3168 
31  72 
3176 


REM 
DEFFN 
GOSUB 


118  (10) 
136  < 32) 


RO  = 2016  - RO 


If 


RO 

RO 


THEN  3168 


MAT  COPY 
MAT  COPY 


3180 

GOSUB 

/ 

121 

(R6) 

3184 

GOSUB 

/ 

101 

<14,50,1. 

3188 

PRINT 

* Insert 

3192 

GOSUB 

/ 

101 

<R1,R2,0 

3196 

GOSUB 

/ 

108 

<R0*(1) ) 

3200 

RO  = VAL 

3204 

REM  ** 

3208 

REM  ** 

! ERASE 

3212 

REM  ** 

1 

3216 

ON  RO 

GOTO 

3232  , 

3220 

REM  ** 

1 

3224 

REM  ** 

3228 

GOSUB 

/ 

110 

<R0*<1)> 

3232 

GOSUB 

/ 

111 

3236 

GOSUB 

/ 

112 

10 
10 

19  ■ (2016-R0)  - R3  + 2 

-Rl*<  XR3,  I9>  TO  -Rl*<  XR3+I0,  I9> 

R5*<  XI,  1>  TO  R1*(XR3, 10> 


REM  ENTRY 

REM  DETERM IN  BUFR  LEN 
REM  CMPUT  CHAR  REMA1NG 
REM  SPACE  IS  AVA1ASLE 
REM  SET  TO  MAX  SPACE 
REM  CMPUT  TRNSPR  SPACE 
REM  REVERSE  COPY 
REM  CLR  INSRT  SPAC 
REM  RE-WRITE  SCREEN 
REM  POSITION  CUSOR 


REM  POSITION  CUSOR 
REM  ENTER  A CHARACTER 
REM  CONV  TO  AN  INDX 


UNDR SCR  ! EDIT  ! ESCAPE  ! CRLf  ! OTTER 


3236 


3240 


3240 


3240 


3228 


REM  BRNCH 


GOTO  31-36 
GOTO  3196 
GOTO  3196 


3240 

3244 

3248 

3252 

3256 


*G10  TONE 


GOSUB  ' 
PRINT 
GOSUB  ' 
RETURN 


101 


101 


/005  <R8*(7),R8*<9)) 
(14,50, 1, 12) 

• Edit  Mode  • 
(R1,R2,0,0> 


REM  SAVE  CHAR  IN  BUFR 
REM  RUB OUT  CHARACTER 
REM  UNDERSCORE  CHAR. 
REM  EXIT  INSERT  MOOE 
REM  POSITION  CUSOR 


REM  POSITION  CUSOR 
REM  EXIT 


O 


157 


1 


T 


AUTHOR  System: 


P & & 


ATHS /II  — 1 I 


3280 

RFM 

** 

3284 

RtM 

3288 

REM 

*-* 

Sub  rout  i ne  **HHHHFIHHHI'*HHHHHHHHHt*H**HHHH**Ht*HHHF»F****HF**HHF>H«- 

3272 

REM 

** 

Abstract  > 

3276 

RtM 

** 

To  position  the  cusor  tet 

the  begining  or  end 

of  the 

3280 

REM 

text  buffer. 

3284 

REM 

** 

Variables  > 

3233 

RtM 

** 

19  > position  index 

! R6  > 

top  lin  on 

crt 

3292 

RtM 

R1  > crt  pos  <row> 

! R2 

> crt  pos 

< c o 1 > 

3238 

RtM 

R4  > bufr  pos  <row> 

! R5 

> bufr  pos 

<col> 

3300 

REM 

*•* 

3304  Rtf.  *HHHHHt-*HHHHHHHHHHHHHHHHHHHHFIHHHFIFIHHHHHHHHHHHFb 
3 *08  DEFFN  ' 119  < ISO  : REM  ENTRY 

3310  REM 

3312  REM  ! TOP  OF  BUFFER  ! END  OF  BUFFER  ! 

3314  REM  ! ! ! 

3318  ON  19  GOTO  3322  , 3324  : REM  BRANCH 

3318  REM  ! ! ! 

3320  REM 


3322 

3324 


Rl=  i:  R2*l: 
Rl=i3:  R2=l: 


R4=  l:  rs=i  : R&=  1 
R4=32:  RB=1:  R6=20 


: GOTO  3328 
: GOTO  3328 


1 


3328  REM  ** 

3328  GOSUB  ' 121  <R6) 

3330  GOSUB  ' 101  (R1,R2,0,0) 
3332  RETURN 


: REM  REWRITE  SCREEN 
: REM  POSITION  CUSOR 
: REM  EXIT 


9 


158 


AI_J'l  HOR 

3340  REM  ** 
3344  REM  ** 
3348  REM  ** 


. -fc  em : 


P ha  s-  e 


— ATH2 XII 


— 1 


O 


3352 

3356 

3360 

3364 

3368 

3372 

3376 

3380 

3384 

3388 

3392 

3396 


REM  ** 
REM  ** 
REM  *•* 
REM  ** 
REM 
DEFFN 


Subroutine 
Function  > To  compute  the  cycle  number. 
Variables  > 

R2*  > number  string  ! 10  > length  of  string 


1 2 0 


120 


IF 

CONVERT 
IF 
IF 

3400  REM  *■* 

3404  *GI0  TONE 
3408 
3412 
3416 
3420 


(10, 19) 

19  = 19  + 1 
STR(R2*,I9,1)  = 
NUM(R2*)  <>  64 
R2*  TO  10 


RO*< 1 ) 


10 

10 


1N1T (20) 
RETURN 


/005 
10  = 
19  = 
R2* 


64 

0 

(R8*(7),R8*(9>> 

1 

0 


: REM  ENTRY 
: REM  I NCR  NUMBR  INDX 
1 REM  INSRT  DIGIT 
THEN  3404  : REM  INVALID  NUMBER 

: REM  CMP UT  NUMRC  VALUE 
THEN  3404  : REM  ILLEACL  VALUE 
THEN  3420  : REM  LEAGL  VALUE 

: REM  INPUT  ERROR 
: REM  SET  TO  DEFALT  VAL 
: REM  RESET  NUMBR  LEN 
: REM  CLR  NUMBR  BUFR 
: REM  EXIT 


O 


159 


AUI  Hat?  SyB-t  em 


P ha  EE*  *=t 


ATHS /XX 


1 2 1 


y 


3454 

HEIM  ** 

345s 

REM  ** 

3435 

REM  ** 

Subroutine  w « » * • ihhhhhuh 

MMMtlMMMMMMMWKMMM  « ~1  < 

W W W W IHf  HMRRTtHRRIlM  1 1 

34  36 

REM  ** 

Function  > To  roll  screen  when  position 

is 

3440 

REM  *-» 

advanced  off 

of  screen. 

3444 

HEM  ** 

Variables  > 

3448 

REM  ** 

R9  > scratch 

! Rl*< ) > storage 

buf  r 

3435 

REM  ** 

R9*<)  > scratch 

! R6  > top  of 

pag  indx 

34  36 

REM  ** 

3460 

3464 

DEFFN  ' 

151  (R6) 

REM  ENTRY 

3468 

IN1T (5E) 

R9*<  ) 

REM  LOAD  SCRATCH  BUFR 

3475 

*GI0  HOME  /005  <4001,R8*(9) > 

REM  HOME  CUSGR 

3476 

REM  ■** 

3480 

t-OR 

R9  = R6  TO  R6+15 

REM  BEG  REWRITE  LOOP 

3484 

IF 

R9  <=  0 

THEN  3495  : 

REM  OUTSIDE  PAG  LIMIT 

3488 

IE 

R9  <=  35 

THEN  3500  : 

REM  INSIDE  PAG  LIMITS 

3495 

*G10  E ILL  /005  <R8*(5),R8*(9) ) 

R9*()<1,63>  : 

REM  PRINT  FILL  LINE 

34-36 

GOTO 

3304 

REM  CONT  OUTPUT  LOOP 

3300 

$G10  PRINT  /003  <R8*<S),RS*(9) > 

Rl«< )<<R9-1)*63+1,63>  : REM  PRINT  TEXT 

3304 

NEXT 

R9 

; 

REM  CONT  REWRITE  LOOP 

3308 

REM  ** 

3515 

RETURN 

; 

REM  EXIT 

AUTHOR  System:  Phase 
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3516  REM  ** 
3520  REM  ** 
3524  REM  ** 
3528  REM  *•* 
3532  REM  ** 
3536  REM  ** 
3540  HEM  ** 
3544  REM  ** 
3548  REM  ** 
3552  REM  ** 
3556  REM  ** 
3560  REM 


Subroutine 
Abstract  > 

To  load  storage  buffer  with 
Variables  > 

El  > text  recall  flag 
R6  > line  at  top  of  screen 
D1  > index  sector  adress 
09  > scratch  adrs  register 
Q84( ) index  sector  buf r 


1 2 2 


text  before  editing. 

! 14  > bufr  memory  position 
! DO  > memory  bufr  subscript 
* D2  > subsector  index 
! Q64( ) > memory  buffer 


3564 

OEFFN  ' 

122 

(El) 

REM 

ENTRY 

3568 

IE 

El  = 4 

THEN 

3576 

REM 

IE  END  OE  DATA 

3572 

IE 

El  <>  1 

THEN 

35-32 

REM 

NOV  INITIAL  ENTRY 

3576 

INI!  <20) 

Rl*<  ) 

REM 

CLR  TEXT  BUFR 

3580 

GOSUB  ' 

121 

(R6) 

REM 

REWRITE  SCREEN 

3584 

GOTO 

3652 

REM 

BRANCH  TO  EXIT 

3588 

REM  ** 

3592 

IE 

El  <>  2 

THEN 

3628 

REM 

NOT  ST  RT  OF  EDIT 

35-36 

GOSUB  ' 

130 

(ID 

REM 

DISK  LOOKUP 

3600 

IF 

14  = 0 

THEN 

3652 

REM 

NON-EXISTANT  ITEM 

3604 

R04  = 084(02+1) 

REM 

STOR  BEG  ADDRESS 

3608 

Q64(DO,DS)  = HEX(OOOO) 

REM 

CLR  MEMORY  TBL 

3612 

084  < D2 ) = HEX (0000) 

REM 

CLR  DISK  INDEX 

3616 

084 ( D2+ 1 ) = HEX(FFFF) 

REM 

CLR  DISK  INDEX 

3620 

DATA  SAVE 

BA  T #2,  (D1 ,09)  084 ( > 

REM 

UPDATE  DISK  INDEX 

3624 

REM  ** 

3628 

S04  * R04 

REM 

STDR  BEG  SCRT  ADRS 

36.32 

GOSUB  ' 

125 

(R04,R0, 11 ) 

REM 

LOAD  STORAGE  BUFR 

3636 

GOSUB  ' 

135 

(S04,HEX(0000)) 

REM 

SRCH  FOR  NXT  SCTR 

36-40 

R6  = 1 

REM 

SET  TOP  OE’  PAGE 

3644 

GOSUB  ' 

121 

(R6) 

REM 

REWRITE  SCREEN 

3648 

GOSUB  ' 

101 

(R1,R2,0,0) 

REM 

POSITION  CUSUR 

3652 

RETURN 

REM 

EXIT 

c 
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P ha  se  ei 


ATHa/  I 1 


1^3 


AU 

36  S6 
3660 
3664 
3668 

3675 

3676 
3680 
3684 
36-88 
3695 
3€.96 
3700 
3704 
3708 

3715 

3716 
3750 
3754 


I HQR  Sys."temS 


REM  *♦ 

REM  *♦ 

REM  **  Function  > To  set  End  of  Data  Flag  and 
REM  **  Save  buffer  on  disl<. 


REM  *-» 

REM  ** 

REM  ** 

REM  ** 

REM  **■ 

UEFFN  '153  : 

COSUB  ' 136  (35)  : 

If  RO  <>  5016  THEN  3715  : 

RO  = RO  - 1 : 

MAT  CORY  R5*(X5,1>  TO  Rl*(  XRO+l , 1> 

GOSUB  ' 159  (11,15)  ; 

R0*(1>  = HEX (FF)  : 

RETURN  : 


Variables  > 

R5*  > eof  flag  ! II  > item  id 

15  > strge  fnct  code  ! 


REM  ENTRY 

REM  DETERM IN  BUFR  SIZ 
REM  NOT  END  OF  BUFR 
REM  RESET  END  OF  BUFR 
REM  INSRl  EOI  CHAR 
REM  SAVE  DATA  ON  DISK 
REM  SET  EOF  FLAG 
REM  EXIT 
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w 


AUTHOR  System:  Phase  S — ATMS/ I I — # 


1548 

1556 

1672 

1672 

1708 

- 

1708 

1772 

- 

1780 

1816 

1788 

- 

1772 

1812 

- 

1772 

1788 

1796 

1824 

1800 

1804 

18'96 

1884 

1900 

1884 

1904 

- 

1884 

1908 

- 

1884 

1912 

1884 

1916 

- 

1884 

1920 

1896 

1900 

1904  1908 

1912 

1916 

2036. 

- 

1996 

2004 

2068 

- 

2048 

2144 

- 

2076 

2148 

- 

2036 

2168 

- 

1988 

2160 

2280 

- 

2264 

2288 

- 

2252 

2300 

- 

2232 

2248 

2440 

- 

2528 

2588 

2628  2632 

2636 

2640  2644  2648  2652  2656  2660 

2464 

- 

2624 

2468 

- 

2476 

2484 

- 

2468 

2544 

2536 

- 

2508 

2544 

- 

2456 

2544 

2564 

- 

2512 

2516 

2524 

2584 

- 

2468 

2500 

2608 

- 

£496 

2504 

2556 

2624 

- 

2608 

26.28 

- 

2608 

2632 

“ 

2608 

2636 

2608 

2640 

2608 

2644 

- 

£608 

2648 

2608 

26.52 

- 

26.08 

2656 

- 

2608 

2660 

- 

2608 

2668 

- 

2576 

2744 

- 

2728 

2752 

- 

2736 

2744 

2840 

2824 

2852 

- 

2832 

2840 

2864 

2852 

2880 

- 

2868 

2884 

2856 

2-940 

- 

3004 

2-972 

- 

2960 

2-976 

- 

2960 

2988 

- 

2960 

2992 

- 

2960 

3000 

2972 

2976 

2980 

3076 

- 

3068 

3168 

- 

3160 

3196 

- 

3228 

3232 

3236 

1 


MAP 
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- 3216 

- 3216 

- 3216 

- 3216 

- 3384  3392 

- 3396 

- 3484 

- 3488 

- 3496 

- 3568 

- 3572 

- 3592 

- 3584  3600 

- 3704 


AU I HQR  System 


Phase  c! 


ATHc?  SXT 


V M/M-' 


DO  - 3608 
01  - 3650 


Da 

- 

3604 

3613 

3616 

D5 

- 

3608 

D9 

- 

3630 

El 

- 

1648 

3116 

3516 

3564 

3568 

3573 

3593 

10 

- 

3448 

3634 

3638 

3633 

8636. 

8640 

3653 

3780 

8734 

8816 

3830 

8868 

3998 

3000 

3004 

3068 

3073 

3080 

3148 

3160 

3164 

3173 

3176 

3373 

3388 

3392 

3396 

3408 

11 

- 

1540 

30-33 

3596 

3633 

3716 

ia 

“ 

1540 

30-33 

3096 

3716 

14 

- 

asa4 

3600 

19 

- 

3444 

3634 

3076 

3080 

3168 

3173 

3308 

3380 

3334 

3373 

3376 

3380 

3418 

06*  ( 

- 

3608 

08*  < 

- 

3604 

3613 

3616 

3630 

R0 

- 

1868 

1884 

3493 

8540 

3608 

3-344 

3960 

3064 

306.8 

3073 

3156 

3160 

3164 

316.8 

3300 

3316 

3633 

3704 

3708 

3713 

R0* 

- 

3604 

3638 

3633 

R0*( 

- 

1548 

1553 

1556 

1668 

1673 

1708 

1764 

1778 

1788 

1793 

1796 

1800 

1804 

1864 

1868 

18-36 

1984 

3168 

3178 

3344 

8348 

3358 

3356 

3468 

3484 

3493 

3496 

2500 

3504 

3508 

3540 

3544 

3940 

3944 

8973 

3196 

3800 

3338 

3380 

3720 

R1 

- 

1634 

1713 

3038 

3048 

3060 

8068 

3073 

3118 

8140 

3836 

2264 

8876 

2880 

3396 

3433 

3573 

3756 

3884 

3888 

3088 

3193 

3358 

3313 

3338 

3648 

Rl* 

- 

1653 

3456 

3488 

8536 

Rl*< 

“ 

1660 

3713 

1768 

3080 

3168 

3840 

3344 

3356 

3464 

8548 

3080 

3178 

3176 

3500 

3576 

Ra 

- 

1638 

1713 

1996 

3038 

3036 

3040 

3078 

3118 

3140 

8148 

3160 

3836 

8258 

2256 

3388 

3396. 

3433 

8573 

3734 

3738 

3738 

3744 

8748 

8758 

3756 

8888 

3088 

3193 

3353 

3313 

3333 

3648 

Ra* 

- 

1656 

3440 

3380 

3384 

3388 

3416 

R3 

- 

1633 

1988 

3080 

3100 

3168 

3176 

8838 

3340 

3344 

82 48 

3344 

8356 

3458 

2518 

3064 

3076 

3080 

3168 

3173 

3176 

R4 

- 

1636 

1768 

3004 

8076 

3108 

3144 

8884 

3458 

3464 

3548 

3830 

3884 

3828 

2840 

3844 

3853 

3856 

3864 

3884 

3316 

3334 

R4*< 

- 

1793 

3484 

RS 

- 

1640 

1768 

3044 

8108 

3158 

8360 

8893 

3458 

3464 

8548 

3758 

3316 

R5*( 

- 

3080 

3340 

3176 

3713 

R6 

- 

1644 

3053 

3056 

8104 

3368 

3373 

8858 

3856 

3864 

3873 

3880 

8884 

3084 

3180 

3330 

3338 

3464 

3480 

3580 

3640 

3644 

K8*< 

- 

1680 

1688 

1768 

1776 

1818 

8000 

8016 

3030 

8084 

3128 

2156 

8164 

3172 

3464 

3473 

3548 

3553 

8584 

8988 

3840 

3404 

3473 

3493 

3500 

R9 

“ 

1684 

1693 

3480 

3484 

3488 

3500 

3504 

R9*( 

- 

1664 

1688 

3134 

3138 

3468 

3493 

SO* 

- 

3638 

3636 

AU  I HUK  System:  Hha&e  c!  — ATH2/1  1 — ' MAH 

????  UfcFFN'  101 

- 1700  1712  2008  2028  2072  2084  2120  2132  2140  2236  2296  2424  2432  2564 
2572  2756  2888  3088  3184  3192  3244  3252  3332  3648 

1540  UfcFFN'  106 
1620  UfcFFN'  107 

- 1544 

1764  DEFFN'  108 

- 1548  2940  3196 
1864  UfcFFN'  109 

- 1552 

1984  UfcFFN'  110 

- 1896  2972  3228 
2228  UfcFFN'  111 

- 1900  3232 
2340  UfcFFN'  112 

- 1904  2-376  3236 
2420  UfcFFN'  113 

- 1908 

2720  UfcFFN'  114 

- 2628  2632 
2816  UfcFFN'  115 

- 2636  2640 
2936  UfcFFN'  116 

- 2644 

3060  UfcFFN'  117 

- 2648 

3148  UfcFFN'  118 

- 2652 

3308  UfcFFN'  119 

- 2656  2660 
3372  UfcFFN'  120 

- 2624 

3464  UfcFFN'  121 

- 2056  2272  2880  3084  3180  3328  3580  3644 
3564  UfcFFN'  122 

- 2116  2520 
36-36  UfcFFN'  123 

- 1912 

????  UfcFFN'  124 

- 1916 

????  UfcFFN'  125 

- 3632 

????  UfcFFN'  129 

- 2092  3716 
????  UfcFFN'  130 

_ 25% 

????  UfcFFN'  135 

- 3636 

????  UfcFFN'  136 

- 3152  3700 


TAEG  Report  No.  59 


4.2.3  ATH3/II 

This  section  of  the  'AUTHOR/2'  program  contains  subroutines 
124  to  136. 

The  remainder  of  this  section  presents  the  ' ATH3/I I ' program 
listing  and  reference  maps. 


I 

O 


167 


/M_l  I MOM  Syct  cm : 


4000 

4004 

4008 

4012 

4016 

4020 

4024 

4028 

4032 

4036 

4040 

4044 

4048 

4052 

4056 

4060 

4064 

4068 

4072 

4076 

4080 

4084 

4088 

4092 

4096 

4100 

4104 

4108 

4112 


Phase  a — ATH3/1 1 


Version  > 2.0  2200  1/VP 


xm  Program  > AUTHOR/2  (ATH3/II) 

RbM  **  Subroutine 

function  > To  position  cusor  and  buffer  pointer 

such  that  the  next  character  entered  will 
appear  on  next  line. 

Variables  > 

RO*< ) > character  buffer  ! R2  > 

R5  > buffer  indx  <col>  ! R4  > 

R1  > ert  pos  <row>  ! R3  > 


— IS 

780320 
1 2 4 


RbM  ** 
RbM  ** 
RbM  *♦ 
RbM  ** 
RbM  ** 
RbM  ** 
RbM  ** 
RbM  ** 
RbM 
UbFFN 


ert  pos  <col> 
buffer  indx  <row> 
linear  bufr  indx 


124 


THEN  4100 


R0*< 1 ) * HEX <20 ) 

lb  R2  = 63  THEN  4076 

GCJSUB  ' 101  < R 1 , R2+ 1,1, 63-R2 ) 

MAT  COPY  RO*<  XI, 1>  TO  Hl*<> <R3, 63-R2> 

R2  = 62 
R5  = 62 

RbM  ** 

IF  R4  <>  32 

GOSUB  ' 101  (14,50,1,12) 

PRINT  * LAST  LINE!  * 

*GIO  TONE  /005  <R8*<4),H8*<9> > 

*GIU  TONE  /005  <R8*<4) ,R8*<9) ) 

*GIO  TONE  /005  <R8<<4) , R8*<9> ) 

COSUB  ' 101  (R1 , R2, 0,0) 

R3  = <R4-1)*63  ♦ R5  ♦ 1 
GUSUB  ' 110  <H0*<1)) 

RETURN 


REM  ENTRY 
RbM  CLR  INPUT  BUFR 
RbM  END  OF  LINE 
REM  ERASE  SCRN  TEXT 
RbM  ERASE  BUFR  TEXT 
REM  SET  TO  LINE  END 
RbM  SET  TO  LINE  END 

RbM  NOT  LAST  LINE 
RbM  POSH  ION  CUSOR 
RbM  PH I NT  MESSAGE 
REM  WARNING  TONE 
RbM  WARNING  TONE 
RbM  WARNING  TONE 
RbM  POSITION  CUSUR 
REM  CMPUT  BUFR  PUS 
REM  SAVE  CHAR  IN  BUFR 
RbM  EXIT 


I 


AU'l  HQR  S/stein: 


P ha  & e 


— ATH3/1 I 


— 1 


REM  ** 
REM  ** 

REM  **  s 
REM  A 
REM  ** 

REM  ** 

REM  **  V 
REM  ** 

REM  ** 

REM  ** 

REM  *•* 
HEM  ** 
REM  ** 
REM  ***** 
UEFFN  ' 
1N1T (20) 


Abstract  > 

To  load  storage  buffer  from  disk  g 
sector  address. 

Variables  > 

RO*  > begning  sctr  adr s • RO  > 
R3*  > scrtch  indx  adrs  ! RE  > 


1 2 5 


iven  begining 


RO*  > begning  sctr  adrs 
R3*  > scrtch  indx  adrs 

QO*()  > transfer  buffer 
Rl*<)  > storage  buffer 
R1  > item  id 


! RO  > 
! RE  > 
! 060 
! RS*< 


bufr  indx 
indx  item  fig 
> bufr  flag 
)>  srch  rsults 


UEFFN  ' 1E5  <R0*,H0,I1> 

1N1T (20)  Rl*<> 

RO  = 1 

DATA  LOAD  BA  T #2,  <R0*,R3*)  09*0 
MAT  COPY  09*  < ><1,2S2>  10  Rl*( ><R0,2S2> 

If  Q9*<64>  <>  HEX  < FFFFFFFF ) THEN 

MAT  SEARCH  Rl*<>,  = RS*<2>  TO  R2*<) 

If  R2*< 1 ) <>  HEX  < OOOO ) THEN 

GOSUB  ' 101  <16,1,1,0) 

PRINT  " DATA  IMMPROPERLY  STORED" 

R8*  - "99" 

R7*  = "Subroutine  10S" 

GOSUB  ' OOO 
G010  4272 

REM  ** 

RO  = RO  + E5E 

RO*  = STR<G9*<64>,3,2) 

IF  RO  < 2016  THEN 

El  =3 
RO  = 2016 

GOTO  4272 


GOTO 
REM  ** 

MAT  COPY 

RETURN 


RO  = FNR  < VAL  < RE* ( 1 ) ) ) 

R5*< )<1,1>  TO  Hl*<  > <R0, 1> 
El  = 4 


REM  ENTRY 

REM  CL.R  TEXT  BUFFER 
REM  SET  BUFR  INDX 
REM  LOAD  DATA 
REM  LOAD  BUFFR 
REM  NO  I END  OF  BUFR 
REM  SRCH  FOR  EOI 
REM  EOI  FOUND 
REM  POSH  ION  CUSOR 
REM  PRNT  ERR  MSC 
REM  SET  ERR  CODE 
REM  SET  ERR  SOURCE 
REM  ERR  PROCESSING 
REM  BRNCH  TO  EXIT 

REM  INCH  BUFR  INDX 
REM  STOR  NXT  ADRS 
REM  BUFR  NOT  FULL 
REM  SET  FLAG 
REM  SET  TO  BUR  MAX 
REM  BRANCH  TO  EX IT 

REM  CMPUTE  BYTE  STORED 
REM  CLR  EOI  BYTE 
REM  SET  FLAG 
REM  EXIT 


rr 


AUTHOR  tiy  st  em:  Phase 


— ATH3/ X X 


— 1 


4276 

4280 

4284 

4288 

4532 

4236 

4300 

4304 

4308 

4312 

4316 

4320 

4324 


RfcM 

RfcM 

RfcM 

RfcM 

RfcM 

RfcM 

RfcM 

RfcM 

RfcM 

REM 

RfcM 

RfcM 

RfcM 


4328  RfcM 
4332  RfcM 
4336  HEM 


Subroutine 
Abstract  > 

To  Write  storage  buffer  to  disk  updating 
disk  index.  The  three  operational  modes  are 

- 1 create  new  entry  in  index; 

- 2 add  contents  of  buffer  to  exising  data; 

- 3 erase  data  item  from  disk. 

Variables  > 

II  > item  id  ! 12  > function  code 

Q8*<>  > transfer  bufr  ! 13  > sub-sctr  indx 

SO*  > nxt  avaiabl  sctr!  SI*  > indx  sctr  adrs 

S2*  > sub-sctr  indx  ! S3*  > adrs  registr 


1 2 3 


4340 

DfcFFN 

/ 

123 

<11,12) 

: 

REM 

ENTRY 

4344 

REM  ** 

4348 

RfcM  ** 

! SAVE  ! 

ADO 

! DELETE  ! 

4352 

RfcM  ** 

1 1 - 

. 1 1 

4356 

ON  12 

GOTO 

4368  , 

4332 

, 4412 

: 

RfcM 

BRANCH 

4360 

RfcM  ** 

1 1 - 

. 1 1 

4364 

RfcM  ** 

4368 

cosue 

/ 

130 

<11) 

RfcM 

INDEX  LOOKUP 

4372 

If 

14  - 0 

THEN 

4380 

RfcM 

NON  EXIST  ANT  ITEM 

4376 

GOSUB 

/ 

131 

REM 

ERASfc  DATA 

4380 

cosue 

/ 

132 

REM 

SAVE  DATA  BUFR 

4384 

GOTO 

4432 

REM 

BRANCH  TO  EXIT 

4388 

REM  ** 

4332 

GOSUB 

/ 

130 

(ID 

REM 

INDEX  LOOKUP 

4336 

COSUB 

/ 

133 

■ 

REM 

SKIP  TO  END 

4400 

GOSUB 

/ 

132 

■ 

• 

REM 

SAVE  DATA  BUFR 

4404 

GOTO 

4432 

• 

REM 

BRANCH  TO  EXIT 

4408 

RfcM  *-* 

4415 

GOSUB 

/ 

130 

<I1) 

REM 

INDfcX  LOOKUP 

4416 

IF 

14-0 

THEN 

4432 

RfcM 

NON-fcXISTANT  ITEM 

4420 

GOSUB 

/ 

131 

RfcM 

ERASfc  DATA 

4424 

0010 

4432 

REM 

BRANCH  TO  EXIT 

4428 

RfcM  ** 

4432 

RETURN 

REM 

EXIT 

170 


c 


AUI HQR  System:  Phase  S — ATH3/II 


— 1 


O 


4 A 36 
4440 
4444 
4448 
4452 
4456 
4460 
4464 
4468 
4472 
4476 
4480 
4484 
4488 

4495 

4496 
4500 
4504 
4508 

4515 

4516 
4550 
4554 


REM  ** 
HEM  ** 
HEM  ** 
REM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
HtM  ** 
HEM 
DEFFN 


MAI  SEARCH 


Subroutine 
Function  > 
Variables 


1 3 0 


To  search  disk 

> 

14  > itm  srch  fig 

R9  > scratch  indx 

154  > search  ID 


index  for  item  ID. 

15  > indx  sctr  adrs 

084  < ) > index  bufr 

II  > item  ID 


IF 


DATA  LOAD 
RETURN 


130  (14) 

BIN(STR<SS4, 1, 1 ) )=INT< 14/556) 
BIN(STR(S54,5, 1) >=14-INT(I4/H56)*556 
0640,  =STR(SS4, 1,5)  TO  RS4<>  STEP  5 
14  = FNR ( VAL ( R54 ( 1 ) ) ) 

14  = O THEN  4554 

D9  = I NT ( 14/5)  ♦ 1 
DO  * 1NT ( (D9-D/64)  «•  1 
D5  = U9  - ( DO- 1 ) *64 
D1  » 1NT ( 14/158)  ♦ 1 
D5  * 14  - < (Dl-1 >*158) 

BA  T #5,  <D1 , D9)  Q84( ) 


REM  ENTRY 

REM  CMPUT  BINARY  ID 
RtM  CMPUT  BINARY  ID 
RtM  SRCH  ID  TABLE 
REM  CI*FUT  TBL  POSIT  ION 
RtM  NULL  LOOKUP 
REM  CMPUT  TBL  SUBSCRPT 
REM  CMPUT  ROW  SUBSCRPT 
RtM  CMPUT  COL  SUBSCRPT 
RtM  CMPUT  SCTR  ADDRS 
RtM  CMPUT  SUBSCTR  ADRS 
REM  LOAD  INDX  SCTR 
REM  EXIT 


i 


e 
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1 


AUTHOR  S/Dt  12-iti  ! 

4588  HEM  ** 

4535  HEM  *+ 


P li-ea  e-  e* 


— ATH 3 S I X 


— 1 


4536 

REM 

** 

Subrouti 

4540 

REM 

** 

Abstract 

4544 

REM 

** 

To  era 

4548 

REM 

** 

entry 

4555 

REM 

Variable 

4556 

REM 

** 

SO* 

4560 

REM 

S5* 

4564 

REM 

08*  ( ) 

4568 

REM 

S3* 

4575 

REM 

•** 

H5*(  ) 

4576 

REM 

*■* 

4580 

REM 

XUUMMMMMM 

4584 

DEFFN  ' 

131 

1 3 1 


4588 

4595 

4596 
4600 
4604 
4608 

4615 

4616 
4650 
4654 
4658 

4635 

4636 
4640 
4644 


DATA 
REM  ** 
DATA 


SAVE 


LOAD 


INIT(OO) 
DATA  SAVE 
IF 

GOTQ 
REM  ** 
RETURN 


se  existing  data  from  disk, 
from  disk  index  and  memory 

s > 

> nxt  avable  sctr!  SI*  > 

> sub-sctr  adrs  ! 13  > 

> transfer  bufr  ! II  > 

> scratch  regstr  ! R3*  > 

> search  regstr  ! 14  > 


06* (DO, D5)  = HEX (OOOO) 
S5*  = Q8*(D5+1) 

Q8*(D5)  = HEX (OOOO) 

08* ( D5+ 1 ) = HEX (FFFF ) 

BA  T #5,  (D1,D9)  Q8*( ) 

BA  T #5,  (S5*,S9*>  09*0 
S6*  *>  STR  ( 09*  ( 64 ) , 3, 5 ) 
09*  ( ) 

BA  T #5,  (SS*,S9*>  09*0 
S6*  = HEX (FFFF) 

S5*  = S6* 


Also  deleting 
ID  table. 

indx  sctr  adrs 
sub-sctr  adrs 
item  id 
scratch  bufr 
itm  scrch  fig 


THEN  4644 


4615 


REM  ENTRY 

REM  DELETE  FROM  ID  TBL 
REM  SI  OR  BEG  ADDRESS 
REM  DELETE  FROM  INDX 
REM  DELETE  FROM  INDX 
REM  UPDATE  DISK 

REM  LOAD  DATA  SEC  I OR 
REM  STOP  LINK  KEY 
REM  CLR  DATA  BUFFR 
REM  UPDATE  DISK 
REM  DELETE  COMPLETED 
REM  UPDATE  ADDRESS 
REM  LOAD  NXT  SCTR 

REM  EXIT 


o 
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fl  I 

■»  * 


AUTHOR 


-fc  cm : 


P h3  S3-  D 


— /NTh-t  3 X I T 


— 1 


'>648 

4658 

4656 

4660 

4664 

4668 

4672 

46/6 

4680 

4684 

4688 

4692 

4696 

4700 

4704 

4708 

4712 

4716 

4720 

4724 

4728 

4732 

4736 

4740 

4744 

4748 

4752 

4756 

4760 

4764 

4768 

4772 

4776 

4780 

4784 


REM  *-* 
REM  ** 
REM  ** 
HEM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
UEFFN 
IK 

C.0SUB 


Subroutine 
Abstract  > 

To  copy  data  from  storage  buffer 
incrementing  to  next  avaiable  se 
update  index  if  transfer  is  the 
of  the  data  buffer. 

Variables  > 

SOS  > nxt  avable  sctr!  SIS  > 

S2S  > sub-sctr  adrs  ! 13  > 

Q8SO  > transfer  bufr  ! II  > 

S3S  > scratch  regstr  i R2S  > 

R2SO  > search  regstr  ! 14  > 

S4S  > curnt  sctr  adrs!  1€.  > 


1 3 2 


to  disk.  At  end 
ctor  address.  Also 
initial  storage 


indx  sctr  adrs 
sub-sctr  adrs 
item  id 
scratch  bufr 
itm  scrch  fig 
out  bufr  indx 


132 


134 


MAT  SEARCH 


REM  *■* 

FOR 

MAT  COPY 
IF 

DATA  SAVE 
GOSUB 

NEXT 
RETURN 


12  = 2 

R1SO,  = R5S<2)  TO  R2SO 

14  * FNR ( VAL ( R2S ( 1 ) ) ) 

15  * 1 

14  - INT( <14-1 )/252)  + 1 


16  - 1 TO  14 

R1S< )<I5,252>  TO  Q9S( )<1,252> 
STR(09S<64>,3,2)  = S2S 
16  <>  14  THEN 

Q9*<64)  * HEX  ( FFFFFKFF  ) 

BA  T #2,  (SOS.S6S)  Q9SO 
135  (S2S, HEX <0000) ) 

15  - 15  ♦ 252 

16 


THEN  4728 


4768 


REM  ENTRY 

REM  CONTINUATION  DATA 
REM  UPDATE  INDEX 
REM  SKCH  FOR  E01  CHAR 
REM  CMPUT  POSITION 
REM  IN1T  START  POS 
REM  CMPUT  TRANSFR  SIZ 

REM  BEGIN  TRANSfR  LOOP 
REM  LOAD  TRANSFR  BUFR 
REM  ST  OR  LINK  ADDRESS 
REM  NOT  END  OF  STOR 
REM  END  OF  DATA  LINK 
REM  TRANSFR  TO  DISK 
REM  FETCH  NXT  ADURESS 
REM  I NCR  BUFR  POSITION 
REM  C.ONT  TRANSFR  LOUP 
REM  EXIT 


C 
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P ha  S3-  D 


ATH 3/11 


1 3 


AUTHOR  Syst  e-fn  = 


4788  REM  ** 
4798  HEM  *+ 
4796  REM  ** 
4800  REM  *■* 
4804  HEM  ** 


Subroutine 
Abstract  > 
Td  setup 


1 3 3 


for  a dish  transfer  so  as  to  1 ink  data  to 


4808 

RtM 

the  end 

of  existing  data 

on 

dish. 

4813 

RLM 

*■* 

Variables 

> 

4816 

REM 

** 

SO* 

> 

nxt  avable  setr 

i 

SI* 

> 

indx  setr  adrs 

4830 

REM 

*■* 

S3* 

> 

sub-setr  adrs 

i 

13 

> 

sub-setr  adrs 

4834 

RtM 

+-* 

08*  ( ) 

> 

transfer  bufr 

i 

11 

.*■ 

item  id 

4838 

REM 

*•* 

S3* 

> 

scratch  regstr 

i 

R3* 

> 

scratch  bufr 

4833 

RLM 

*■* 

R3*<  ) 

> 

search  regstr 

i 

14 

> 

itm  scrch  fig 

RtM 
REM 
DEFFN 


4836 
4840 
4844 
4848 
4853 
4856 
4860 
486.4 

486.8  GO ! 0 
487 8 RtM  ** 
4876 


133 


DATA  LOAD 


If 


4880 

4884 

4888 

4893 

4896 


MAI  SEARCH 

MAT  CORY 
DATA  SAVE 
RETURN 


S6*  = 08*<D3+1> 

BA  T #3,  <S6*,S7*)  0-9*0 
S7*  = STR  < 09* ( 64 ) , 3, 3 ) 

S7*  = HEX  < FFFF ) 

S6*  = S7* 

4853 

STR < 09*  64), 3, 8)  = SO* 
0-9*0,  --  R5*(8)  TO  R8*() 
14  = FNR ( VAL ( R3* ( 1 ) ) ) 

RS*<  XI  , 1>  10  09* < ) <14,  1> 
BA  T #3,  <S6*,S7*>  0-9*0 


: REM  ENTRY 

: REM  FETCH  BEC  SCTR  ADR 
: REM  LOAD  DATA  SCTR 
: REM  FETCH  LINK  ADRS 
THEN  4876  : REM  END  OF  DATA  ITEM 
: REM  SET  LINK  ADDRESS 
: REM  CONT  SEARCH 

: RtM  UPDATE  LINK  ADDKtS 
: RtM  SRCH  f-OR  EOI 
: REM  CMPUT  EOI  PUS I TI ON 
: REM  CLR  EOI  CHARACTER 
: REM  UPDATE  DISK 
: RtM  EXIT 


/MJTHCJR  ha  & 


ATH 3/11 


— 1 


4'900 
4904 
4908 
4912 
4916 
4920 
4924 
4928 
4932 
4936 
4940 
4944 
4948 
49  b2 
4956 
4-960 
4964 
4-968 
4972 
4976 
4980 
4984 
4988 
49-92 
49-96 
5000 
5004 
5008 
5012 
5016 


RtM  ** 
REM  ** 
RtM  ** 
RtM  ** 
RtM 
RtM  ** 
REM  *•* 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
RtM 
DEFFN 
COSUB 
IF 

GOSUB 

COSUB 

PRINT 


Subroutine  ^■^^■iHHf-^***-**-#-*-^'****-#-**********-#-****'***-****  134 
Abstract  > 

To  update  disk  index  and  id  memory  table  with  current 
item  id  and  begining  dish  location. 

Variables  > 


14  > item  lookup  flag 
Q6*()  > memory  id  table 
SO*  > begining  location 
02  > index  sector  indes 


134 

130  (O) 


II  > item  id 

Q8*()  > disk  index  buffer 


DO 

D1 


id  table  index 
current  index  sctr  adrs 


14  <>  O 
101  (14,1,3,0) 

101  (15,10,0,0) 

"System  Error:  Index  overflow" 
*GICJ  TUNE  /005  (R8*(4)  ,RS*(9> ) 

GOSUB  * 101  (14,1,0,0) 


THEN  4992 


STOP 
RtM  *■* 


"**  SYSTEM  STOPPED  **" 


REM  ENTRY 
RtM  INDEX  LOOKUP 
RtM  SLUT  FOUND 
REM  POSITION  CUSUR 
REM  POSIT  ION  CUSOR 
REM  ERROR  MSG 
REM  PAUSE  TONE 
REM  POSITION  CUSOR 
REM  INTER  LPT  PROGRAM 

RtM  STOR  BINARY  ID 


DATA  SAVE 
RETURN 


BIN(S7R(S1*,1,1>>  = I NT ( I 1 /25fc ) 
BIN(STR(Sl*,2,l))=Il-lNT(Il/256)*256:  RtM  STOP  BINARY  ID 
Q6*(D0,D5)  = SI*  : RtM  UPDATE  MEMORY  TBL 

Q8*(D2>  = SI*  : RtM  UPDATE  DSK  IDX  BUF 

Q8* ( D2+ 1 ) = SO*  : REM  UPDATE  DSK  IDX  BUF 

BA  T #2,  (D1,D9)  Q8*()  : REM  UPDATE  DISK 

: REM  EXIT 


AUTHOR  Sy&t em S Pha 


— /NTH  3 / I I 


REM  ** 
REM  ** 
REM  ** 


Subroutine 


— 1 3 


1 3 S 


REM  **  Abstract  > 


! S7*  > next 
! S2*  > next 


REM  *•*  To  reset  address  registers  to  the  next 
REM  *•*  sector  address. 

REM  +*  Variables  > 

REM  *■*  SO*  > current  sctr  adrs  ! S7*  > next 

REM  **  SB*  > storage  register  ! S2*  > next 

REM  **  09*  ( ) > scratch  buffer  ! 

REM  *■* 

DEFFN  ' 13S  <S0*,S7*> 

DATA  LOAD  BA  T #2,  (SO*, SB*)  09*0 
IF  09* < 1 ) = HEX (OOOOOOOO)  THEN  SI IS 

SO*  " SB* 

IH  SO*  <>  HEX(OSHF)  THEN  5072 


THEN  SI IS 


THEN  S072 


COSUB  ' 101  <14,1,3,0) 
GOSUB  ' 101  (15,10,0,0) 


PRINT 
*G 10  TONE 
GOSUB  ' V 
STOP 
REM  *■* 

IH 


“System  Error:  Disk  Limits  Exceeded" 
E /OOS  < R8* ( 4 ) , RB*  < 9 ) ) 

101  (14,1,0,0) 

“**  SYSTEM  STOPPED  **" 


GOSUB 


RETURN 


S7*  <>  HEX ( OOOO ) 
S7*  - SO* 

1 35  < SB*, S7* ) 

S2*  = SO* 

SO*  = S7* 


THEN  S13€. 


avaiablc 


adrs  (new) 
adrs  aftr  S7* 


REM  ENTRY 
REM  LOAD  NEXT  SCiR 
REM  SCTR  IS  CLEAR 
REM  I NCR  ADDRESS 
REM  CHECK  NEXT  ADRS 
REM  P0SII10N  CUSUR 
REM  POSITION  CUSOR 
REM  ERROR  MSG 
REM  PAUSE  1 ONE 
REM  POSITION  CUSOR 
REM  PROGRAM  INTERUPT 

REM  RESET  COMPLETE 
REM  Si  OR  NEW  ADDRS 
REM  CMPUT  NEXT  ADRS 
REM  STCJR  NEW  ADDRS 
REM  RESET  ADDRS 
REM  EXIT 


T 


/VJ'i  HQR  System:  Phase 


— ATH 3/1 I 


— 1 


REM 
REM  ** 

REM  *■*  Sub 
REM  **  Abo 
REM  **  Tl 
REM  *•*  b 
REM  *•*  i, 
REM  **  Var 
REM  **  Ri 
REM  **  R' 
REM  **  R, 
REM  ** 

REM  »■«»«»«» 
DEFFN  ' 13 
MAT  CORY 
MAT  SEARCH 
IF 


RETURN 


Abstract  > 

This  routine  Mill  locate  the  last  character  in  the 
buffer  and  return  the  total  length  of  the  buffer 
in  variable  RO. 

Variables  > 

RO  > bufr  line  indx  ! Rl*<>  > text  buffer 

R9SO  > temp  line  bufr  ! R5*()  > search  characters 
RE*()  > srch  return  bufr  ! 


> <R0)  : REM  ENTRY 

-Rl*<  ><<R0-1  >*03+1, 63>  TO  R9*(X1,6A>:  REM  REVERSE  COPY 
R9* < ) < 1 , 63> , <>  R5* < 1 ) TO  R2*<>  : REM  SRCH  FOR  END 

R2*<1)  <>  HEX(OOOO)  THEN  521E  : REM  If  END  FOUND 


RO  - 1 

O THEN  519E 
( 32-RO ) *S3+ ( FNR ( VAL ( R2* ( 1 ) ) >-l ) 
201E-R0 


REM  DCRMNT  LINE  INDX 
REM  BUFFR  NOT  EMPTY 
RE"M  DETERM  IN  BUFR  SIZ 
REM  SCALE  VALUE 
REM  EXIT 


AUTHOK 

Sy  s-t  E?-m : Phe>Eu  5 — ATH3/I  1 

— * MAH 

4076 

- 

4055 

4100 

4076 

4184 

- 

4240 

4538 

- 

4195 

4260 

“ 

4200 

4275 

- 

4254 

4255 

4368 

4366 

4380 

- 

4372 

4335 

“ 

4366 

4415 

- 

4356 

4435 

- 

4384 

4404  4416  4424 

AUTHOR 

Sy&-t  c-m  : 

P ha  S3- 1 

E?  3 

! — 

/STM  3 X I I 

— V 

MAP 

DO 

- 

4504 

4508 

4588 

5000 

D1 

- 

4513 

4515 

4530 

4504 

5013 

ua 

- 

4515 

4593 

4595 

4500 

4848 

5004 

5008 

DS 

- 

4508 

4588 

5000 

D9 

- 

4500 

4504 

4508 

4530 

4504 

5013 

El 

- 

4344 

4358 

11 

- 

417a 

4340 

4358 

4393 

4413 

4993 

4995 

ia 

- 

4340 

4355 

4730 

14 

- 

437a 

4415 

4476 

4480 

4484 

4493 

4495 

4500 

4513 

4516 

4733  4740 

4748 

4760 

4884 

4888 

4950 

15 

- 

4735 

4753 

4775 

16 

- 

4748 

4760 

4780 

06*  < 

- 

4488 

4588 

5000 

Q8*( 

- 

4530 

4593 

4595 

4500 

4504 

4848 

5004 

5008 

5013 

0-3*  ( 

- 

4184 

4188 

4193 

4335 

4613 

4616 

4530 

4534 

4753 

4756 

4764  4768 

4853 

4856 

4875 

4880 

4888 

4893 

5073 

5076 

R0 

- 

4173 

4180 

4188 

4333 

4340 

4348 

4350 

4354 

5193 

5195 

5308  5313 

5316 

5330 

RO* 

- 

4173 

4184 

4335 

R0*< 

- 

4048 

4050 

4108 

R1 

- 

4055 

4100 

Rl*( 

- 

4050 

4176 

4188 

4195 

4354 

4738 

4753 

5195. 

Ra 

- 

4053 

4056 

4050 

4054 

4100 

Ra*( 

- 

4195 

4300 

4350 

4488 

4493 

4738 

4733 

4880 

4884 

5300 

5304  5316 

R3 

- 

4050 

4104 

R3* 

- 

4184 

R4 

- 

4075 

4104 

R5 

- 

4058 

4104 

R5*( 

- 

4195 

4354 

4738 

4880 

4888 

5300 

R7* 

- 

4315 

R3* 

- 

4aia 

R8*< 

- 

4088 

4093 

4095 

4976 

5100 

R9*< 

- 

5195 

5300 

SO* 

- 

4758 

4875 

5008 

5058 

5073 

5080 

5084 

5130 

5138 

5133 

SI* 

- 

49-33 

49-35 

5000 

5004 

sa* 

- 

4755 

4773 

5138 

S5« 

- 

4480 

4484 

4488 

4593 

4613 

4534 

4633 

S6* 

- 

4515 

4538 

4533 

4768 

4848 

4853 

4864 

4893 

5073 

5080 

5134 

S7* 

- 

4853 

4855 

4850 

4864 

4893 

5058 

5116 

5130 

5134 

5133 

S9* 

- 

4513 

4534 

o 
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AU'l  HQR  ays-tom:  Phase  2 — ATH3/I  1 — *"  MAP 

????  DfcFFN'  0 

- 4550 

V???  DfcFFN'  101 

- 4056  4080  4100  4504  4964  4968  4980  5088  5095  5104 
????  DfcFFN'  110 

- 4108 

4044  DEFFN'  154 
4175  DfcFFN'  155 
4340  DfcFFN'  159 
4476  DfcFFN'  130 

- 4368  4395  4415  4956 
4584  DfcFFN'  131 

- 4376  4450 
4716  DfcFFN'  135 

- 4380  4400 
4844  DfcFFN'  133 

- 4396 

4955  DfcFFN'  134 

- 4754 

5068  DfcFFN'  135 

- 4775  5154 
5195  DfcFFN'  136. 
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4.3  ATH2INIT 

The  purpose  of  the  'ATH2INIT'  program  Is  to  initialize  the  program 
variables  and  the  data  base  diskette.  The  program  will  initialize 
the  diskette  either  for  initial  data  entry  or  for  maintenance  of  the 
data  base. 

The  'ATH2INIT'  program  Is  presented  here  In  two  parts. 

4.3.1  ATH2INT1 

This  section  of  the  ' ATH2INIT*  program  contains  subroutines 
200  to  203. 

The  remainder  of  this  section  presents  the  'ATH2INTT 
program  listing  and  reference  maps. 


AU1  HOR  S y e-  -t  om 


P ha  & o 


ATHc!  1 IM~I  1 


INITL 


mr 

rr 


6000 

Program  > AUTHOR/2  (ATH2INT1 ) 

Vers 

ion  > 2.0  2200  T/VP 

780320 

6004 

REM  ** 

Abstract  »«»»««  * » 

6008 

REM  ** 

** 

601  a 

REM  ** 

ATH2IN1T  will  provide 

logic  for 

initializing 

** 

6016 

RtM  ** 

the  AUTHOR  Data  Base 

Disk. 

When 

initial i z ing 

** 

6020 

RtM  ** 

is  completed  ATH2IN1T 

will 

load 

logic  routines 

** 

6024 

RtM  ** 

for  manipulating  the 

Data 

Base. 

** 

6058 

cn'ajJ 

RtM  ** 

n n | 

1 M M M M M u L.  1 

** 

OUJC 

6036 

ntri  " " 

RtM  ** 

IT  IT  « w k « w H w V . 

linnMMrlrti 

6040 

RtM  ** 

6044 

G0SUB  ' 

200 

: REM 

TBL  1NITIALI2ATN 

6048 

COSUB  ' 

201 

: REM 

DISPLAY 

TITL  PAG 

6052 

COSUB  ' 

202 

: REM 

DISPLAY 

COMMANDS 

6056 

GCJSUB  ' 

203 

: REM 

EXECUTE 

COMMANDS 

6060 

GUSUB  ' 

002 

: REM 

LOAD  LOGIC  OVRLAY 

182 


f 


i 


c 


AUTHOR 

6064 

REM 

** 

6068 

REM 

** 

6073 

REM 

** 

6076 

REM 

** 

6080 

REM 

** 

6084 

REM 

** 

6088 

REM 

** 

6093 

REM 

6096 

REM 

** 

6100 

REM 

** 

6104 

REM 

** 

6108 

REM 

** 

6113 

REM 

** 

6116 

REM 

** 

6130 

REM 

** 

6134 

REM 

** 

6138 

REM 

** 

6133 

REM 

** 

6136 

REM 

** 

6140 

REM 

** 

6144 

REM 

6148 

REM 

** 

6153 

REM 

6156 

REM 

+-* 

6160 

REM 

6164 

REM 

** 

6168 

REM 

** 

6173 

REM 

6176 

REM 

++ 

6180 

REM 

6184 

REM 

++ 

6188 

REM 

*•* 

6193 

REM 

** 

6196 

REM 

** 

6300 

REM 

6304 

HEM 

** 

6308 

REM 

6313 

REM 

** 

6316 

REM 

** 

6330 

REM 

** 

€334 

REM 

** 

6338 

REM 

*** 

6333 

DEFFN 

— ATHa 1 NT 1 — a o o 


LABLED  SUBROUTINES 


a 0 0 


Sy&tEMn:  Phase 


Subroutine 
Abstract  > 

To  initialize  program  Tables. 

Variables  > 

R4*( ) > conversion  tables 

<01)-(04)  > <1,64>  lower  case  to  upper  case  conv. 

<05)-(08)  > <65,64>  upper  case  to  lower  case  conv. 

(09>-(10)  > <139, 33>  conv  binary  indx  to  fiche  row  char. 

< 1 1 > > <161, 16>  control  character  conversion  (input) 

(13)  > <177, 16>  buffer  mode  character  conversions  - 

> <177, 4>  HEX(OO)  to  HEX (SO) 

> <181, 4>  HEX (00)  to  HEX (00) 

> <185, 4>  HEX (30)  to  HEX (SO) 

> <189, 4>  HEX (30)  to  HEX(OO) 

(13)-(14)  > <193, 33>  convert  mash  digits  to  normal  codes 
(15)-(16)  > <335, 33>  conv  fiche  row  char,  to  binary  indx 

(17)  > input  character  conversion  (entry  mode) 

(18) -(30)  > input  character  conversion  (edit  mode) 


R5*(>  > 
(01) 
(03) 
(05) 
(07) 
(03) 
R6*()  > 
R7*(>  > 
K5*(>  > 
R8*(>  > 
(01) 
(03) 

(03) 

(04) 

(05) 

(06) 

(07) 

(08) 
(09) 


300 


single  character  search  ids 


> blank  (03)  > 

> HEX (80)  (04)  > 

> HEX(3AXcoln>  (06)  > 

> HEX(3E)<  > > (08)  > 

> HEX(30Xblnh>  (10)  > 
cusor  control  <vert.> 
cusor  control  <horz.> 
cusor  contorl  <erase> 
micro  command  buffer  & 


t-EX  (FF) 

HEX  (51-  )<underscor> 
HEX  ( 3C ) < < > 
HEX(3E)  < 

HEX (33) 


. > 
# > 


output  sequences 


cusor  blink  w/  overprint  char, 
output  of  buffer  with  CRLE 

warning  tone  w/  3 sec  wait 

output  16  line  buffer  to  crt 
single  tone 

set  register  5 with  CR  or  LF 
command  register  buffer 


REM  ENTRY 
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1 


6532 

6236 

6240 

€.244 

6248 

6252 

6256 

6260 

€•264 

6268 

6272 

6276 

6280 

6284 

6288 

62*32 

62*36 

6300 

6304 

6308 

6312 

6316 

6320 

6324 

6328 

6332 

6336 

6340 

6344 

6348 

6352 

6356 

6360 

6364 

6368 

6372 

6376 

6380 

6384 


DLFFN  ' 200 


RLM  ENTRY 


R4*  ( 01 ) = 
R4t ( 02 ) = 
R4$(03)= 
R4$  ( 04 ) * 
R4*(05)= 
R4*<06)= 
R4$ ( 07 ) = 
R4*(08)= 
K4*(09>= 
R4*( 10)- 
R4*( 11)- 
R4$( 12)  = 
R4*< 13>= 
R4*( 14)= 
R4*( 15)= 
R4*< 16)= 
R4*(17>= 
R4$(18)= 
H4*( 19)= 
R4*<20)= 
R5*(01)= 
R5*<03)= 
R5*<05)= 
R5*(D7>= 
K5*(09>= 
IN1T(0A) 
INIT (09) 
1N1T (20) 
R8*(01 )= 
R8*(02)= 
R8*(03)- 
R8*(04>= 
R8*(05)= 
R8*(06>= 
H8*(07>= 
R8*<08>= 
H8«<09)= 
RtM  ** 


HEX ( 4 1 61 4262436344644 5654 66647674868 ) 

HEX  ( 43694A6A4B6B4C6C4D6D4L6E4F6F5070 ) 

HEX ( 51715272537354745575567657775878 ) 

HEX ( 59795A7A202020202020202020202020) 

HEX ( 6 1 4 1 624 263436444654  5664 6674  76848 ) 

HEX  ( 694 96.A4  A6B  4B6C  4C604U6E4  E6F4F7 050 ) 

HEX (71517252735374547556766677577858) 

HEX ( 79597A5A202020202020202020202020 ) 

HE  X ( 204 1 4 24 34445464 748494 A484C 4D4E4 F ) 

HEX  < 20202020202020202020202020202020  > 

HEX  ( 0 1 0802A70 30D0 36.62020202020202020 ) 

HEX ( 20002020000020202030202000302020 ) 

HEX( 301031 1 1321233133414351536163717) 

HEX  ( 38 1 83*3 1 9200020202020202020202020 ) 

HEX ( 0001020 3040S060708090A0B0C0D0L0F ) 

HEX ( 20202020202020202020202020202020 ) 

HEX ( O 1 0802A703E504E60500202020202020 ) 

HEX ( 0 1 A 00 1 080BCB025E0CC A03280DC704 29 ) 

HEX ( OEC 3052A05C 2062DO6C 4 07 2B07C6090D ) 

HEX ( 0 AE. 5082F 080 C 02202020202020202020 ) 

HEX ( 20 ) : R5*(02>=  HEX (FF) 

HEX (80)  : R6*(04)=  HEX(5F) 

HEX ( 3A)  : R5*(06)=  HEX(3C) 

HEX  ( 3£l  ) : R5*(08>=  HEX(2E) 

HEX (20)  : R5*(10)=  HEX(23) 

R6*()  : R6*(01)=  HEX(Ol) 

R7*()  Z R7*<01)=  HEX (00' 

K5*()  : K5  =1 

HE X ( 400642604 008 1 2 1 1 42504 008 1 1 36 1 454 1 608 1 1 46 ) 

HEX  ( 4006.4000402 1 4000400A2020 ) 

HEX ( FFFF2O20  > 

HE  X ( 4007 1 22 1 4 007 1 22 1 40072020 ) 

HEX ( FFFF2020 ) 

HE  X ( A000400D 1 427 1 6084 00A2020 ) 

HEX ( 400740072020 ) 

HEX ( 05001467 1 7080S0A2020 ) 

HEX ( 05 1 63F 20556677000000  > 


6388 

Ql*(l )= 

"TITLE" 

Ql*<6)= 

" TRAINING"  : 

Ql*(12)= 

"EXAMPLE 

63*32 

Ql*(2)= 

“SUBTITLE" 

Ql*(7)= 

“IMPORTANCE"  : 

Ql*<13)= 

"SYMBOL" 

6396 

Ql$(3)= 

"AUTHORS" 

Gl*(8>= 

“USACt"  : 

Ql*(14)= 

“HELP" 

6400 

Ql*<4)= 

"DATE" 

Gl*(9>  = 

"TYPE"  : 

Ql*(15>= 

"LIST “ 

6404 

Ql*(5)= 

"0RCAN1ZT ION" 

Gl*(10)= 

"NAME”  : 

Ql*( 16)= 

“ESCAPE" 

6408 

Ql*(ll)= 

"SOURCE"  : 

Ql*(17)= 

• n r»  n r>  ••  9 « 

6412 

RtM  ** 

6416 

Q7*  < 1 ) = 

"INITIAL" 

: 

Q7*(4>= 

"ASSIGN" 

6420 

Q7* ( 2 ) = 

“MAINTENANCE" 

z 

Q7<>(  5)  = 

"HELP" 

6424 

Q?*<3>= 

"BACKUP" 

6428 

RtM  ** 

6432 

Q5*(l )= 

"SETNUMBtR" 

a 

Q5*(5)= 

"SYMBOL*  : 

Q5* ( 09 ) = 

"NEXT" 

64 36 

Q5*(2)= 

"SSLNUMBtR" 

a 

a 

Q5*(6)= 

"DEFINITION"  : 

Q5*( 10) = 

"DELETE" 

6440 

Q5*(3)= 

"SLTNAME" 

a 

a 

Q5*(7)= 

"MNEMONIC"  : 

Q5*(ll)= 

"EXIT" 

6444 

Q5*  < 4 ) = 

"REFERENC  #' 

a 

G5*<8)= 

"SIM1LARSBL"  : 

Q5*( 12) = 

"LIST" 

6448 

RtM  *-* 

o 
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r 


fc.4sa 

H8*<  1>=? 

"AUTHOR:  An  Automatic  Authoring  Systi 

€.456 

HS*<  2)= 

"Volume  ID:  Phase  2 Data  Base" 

6460 

H8*<  3)- 

"page 

• ■ 

6464 

H8*<  4)= 

"1.1 

Title: " 

6468 

H8S<  5 > = 

•1.2 

Subtitle:* 

6472 

H8*(  6)= 

"1.3 

Author (s) : " 

6476 

H8*(  7)= 

"1.4 

Date: * 

6480 

H8«(  8)= 

"1.5 

Organization: * 

6484 

H8*<  9)= 

"2.0 

Learning  Objective:* 

6488 

H8*<10>= 

"3. 1 

Importance  of  Symbols:* 

6492 

H8*<11)= 

"3.2 

How  the  Skill  Will  be  Used:" 

6496 

H8*<12>= 

"4.  1 

Name  of  the  User:* 

6500 

H8*(13)= 

"4.2 

Type  of  Symbol:* 

6504 

H8*(14)= 

"4.3 

Official  Source  of  Reference:" 

6508 

H8*  < 1 5 ) = 

•5.  1 

Example  of  Symbols:" 

6512 

H8*<16>= 

"6.  1 

Description  of  Symbols:* 

6516 

H8*<17>= 

M 

Set  Name:" 

6520 

H8*(18)= 

« 

Set  #:  Symbol  #: 

6524 

H8*( 19)~ 

m 

Symbol  Code:  Symbol:" 

6528 

H8*<20)= 

N 

Definition: * 

6532 

H8*(21)= 

N 

Memory  Aid:* 

6536 

H8*<22)= 

M 

Similar  Symbols:” 

6540 

H8*<23>= 

M 

Symbol  Code:* 

6544 

HEM  ** 

6548 

Nl* 

•TITLE"  : N2*  = "SETNUMBtR 

6552 

REM  ** 

6556 

RETURN 

O 
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AU  THOR  S y s t E?m  : Phase 


— ATUS 1 NT 1 — 


REM  ** 
REM  *•* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  **■ 
DEFFN 
SELECT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
SELECT 
COSUB 


Abstract  > 

To  display  Title  page  on  console  device. 
Variables  > 

R0$<>  > input  char  bufr!  Q5*<)  > cmnd  indx  bufr 
R8$<  ) > micro  cmnd  bufr! 


5 0 1 


501  : REM 

PRINT  005  : REM 

HEX < 03)  ; REM 

"Program  > AUTHOR/B" 

"Version  > 5.0" 

"Abstract  >" 

This  Program  will  enable  you  to  create  and" 
" maintain  the  AUTHOR  System  Data  Base. " 


REM  ENTRY 

REM  SEL  OUTPUT  D1SPLY 
REM  CLR  CRT  SCREEN 


PRINT  “ For  detailed  program  instructions  sec  the 
PRINT  ” AUTHOR  System  Data  Entering  User's  Cuide. 
SELECI  PRINT  405 

COSUB  ' 101  (15,1,0,0  ; RE 

STR(R8*<9>,5, 1)  = HEX ( 50 ) : RE 

PRINT  "Touch  'RETURN'  to  Continue  With  Program  > 

KEY IN  R0*<1>,  6675,  6660 

*GIO  CUSUR  /005(R8*(1),R8»(S))  : RE 

GOTO  6660  : RE 

RETURN  ; RE 


REM  POSITION  CUSOR 
REM  SET  CUSOR  OPTION 


REM  RESPUNCE  WAIT 
REM  CUNT  INPT  WAIT 
REM  EXIT 
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AUTHOR  S >'  r>  "t  Dm 


P ha  e.  d 


ATH.2  1 NT  1 


SOS 


6676  REM  ** 

6€-80  HEM  *+ 

6684  REM  **  Subroutine 
6688  REM  **  Abstract  > 

6692  REM  **  To  display  the  command  summary  and  accept 

6696  REM  **  input  command. 

6700  REM  **  Variables  > 

6704  REM  **  H2<  > input  rtrn  val ! R8*<) 

6708  REM  **  R2  > scratch  index  ! R0*< > 

6712  REM  **  RO  > command  index  ! 02*  () 


2 0 2 


> micro  cmnd  bufr 

> char  entry  bufr 

> cmnd  index  bufr 


6716  REM  ** 


6720 

REM  **+* 

6724 

DEFFN  ' 

202 

6728 

SELECT 

PRINT  005 

6732 

PRINT 

HEX<03> 

6736 

PRINT 

"Command  Summary:* 

6740 

PRINT 

" ASSIGN  - Assign 

Disk  Devices" 

6744 

PRINT 

* INITIAL  - Initial 

Entry  of  Data  Ba: 

6748 

PRINT 

“ MAINTENANCE  - Maintenance  of  Data  Base 

6752 

PRINT 

" BACKUP  - Backup 

the  Data  Base" 

6756 

PRINT 

“ HELP  - Sequence  of  Commands" 

6760 

SELECT 

PRINT  405 

6764 

GOSUB  ' 

101  <15,1,0,0) 

6768 

PRINT 

“Enter  Command  > " 

6772 

GOSUB  ' 

104  <15, “A", "HELP*) 

6776 

RO  - LEN<R2*> 

6780 

IF 

RO  2 

THEN  6788 

6784 

RO  * 2 

6788 

AND 

<STR  <R2*, 1 , RO) , DP ) 

6792 

MAT  SEARCH  07*0,  =STR <R2*, 1 , RO)  TO  R2*< ) STEP  2 

6796 

IF 

R2*<2)  <>  HEX  <0000) 

THEN  6804 

6800 

IK 

R2*<1>  <>  HEX(OOOO) 

THEN  6828 

6804 

GOSUB  ' 

I-* 

c 

K 

•M 

K-k 

M 

o 

M 

o 

6808 

PRINT 

" INVALID  COMMAND 

RE-ENTER" 

6812 

♦CIO  TONE  /OOS  <R8*<4),R8*<9)) 

6816 

GOSUB  ' 

101  <16,1,1,0) 

6820 

GOTO 

6764 

6824 

REM  ** 

6828 

RO  =•  I NT  <FNR<VAL<R2<<  1 ) ) ) /2)  + 1 

6832 

RETURN 

REM  ENTRY 

REM  SEL  OUTPUT  D1SPLY 
REM  CLR  CRT  SCREEN 


REM  SEL  OUTPUT  01SPLY 
REM  POSII ION  CUSOR 
REM  PRINT  PROMT 
REM  ENTER  COMMAND 
REM  CMPUT  S1RNC  LEN 
REM  W I THEN  LIMITS 
REM  SET  TO  MAX  LEN 
REM  MASK  OUT  LWR  CASE 
REM  SRCH  KEYWORD  TBL 
REM  INVALID  COMMAND 
REM  COMMAND  FOUND 
REM  INVALID  COMMAND 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  ERASE  MSG 
REM  BRNCH  TO  CMD  INPT 

REM  CMPUT  CMND  INDEX 
REM  EXIT 
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I 


AUTHOR 


P ho &c  S 


ATH2IN1 1 


a o 3 


^ T ' 


6836 
6840 
684  4 
6848 
6858 
6856 
6860 
6864 
6868 
6878 
6876 
6880 
6884 
6888 


RtM  ** 

RtM  ** 

RtM  ** 

RtM  ** 

REM  ** 

RtM  ** 

RtM  ** 

RtM  ** 

*^«*******'M#*«*v<Ht-»-»'»*'»-»-»'»*'»**'»-»'IHt*-*****-»+ 


Subroutine; 

Abstract  > 

To  Process  the  inputted  Command. 
Variables  > 

R0  > command  index  ! 


8 0 3 


803 


DEFFN 
RtM 
REM  ** 

HtM  ** 

ON  RO  GOTO 


REM  ENTRY 


INITIAL  ! MTNNCE  ! BACKUP  ! ASSIGN  ! HELP  ! 


6900 


6904 


6908 


6918 


6916  : RtM  BRANCH 


6898 

6896 

RtM  ** 
RtM  ++ 

1 1 _ 

1 “ 

6900 

GOSUB  ' 

804 

GOTO 

6984 

6904 

COSUB  ' 

80S 

GOTO 

6984 

6908 

CUSUB  ' 

806 

GOTO 

6980 

6918 

GOSUB  ' 

807 

GOTO 

6980 

6916 

GOSUB  ' 

80-9 

GOTO 

6980 

6980 

6984 

CUSUB  ' 
RETURN 

808 

GOTO 

6888 

REM  INITIALIZE  DISK 
HEM  DATA  MAINTENANCE 
REM  DATA  BASE  BACKUP 
RtM  DISK  ASSIGNMENT 
RtM  DISPLAY  HELP  PILE 
REM  ENTER  NEW  CMND 
REM  EXIT 
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AU'I  HOR  Syst ern 


Phase  3 


ATHaiN'l  1 


*t  MAP 


6660 

- 

6660 

6668 

6672 

- 

6660 

6764 

- 

6820 

6788 

- 

6780 

6804 

- 

6796 

6828 

- 

6800 

6888 

- 

6920 

6900 

- 

6888 

6904 

- 

6888 

6908 

“ 

6888 

6912 

- 

6888 

6916 

- 

6888 

6920 

- 

6908 

£ 

m 

kD 

H 

O' 

6924 

- 

6900 

6904 

c 
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/NLJ'I  MOR  S>'&t  Dm 


P ha se  5 


ATH2 X NT 1 


V MAP 


H8*( 

- 

6452 

6456 

6460 

6464 

6468 

6472 

6476 

6480 

6484 

6488 

6492 

6496 

6500 

6504 

6508 

6512 

6516 

6520 

6524 

6528 

6532 

6536 

6540 

Kb 

- 

6344 

Kb*( 

- 

6344 

Nl* 

- 

6548 

N2* 

- 

6548 

Ul*< 

- 

6388 

6392 

6396 

6400 

6404 

6408 

05*  < 

- 

6432 

6436 

6440 

6444 

07*  < 

- 

6416 

6420 

6424 

6792 

RO 

- 

6776 

6780 

6784 

6788 

6792 

6828 

6888 

R0*< 

- 

6660 

r 2* 

- 

6776 

6788 

6792 

R2*< 

- 

6792 

6796 

6800 

6828 

R4*< 

- 

6236. 

6240 

6244 

6248 

6252 

6256 

6260 

6264 

6268 

6272 

6276 

6280 

6284 

6288 

6292 

6296 

6300 

6304 

6308 

6312 

RS*< 

- 

6316 

6320 

6324 

6328 

6332 

R6*< 

- 

6336. 

R7*< 

- 

6340 

R8*< 

- 

6348 

6352 

6356 

6360 

6364 

636.8 

6372 

6376 

6380 

6652 

6664 

6812 
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o 

4.3.2  ATH2INT2 

This  section  of  the  ' ATH2INIT * program  contains  subroutines 
204  to  211. 

The  remainder  of  this  section  presents  the  'ATH2INT2' 
program  listing  and  reference  maps. 


AUTHOR  S 'y  » -fc  om 


P ha  s e 


ATH2 I NTa 


2!  O 


7000 
7004 
7008 
701  a 
7016 
7020 
7024 
7028 
7032 
7036 
7040 
7044 
7048 
7052 
7056 
7060 
7064 
7068 
7072 
7076 
7080 
7084 
7088 
7092 
7096. 
7100 
7104 
7108 
7112 
7116 
7120 
7124 
7128 
7132 
7136 
7140 
7144 
7148 
7152 
7156 
7160 
7164 
7168 
7172 
7176 
7180 
7184 


Xm  Program  > AUTHOR/2  (ATH2INT2)  Version  > 2.0  22001 /VP 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN 
IF 

SELECT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

SELECT 

COSUB 


Subroutine 
Abstract  > 

To  initialize 
of  Data  Base. 


15-Dec -77 
2 0 4 


dish  index  for  initial  entry 


**  Variables 


R0*< ) 
Q8*< ) 
R9*( ) 
R8*( ) 


input  char  bufr! 
transfer  bufr  ! 
scratch  bufr  ! 
micro  cmnd  bufr! 


R1 

R2 

R2* 


indx 

adrs 


sctr  adrs 
register 


input  str  value 


204 


THEN  7200 


RO  = 3 
PRINT  005 
HEX (030A0A) 

" The  Phase  II  Data  Base  Dish  MUSI 
" Before  Continueing. ■ 


REM  ENTRY 

REM  CHC  SYS  SCTR  ONLY 
REM  SEL  OUTPUT  U1SPLY 
REM  CLR  CRT  SCREEN 
first  be  F-OR  MATTED" 


208 


“ Once  the  Disk  is  FORMATTED  Touch 
PRINT  405  : 
(15)  : 


the  'RETURN'  Key." 

REM  SEL  OUTPUT  D1SPLY 
REM  RESPONCE  WAIT 


REM  ** 

DATA  LOAD 
IF 

G0SU8  ' 101 
PRINT 
*GIO  TONE 
GOTO 


BA  T #2,  <0,R2>  09*0 
09* ( 1 ) = HEX (00000000) 
(15,1,1,30) 

"DISK  DOES  NOT  VERIFY... 
/005  (R8*(4),R8*(9> ) 

7084 


THEN  7120  : 
RE-FORMAT. . " : 


REM  LOAD  SYSTEM  SCTR 
REM  DSK  IS  FORMATED 
REM  DSK  NOT  FORMATTED 
REM  PF  NT  ERR  MSG 
REM  PAUSE  TONE 
REM  BRNCH  TO  WAIT 


REM  ** 
INIT(FF) 
1NIT(00) 

FOR 

MAT 

NEXT 

GOSUB  ' 101 
REM  ** 

FOR 

DATA 

COSUB  ' 101 

PRINT 

NEXT 


08*  ( ) 

R2*(  ) 

R1  * 1 TO  256  STEP  4 

COPY  R2*( )<1,2>  TO  08* ( ) <R 1 , 2> 

R1 

(15,1,1,0) 

R1  - 1 TO  10 

SAVE  BA  T #2,  (R1,R2)QS*() 
(15,1,0,0) 

"INITIALIZING  DISK  SECTOR  > ";R1 
R1 


REM  INIT  INDEX  BUFFER 
REM  INIT  SCRTCH  BUFR 
REM  BEG  BUFR  INIT 
REM  SETUP  INDX  BUFFR 
REM  CONT  BUFR  INIT 
REM  ERASE  SCREEN 

REM  BEG  DISK  LOAD 
REM  LOAD  DISK 
REM  POSITION  CUSOR 
REM  PRINT  MESSAGE 
REM  CONT  DISK  LOAD 


REM  ** 

1NIT(EE)  08*0 

08* ( 1 ) = HEX (2003FF00) 
DATA  SAVE  BA  T #2,  ( 1023, R2)08*( > 
GOSUB  ' 135  ( FEX ( OOOB ) , HEX ( 0000 ) ) 


REM  INIT  INDX  BUFR 
REM  SET  EOF  INFO 
REM  SAVE  EOF  SCTR 
REM  SHCH  FOR  NXT  SCTR 


INITIALIZE  SYSTEM  SECTOR 


REM  *+ 
REM  ** 
REM  ** 

INI  I (OO) 
lNIT(OO) 


MAT  CORY 
HEM  ** 

PRINT 

PRINT 

GOSUB  ' 104 

MAT  CORY 
RLM  ** 

GOSUB  ' 101 
PRINT 

GOSUB  ' 104 

REM  ** 

GOSUB  ' 101 
PRINT 

GOSUB  ' 104 
IK 

GOSUB  ' 101 
PRINT 
$G10  TUNE 
GOSUB  ' 101 
GOTO 
REM  *•* 

MAT  COPY 
REM  ** 

IK 

OATA  SAVE 
GOTO 
REM  ** 

DATA  SAVE 
RETURN 


08$ < > : REM  INIT  INOX  BUFR 

06$  ()  : REM  INIT  MEM  IU  TBL 

STR(R9$(1),01,08>  = HEX < 00050 3FF04000000) 

STR(R3$(1>, 00,08)  = HEX  < EEEEEEEEEEEEEEEE ) 

STR(R9$(1),17, 16)  = HEX  < 1000000B03FF000O 

R9$(  XI,  32>  TO  Q8$(X1,32>  : REM  SET  SYSTEM  SCTR 


HEX (03) 

"Enter  Disk  Volume  ID  > " 

(16, "A", "AUTHOR  Data  Base") 

R9$(l)=  R2$ 

R9$(X1,16>  TO  08$ ( ) <65,  16> 

(4, 1, 1,0) 

"Enter  Password  > “ 

(8, "E“, "password" ) 

R3$  = R2$ 

(4. 1.1.0) 

"Verify  Password  > " 

(8, "E“, "password" ) 

R3$  = R2$  THEN  731 2 

(4,28,0,0) 

"PASSWORDS  00  NOT  MATCH  TRY  AGAIN!" 
/OOS  (R8$(4),R8$(9) ) 

(4.28.1.0) 

7252 

R0$(1)  = R2$ 

R9$ ( X 1 , 8>  TO  08$ ( )<2S,8> 


RO  <>  3 

BA  T #3,  (0,R2)  08$ ( ) 
7344 

BA  T #2,  (0,R2)Q8$( ) 


THEN  7340 


REM  CLR  CRT  SCREEN 
REM  PRINT  PROMPT 
REM  INPUT  RESPONCE 
REM  ST  OR  INPUT 
REM  TRANSKER  TO  BUFR 

REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  INPUT  RESPONCE 
REM  STOR  PASWRO  1 

REM  POSITION  CUSOR 
REM  PRINT  PROMPT 
REM  INPUT  RESPONCE 
REM  INVALID  PASSWRUS 
REM  POSITION  CUSOR 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  ERASE  ERR  MSG 
REM  KEENTR  PASWROS 

REM  STOR  PASSWORD 
REM  TRANFER  TO  BUFR 

REM  NOT  BACKUP  CALL 
REM  SAVE  SYS  SCTR 
REM  BRANCH  TO  EXIT 

REM  SAVE  SYS  SCTR 
REM  EXIT 


A* 


AUTHOR  Syi 


P t-n 


— ATH2 I NT2  — 


7348 

7355 

7356 
7360 
7364 
7368 
7372 
7376 
7380 
7384 
7388 
7392 
7396 
7400 
7404 
7408 
7412 
7416 
7420 
7424 
7428 
7432 
7436 
7440 
7444 
7448 
7452 
7456 
7460 
7464 
7468 
7472 
7476 
7480 
7484 
7488 
7492 
7496 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


Subroutine 
Abstract  > 

To  verify  that  the  proper  Data  Ease  Disk 
is  Mounted. 

Variables  > 

084 ( ) > transfer  bufr  ! R2  > adrs  reg 
R84(>  > micro  cmnd  bufr  ! R2*  > input  st 
R9*<>  > scratch  bufr  ! 


2 0 5 


REM 
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THEN  7444 


DEFFN 

PRINT  HEX (03) 

DATA  LOAD  BA  T #2,  (0,R1>Q94() 

IF  094(3)  = HEX ( EEEEEEEE ) 

GOSUB  ' 101  (15,1,0,0) 

PRINT  “DISK  NOT  AN  AUTHOR  PHASE  IX  DATA  BASE... 
4GI0  TONE  /005  (R84(4) ,R84(9) ) 

GOSUB  ' 208  (16) 

GOSUB  ' 202 
GOSUB  ' 203 
GOTO  7396 
REM  ** 

094 ( ><65, 16>  TO  R94( )<1,64> 

0940  <65,  16>  TO  H84()<58,32> 

" Volume  ID  > “;R94(1> 

(4, 1,0,0) 

* Enter  Password  > “ 

GOSUB  ' 104  (8, “E“ , “password* ) 

MAT  COPY  094<><25,8>  TO  R94()<1,64> 

R24  = R94( 1 ) THEN  7504 

R24  = HEX ( 3C 20746 1656720 3£ ) THEN  7504 
(4,28,0,0) 

“PASSWORDS  DO  NOT  MATCH  TRY  AGAIN!" 
/005  ( R84 ( 4 ) , R84 ( 9 > ) 

101  (4,28,1,0) 

7456 


MAT  COPY 
MAT  COPY 
PRINT 

GOSUB  ' 101 
PRINT 


IF 
IF 

GOSUB 
PRINT 
4GI0  TONE 
GOSUB 
GOTO 


101 


ister 
r value 


REM  ENTRY 
REM  CLR  CRT  SCREEN 
REM  LOAD  SYS  SCTR 
REM  PROPER  FORMAT 
REM  POSITION  CUSOR 

REM  PAUSE  TONE 
REM  RESPONCE  WAIT 
REM  INPUT  COMMAND 
REM  EXECUTE  COMMAND 
REM  TRY  AGAIN 

REM  FETCH  VOL  ID 
REM  STORE  VOL  ID 
REM  PRINT  VOL  ID 
REM  POSITION  CUSUR 
REM  PRINT  PROMPT 
REM  INPUT  RESPONCE 
REM  FETCH  PASSWORD 
REM  PASWRDS  MATCH 
REM  PASWRDS  MATCH 
REM  INVALID  PASWORD 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  ERASE  ERR  MSG 
REM  REENTER  PASWORD 


7500 

7504 

REM  ** 

IF 

RO  = 3 THEN  7596 

REM 

FNCT  IS  BACKUP 

7508 

GOSUB  ' 101 

8 

■v 

o 

m 

H 

• 

o 

H 

REM 

POSITION  CUSOR 

7512 

PRINTUSING 

7588,  ">  ■; 

REM 

PRINT  INDEX 

7516 

Q5  = 1 

REM 

SET  ID  TBL  INDX 

7520 

FOR 

R1  = 1 TO  10 

REM 

BEGIN  INDX  LOOP 

7524 

DATA  LOAD 

BA  T #2,  (R1,R2>  Q84( ) 

REM 

LOAD  INDX  SCTR 

7528 

FOR 

R2  = 1 TO  128  STEP  2 

REM 

BEG  SUB SCTR  LOOP 

7532 

06  = I NT ( (Q5-D/64)  ♦ 1 

REM 

CMPUT  ROW  SUBSRPT 

7536 

07  = 05  - (06-1 ) *64 

REM 

CMPUT  COL  SUBSCPT 

7540 

064(06,07)  - 084 ( R2 ) 

REM 

LOAD  ID  TABLE 

7544 

CONVERT 

05  TO  R24,  (###> 

REM 

CONV  IDX  TO  DSPLY 

7548 

STR<R24,4, 3)  * HEX(080808) 

REM 

INSRT  REPOS  CHARS 

7552 

PRINT 

STR(R24, 1,6) 

REM 

PRINT  INDX 

7556 

05-05+1 

REM 

I NCR  TBL  INDX 

7560 

NEXT 

R2 

REM 

CONT  SUB IDX  LOOP 

7564 

NEXT 

R1 

REM 

CONT  SCTR  LOOP 

I o 


REM  TEST  FOR  CLR  SCTR 


r 


7 5E 8 REM  ** 

7572  GDSUB  ' 135  ( HEX (OOOB), HEX < 0000 ) ) 

7576  REM  ** 

7580  REM  **  OUTPUT  IMAGE  FORMAT 

7584  REM  ** 

7588  X Loading  Internal  ID  Table...  Processing  Item  ## 

7532  REM  ** 

7596  RETURN  : REM  EXIT 


AUTHOR  O/st  e-m  : P ha  & d 
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O fo 


7600 
7604 
7608 
761  a 
7616 
7630 
7634 
7638 
7633 
7636 
7640 
7644 
7648 
7653 
7656 
7660 
7664 
7668 
7673 
7676 
7680 
7684 


REM  ** 
REM  ** 
REM  *-* 
REM  ** 
REM  ** 
HEM  ** 
REM  ** 
REM  *** 
DEFFN  ' 
DIM 

GDSUB  ' 

SELECT 

PRINT 

PRINT 

PRINT 

SELECT 

GDSUB  ' 

PRINT 

COSUB  ' 

IF 

GCJSUB  ' 
GOTO 


Abstract  > 

To  create  a Backup  Copy  of  the  AUTHOR 
Data  Base. 


3 0 6 


306 

Bl*  ( 4)64 

305 

PRINT  005 
HEX (03) 

“ Verify  that  Phase  II 
" Phase  II  Backup  Disk 
PRINT  405 
101  (15,1,0,0) 

"ARE  DISKS  PROPERLY 
104  ( 1 , "A" , " Y" ) 

R3*  = “ Y“ 

307 

7633 


Data  Base  Disk 
are  mounted  in 


: REM  ENTRY 
: REM  DEFINE  BUFRS 
: REM  VERIFY  AUTHOR  DSK 
: REM  SEL  OUTPUT  D1SPLY 
••  REM  CLR  CRT  SCREEN 
and  the" 
proper  drives" 

: REM  SEL  CONSOLE  MODE 
: REM  POSIT  ION  CUSCJR 


MOUNTED  (Y/N)? 

THEN  7683  : 


REM  INPUT  RESPONCE 
REM  BEGIN  BAKUP 
REM  REASSIGN  DISKS 
REM  BRANCH  TO  BEG INC 


7688 

7693 

7696 

7700 

7704 

7708 

7713 

7716 

7730 

7734 

7738 

7733 

7736 

7740 

7744 

7748 

7753 

7756 

7760 

7764 


REM  ** 

RO  = O : REM 

GOSUB  ' 101  (15,1,1,0)  : REM 

PRINT  "DO  YOU  WISH  TO  CHANGE  PASSWORDS  (Y/N)? 

GOSUB  ' 104  ( 1 , "A" , " Y" ) : REM 

IF  R3*  <>  "Y*  THEN  7738  : REM 

RO  = 3 : REM 

GOSUB  ' 304  : REM 

RO  = 1 : REM 

REM  ** 

GOSUB  ' 101  (8, 1,0,0)  : REM 

PRINT  "COPYING  DATA  BASE  . . . Disk  Sector  > " 

FOR  R2  = RO  TO  1033  STEP  1 : REM 

DATA  LOAD  BA  T #3,  (R3,R3)  Bl*()  : REM 

DATA  SAVE  BA  T*#3,  (R3,R3)  Bl*( ) : REM 

CONVERT  R2  TO  STR(R9*( 1 ) , 1 , 5) , (#####>  : REM 

STR (R9*( 1 ) , 6, 5)  = HEX (0808080808)  : REM 

*G 10  PRINT  /00b  (AOOO,R8*(9>>  R9*()<1,10>  : REM 

NEXT  R3  : REM 

RETURN  : REM 


SET  COPY  INDX 
POSITION  CUSUR 

INPUT  RESPONCE 
DO  NOT  CHANCE 
SET  FUNCTION  FLC 
CHANGE  PASSWORD 
RESET  COPY  INDX 

POSITION  CUSOR 

BEGIN  COPY  LOOP 
LOAD  BUFR  #1 
SAVE  BUFR  #1 
CONV  SCTR  INDX 
STOP  REPOS  CHARS 
PRINT  INDX 
CONT  COPY  LOOP 
EXIT 


1 


O 
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AU 

7768 

7775 

7776 
7780 
7784 
7788 
7798 
7796 
7800 
7804 
7808 

7815 

7816 
7850 
7884 
7858 


l HON  S/stDm:  PhaEU 


ATH8f  1 MIT 


55  O 


RtM  ** 
RtM  ** 
REM  ** 
REM  ** 
RtM  ** 
RtM  ** 
REM  ** 
RtM  ** 
REM  *+ 
RtM 
DtFFN  ' 
GQSUB  ' 
GOSUB  ' 
IF 
IF 

RETURN 


Subroutine 
Abstract  > 

To  assign  an  input  dish  device  to  device  table 
and  verify  disk  has  proper  contents. 

Variables  > 

RO  > eof  flag  ! 


5 0 7 


507 

510 

511 


RO  <>  4 
R1  <>  6 


THEN  7815 
THEN  7815 


REM  ENTRY 
RtM  INPUT  DEV  # 

RtM  ASSIGN  DEVICE 
REM  MORE  TO  ASSIGN 
RtM  MORE  TO  ASSIGN 
REM  EXIT 


198 


fc 


/SLJ 

HQR 

sy 

e t cm  Z h3  se  2!  — 

ATHci  X NT <3  — 2! 

7832 

REM  ■** 

7836 

REM  ** 

7840 

REM  •*> 

Subroutine  £ o 

7844 

REM  ** 

Abstract  > 

7848 

REM  ** 

To 

wait  for  operator  responce  displaying 

7852 

REM  ** 

elapsed  time  of  wait. 

7856 

REM  ** 

Variables  > 

7860 

REM  ** 

JO*,  JO  > time  hours  ! K1  > row  for 

display 

7864 

REM  ** 

Jl*,  J1  > time  mintues  ! 

786B 

REM  ** 

J2*,  J2  > time  seconds  * 

787i=! 

REM  ** 

J3*,  J3  > time  adjustment! 

7876 

REM  ** 

7880 

REM  ***h 

*+-*-*■* 

*"*•*-#■•*•* 

7884 

OEFFN 

208 

(K1  > 

REM 

ENTRY 

7888 

DIM 

JO*2, Jl*2, J2*2, J3*3 

REM 

INITIALIZE 

7832 

COSUB  ' 

101 

<K1, 1, 1,0) 

REM 

POSI  t ION  CUSCJR 

7836 

PRINT 

" Touch  'RETURN'  to  Continue" 

REM 

PRNT  INST. 

7300 

FOR 

JO  « 0 10  2 

REM 

BEC  HOURS  LOOP 

7304 

CONVERT 

JO  TO  J04,  <#*> 

REM 

CUNV  TO  DISPLAY 

7308 

FOR 

J1  = 0 TO  53 

REM 

BEG  MINS  LOOP 

7312 

CONVERT 

J1  TO  Jl*,  <##) 

REM 

CONV  TO  DISPLAY 

7316 

FOR 

J2  = 0 TO  53 

REM 

BEC  SEC  LOOP 

7320 

CONVER 1 

J2  TO  J2*,  <##> 

REM 

CONV  TO  DISPLAY 

7324 

GOSUB  ' 

101 

<K1 , 50,0,0) 

REM 

POSITION  CUSOR 

7328 

PRINT 

JO*; Jl*; J2*;HEX<06> 

REM 

PRNT  CLOCK 

7332 

KEY  IN 

R0*<1),  7336,  7336  : GOTO 

7940 

REM 

INPUT  EOW 

7336 

JO-2  : Jl-53:  J2=53  : GOTO 

7948 

REM 

END  OF  LOOPS 

7340 

FOR 

J3  = 0 TO  500 

REM 

BEC  TIMMNC  LOOP 

7344 

NEXT 

J3 

REM 

CGNT  TIM  CLOCK 

7348 

NEXT 

J2 

REM 

CONT  SEC  CLOCK 

7352 

NEXT 

J1 

REM 

CONT  MIN  CLUCK 

7356 

NEXT 

JO 

REM 

CONT  HRS  CLOCK 

736.0 

COSUB  ' 

101 

<K1, 1, 1,0) 

REM 

POSIT  ION  CUSOR 

7364 

RETURN 

REM 

EXIT 

/M_l  1 HQR  Syst  cm 


F*  ha  & e> 


ATIHi2  X MTS 


a O S 


a 1 


AUTHOR  System:  Phj 


— ATMS I MTS  — 


8096  REM  ** 
8100  REM  ** 
8104  REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-* 


8108 

8115 

8116 
8150 
8154 
8158 

8135 

8136 
8140 
8144 


REM  ** 
REM  ** 
REM  ** 
REM 


Subroutine 
Abstract  > 

To  Input  the  device  structure  to  be  assigned. 
Variables  > 

R5  > input  numeric  val  ! R1  > device  tbl  indx 
Device  Specif ications  > 

#1  > AUTHOR  Source  Programs 

#5  > AUTHOR  Phase  II  Data  Base 

#3  > AUTHOR  Phase  II  Backup  Data  Base 


5 10 


8148 

DEFFN  ' 510 

i 

REM 

ENTRY 

81 S5 

DIM 

WS*IS>5,W6*(5,S)1 

REM 

CMMND  TABLE 

8156 

IF 

W6*(5, 1)  = HEX (00) 

THEN  8168 

REM 

CHCK  FLG 

8160 

INIT(SO) 

W6*(  > 

REM 

CLR  ITEM  FLAGS 

8164 

GOTO 

8175 

REM 

DISPLAY  MENU 

8168 

W6*(5, 1)  = HEX (50) 

REM 

CLR  FLG 

8175 

WS*(1>  = "PR" 

REM 

INIT  TABLE 

8176 

WS*(S)  = “DA* 

REM 

INIT  TABLE 

8180 

W5*(3>  = "BA* 

REM 

INIT  TABLE 

8184 

W5*<4>  = HEX(FFFF) 

REM 

INIT  TABLE 

8188 

WS*(5>  = “EX" 

- 

REM 

INIT  TABLE 

8195 

SELECT 

PRINT  005(80) 

REM 

SEL  OUT  DISPLY 

8196 

PRINT 

HEX (03) 

REM 

CLR  CRT  SCREEN 

8500 

PRINTUSING 

8436,  " " 

REM 

PRINT  MENU 

8504 

PRINTUSING 

8440,  " " 

REM 

PRINT  MENU 

8508 

PRINTUSING 

8444,  " “ 

REM 

PRINT  MENU 

8515 

PRINTUSING 

8448,  W6*(1,1),W6*(1,S> 

REM 

PRINT  MENU 

8516 

PRINTUSING 

8455,  W6*(S, 1),W6*(S,5) 

REM 

PRINT  MENU 

8550 

PRINTUSING 

8456,  W6*(3, 1),W6*(3,S) 

REM 

PRINT  MENU 

8554 

PRINTUSING 

8460,  " " 

REM 

PRINT  MENU 

8558 

SELECT 

PRINT  405 

REM 

SEL  OUT  DSPLY 

8535 

IF 

W6*(S,1)  <>  HEX (50) 

THEN 

8354 

REM 

CHCK  FLAG 

8536 

GOSUB  ' 101 

(15,1,1,0) 

REM 

POSITION  CUSOR 

8540 

PRINT 

“Enter  Command  > " 

REM 

PRNT  PROMT 

8544 

GOSUB  ' 104 

(8, "A" , "EXIT" ) 

REM 

INPUT  COMMAND 

8548 

RO  = LEN(RS*) 

REM 

CMPUT  STRNG  LEN 

8555 

IF 

RO  <=  5 

THEN 

8560 

REM 

WITHEN  LIMITS 

8556 

RO  = 5 

REM 

SET  TO  MAX  LEN 

8560 

AND 

(STR(RS*, 1,R0),DF) 

REM 

FORCE  UPPR  CASE 

8564 

MAT  SEARCH 

WS*( >,=STR(R5*, 1,R0>  TO 

R5*( ) 

STEP  5 

REM 

SRCH  CMND  TBL 

8568 

IF 

RS*( 1 ) <>  HEX (0000) 

THEN 

8595 

REM 

CMND  FOUND 

8575 

GOSUB  ' 101 

(16, 1, 1,0) 

REM 

POSITION  CUSOR 

8576 

PRINT 

"INVALID  COMMAND  RE 

-ENTER 

N 

REM 

PRNT  ERR  MSG 

8580 

*GIO 

PAUSE  T0NE/005 ( R8*( 4 ),R8* (9) ) 

REM 

PAUSE  TONE 

8584 

GOSUB  ' 101 

(16,1,1,0) 

REM 

POSITION  CUSUR 

8588 

GOTO 

8536 

REM 

RE-ENTER  CMND 

85-95 

RO  = I NT ( FNR ( VAL ( R5* ( 1 ) ) ) /5>  + 

1 

REM 

CMPUT  DEV  TYPE 

201 


INPUT  DEV  NUMBER 


8296 

REM  ** 



8300 

REM  ■ihhm 

It  It  N N N HHHi  XMXXWItXHXXXX*""" 

8304 

REM  ** 

8308 

W6*(R0,1)  = LEX ( 2A ) 

8312 

IF 

W6*(5, 1)  <>  HEX <20 ) THEN  8324 

8316 

W6*(5,l>  = HEX (00) 

8320 

GOTO 

8192 

8324 

IF 

RO  <>  5 THEN  8340 

8328 

RO  = 4 

8332 

R1  = 6 

8336 

GOTO 

8464 

8340 

GOSUB  ' 

101 

(10,1,1,0) 

8344 

SELECT 

PRINT  005(64) 

8348 

PRINT 

■ 1 - Flopy  Disk  Drive  #1  <310>* 

8352 

PRINT 

* 2 - Flopy  Disk  Drive  #2  <B10>“ 

8356 

PRINT 

* 3 - Flopy  Disk  Drive  #3  <350>“ 

8360 

PRINT 

“ 4 - Fixed  Disk  Plater  <320>* 

8364 

PRINT 

■ 5 - Removable  Disk  Plater  <B20>“ 

8368 

SELECT 

PRINT  405 

- 

8372 

GOSUB  ' 

101 

(16,1,1,0) 

8376 

PRINT 

“Enter  Disk  Device  to  Assign  > " 

8380 

CONVERT 

RO  TO  R0*(1>,  (#> 

8384 

GOSUB  ' 

104 

( 1 , “N" , RO*( 1 ) > 

8388 

IF 

R2  •>  5 THEN  8396 

8392 

IF 

R2  > 0 THEN  8416 

83-36 

GOSUB  ' 

101 

(16,1,1,0) 

8400 

PRINT 

“INVALID  COMMAND  RE-ENTER" 

8404 

$GIO 

PAUSE  T0NE/0O5(R8*(4),R8*(9> ) 

8408 

GOSUB  ' 

101 

(16,1,1,0) 

8412 

GOTO 

8372  , 

8416 

R1  = R2 

8420 

R2  = RO 

8424 

CONVERT 

R1  TO  W6*(R0,2),  (#> 

8428 

GOSUB  ' 

101 

(10, 1,7,0) 

8432 

REM 

8436  X Command  Summary;  # 


REM  SET  ITEM  FLAG 
REM  CHECK  FLAG 
REM  SET  FLAG 
REM  REPRINT  MENU 
REM  BRNCH  TO  EXIT 
REM  SET  TO  EXIT  IDX 
REM  SET  TO  NULL  BRNCH 
REM  BRANCH  TO  EXIT 
REM  POSITION  CUSOR 
REM  SEL  OUTPUT  DISPLY 


REM  SEL  OUTPUT  DISPLY 


REM  CMPUT  DEFLT  DEV 
REM  INPUT  DEV  # 

REM  INVALID  INPUT 
REM  VALID  INPUT 
REM  POSITION  CUSOR 
REM  PRNT  ERR  MSG 
REM  WARNING  TONE 
REM  POSITION  CUSOR 
REM  RE-ENTER  CMND 
REM  STOR  DEV  # 

REM  STOR  DEV  TYPE 
REM  STOR  DEV  ASSIND 
REM  ERASE  DISK  MENU 
REM  IMAGE  FORMATS 


8440  X Command 

8444  X # 

8448  X # PROGRAM 
8452  X # DATA 
8456  X * BACKUP 
8460  X ,-EXIT 
8464  RETURN 


Device  Assigned 


Disk;  # 
Disk;  # 
Disk;  # 

# 


Function  # 


Assign  the  Program  Disk 
Assign  INPUT  Data  Base  Disk 
Assign  BACKUP  Data  Base  Dirk 
Return  to  Command  Menu 

: REM  EXIT 


I 


202 


MMaHMSH 


C 


c 


/M_J  1 

1 HQR 

8468 

RfcM 

** 

8472 

RfcM 

** 

8475 

RfcM 

8480 

REM 

** 

8484 

REM 

** 

8488 

RfcM 

** 

8492 

REM 

*•* 

8496 

REM 

** 

8500 

REM 

8504 

UfcFFN 

Phase  a — ATH2INTa  — 


Subroutine 
Abstract  > 

Tc  assign 
Variables  > 

R2  > device  type 


2 1 1 


device  to  internal  table  slot. 


! R1  > device  number 


21 1 


: REM  ENTRY 


8508  RfcM 
8512  RfcM 


310  ! BIO  ! 350  ! 320 


820  ! EXIT  ! 


8516 

8520 

RfcM  ** 

ON  R1  GOTO 

1 

8532  , 8552  , 8572  , 

8592  , 8612  , 

8632 

obcH 

nhn 

8528 

RfcM  ** 

8532 

ON  R2  GOTO 

8536,  8540, 

8544 

RfcM 

8536 

SfcLECl 

#1  310 

a 

a 

GOTO 

8632  : 

RfcM 

9540 

SELECT 

#2  310 

a 

a 

GOTO 

8632  : 

RfcM 

8544 

SELECT 

#3  310 

a 

a 

GOTO 

8632  : 

RfcM 

8548 

RfcM  ** 

85ts2 

ON  R2  G010 

8556,  8560, 

8564 

RfcM 

8556 

SELECT 

#1  BIO 

a 

GOTO 

8632  : 

REM 

8560 

SELECT 

#2  BIO 

GOTO 

8632  : 

RfcM 

8564 

SELECT 

#3  BIO 

• 

GOTO 

8632  : 

REM 

8568 

RfcM  ** 

8572 

ON  R2  GOTO 

8576,  8580. 

8584 

REM 

8576 

SELECT 

ttl  350 

a 

a 

GOTO 

8632  : 

REM 

8580 

SELECT 

#2  350 

a 

■ 

GOTO 

8632  : 

REM 

8584 

SELECT 

tt3  350 

a 

COTO 

8632  ; 

REM 

8588 

RfcM  ** 

8592 

ON  R2  GOTO 

8596,  8600, 

8604 

REM 

8596 

SELEC'i 

#1  320 

a 

a 

GOTO 

8632  : 

RfcM 

8600 

SELECT 

tt 2 320 

a 

a 

GOTO 

8632  : 

RfcM 

8604 

SELECT 

tt3  320 

a 

a 

GOTO 

8632  : 

REM 

8608 

RfcM  ** 

8612 

ON  R2  GOTO 

8616,  8620, 

8624 

RfcM 

8616 

SELECT 

ttl  B20 

a 

a 

GOTO 

8632  I 

REM 

8620 

SELECT 

#2  820 

a 

GOTO 

8632  : 

RfcM 

8624 

SELECT 

tt3  B20 

a 

a 

GOTO 

8632  : 

Rt.M 

8628 

RfcM  ** 

8632 

RtTURN 

RfcM 

REM  BRANCH 
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BRNCH  TO  DfcV 
ASSIGN  ttl 
ASSIGN  tt2 
ASSIGN  #3 

BHNCW  TO  DfcV 
ASSIGN  #1 
ASSIGN  #2 
ASSIGN  #3 

BRNCH  TO  DEV 
ASSIGN  Itl 
ASSIGN  tt2 
ASSIGN  #3 

BRNCH  TO  DfcV 
ASSIGN  ttl 
ASSIGN  #2 
ASSIGN  lt3 

BRNCH  TO  DEV 
ASSIGN  ttl 
ASSIGN  tt2 
ASSICN  tt3 

EXIT 


I 


■ 


AUTHOR  System:  Phase 

7084  - 7112 

7150  - 7096 

7500  - 7055 

7555  - 7304 

7315  - 7584 

7340  - 7354 

7344  - 7335 

7336  - 7436. 

7444  - 7408 

7456  - 7496 

7504  - 7475  7476 

7588  - 7515 

7596  - 7504 

7635  - 7684 

7695  - 7676 

7758  - 7708 

7815  - 7850  7854 

7336  - 7935 

7940  - 7335 

7948  - 7936 

8168  - 8156 

8175  - 8164 

8195  - 8350 

8536.  - 8588 

8560  - 8555 

8535  - 8568 

8354  - 8535  8315 

8340  - 8354 

8375  - 8415 

8396  - 8388 

8416  - 8395 

8436  - 8500 

8440  - 8504 

8444  - 8508 

8448  - 8515 

8455  - 8516 

8456  - 8550 

8460  - 8554 

8464  - 8336 

8535  - 8550 

8536  - 8535 

8540  - 8535 

8544  - 8535 

8555  - 8550 

8556  - 8555 

8560  - 8555 

8564  - 8555 

8575  - 8550 

8576  - 8575 

8580  - 8575 

8584  - 8575 

8595  - 8550 

8596  - 8595 

8600  - 8595 

8604  - 8595 

8615  - 8550 

8616  - 8615 

8650  - 8615 


AU1  HOK  S/ste-m:  Phase  2 — ATH21N  ! 2 — MAP 

Bl*<  - 7636  7740  7744 

H8*<  - 7448 

JO  - 7900  7904  7936  7966 

JO*  - 7888  7904  7928 

J1  - 7908  7912  7936  7962 

Jl*  - 7838  7912  7928 

J2  - 7916  7920  7936  7948 

J2*  - 7888  7920  7928 

J3  - 7940  7944 

J3*  - 7888 

K 1 - 7884  7892  7924  7960 

Q6  - 7516  7632  7536  7544  7556 

06  - 7532  7636  7540 

06* ( - 7204  7540 

Q7  - 7536  7540 

Q8*<  - 7120  7132  7152  7172  7176  7180  7200  7220  7244  7316  7328  7340  7524  7540 

09*  < - 70-32  7096  7404  7408  7444  7448  7468 

R0  - 7052  7324  7504  7692  7712  7720  7736  7820  8248  8262  8266  8260  8264  8292 

8308  8324  8328  8380  8420  8424 

K0*<  - 7932  8380  8384 

R1  - 7128  7132  7136  7148  7152  7160  7164  7404  7620  7624  7564  7824  8332  8416 

8424  8620 

R2  - 7092  7152  7180  7328  7340  7624  7528  7540  7560  7736  7740  7744  7748  7760 

8388  8392  8416  8420  8532  8562  8572  8592  8612 

R2*  - 7240  7264  7284  7312  7472  7476  7544  7548  7562  7676  7708  8248  8260  826.4 

R2*<  - 7124  7132  8264  8268  82-32 

R3  - 7740  7744 

R3*  - 7264  7284 

R8*<  - 7108  7296  7420  7488  7756  8280  8404 

R9*<  - 7208  7212  7216  7220  7240  7244  7312  7316  7444  7452  7468  7472  7748  7752 

7756 

W2*<  - 8152  8172  8176  8180  8184  8188  8264 

W6*(  - 8152  8156  8160  8168  8212  8216  8220  8232  8308  8312  8316  8424 


AU  ) HQK  S x s -t  e-m 


P ha  b-  e- 


ATHa I NTS 


MAH 


0 


????  DEFFN'  101 

- 7100  7140  7156  7252  7272  7288  7300  7412  7456  7480  7492  7508  7664  7696 
7728  7892  7924  7960  8236  8272  8284  8340  8372  83-96  8408  8428 

????  DfcFFN'  104 

- 7236  7260  7280  7464  7672  7704  8244  8384 
????  DfcFFN'  135 

- 7184  7572 
????  DfcFFN'  202 

- 7428 

????  DfcFFN'  203 

- 7432 

7048  DfcFFN'  204 

- 7716 

7396  DfcFFN'  205 

- 7640 

7632  DfcFFN'  206 
7808  DfcFFN'  207 

- 7680 

7884  DfcFFN'  208 

- 7084  7424  8088 
8008  DfcFFN'  209 

8148  DfcFFN'  210 

- 7812 

8504  DfcFFN'  211 

- 7816 
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I 
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4.4  ATH2L0GC 

The  purpose  of  the  'ATH2L0GC'  program  Is  to  provide  the  control 
logic  for  executing  the  data  entry  commands.  The  'ATH2L0GC'  program 
is  presented  here  In  two  parts. 

4.4.1  ATH2L0G1 

IThls  section  of  the  'ATH2L0GC'  program  contains  the  main 

branching  Instructions  for  the  execution  of  the  data 
entry  commands.  This  section  also  contains  subroutines 
201  to  217. 

The  remainder  of  this  section  presents  the  'ATH2L0GI' 
program  listing  and  reference  maps. 

I 


AUTHOR  Syc'tcm 


PhaBD  a — ATH3LUC 1 


6000  X#tt  Program  > AUTHOR /2  (ATH2L0C1)  Version  > 2.0  2200  T /VP  780320 


6004 

6008 

6012 

REM 

REM 

REM 

*•* 

-*-* 

** 

Abstract  thhhhh 

ATH2L0GC  will 

provide  the  logic 

for 

HHHHf 

6016 

6020 

REM 

REM 

*"* 

executing  the 
TITLE 

commands  > 
ORGANIZATION 

TYPE 

SYMBOL. 

*«* 

6024 

REM 

*■* 

SUBTITLE 

TRAINING 

NAME 

HELP 

** 

6028 

REM 

*•* 

AUTHORS 

IMPORTANCE 

SOURCE 

LIST 

*•* 

6032 

REM 

DATE 

USAGE 

EXAMPLE 

ESCAPE 

** 

6036 

HEM 

OCTM 

** 

4^4^44  H #»»  IHHMHHH 

II II II II II II II II  n il  ntTffM  I inn 

iii  ii  ii  ii  ii  mm  u mi  mi 

*.4.441.4.4. 4.4..44.4HH 

** 

6044 

REM 

6048 

6052 

€■056 

6060 

6064 

6068 

6072 

6076 

6080 

6084 

6088 

6092 

6096 

6100 

6104 

6108 

6112 


GOSUB 
PRINT 
G0SUB 
REM  ** 

REM  ** 

REM  ** 

ON  RO-O 

REM  *■* 

REM  ** 

REM  ** 

REM  *+ 

REM  ** 

REM  *+ 

ON  R0--10 

REM  ** 
REM 
REM  ** 


105 


101 


<RO,“Data  Entry  Procedures  Menu" 
HEX < 03) 

<14, 1,0,0) 


REM  INPUT  COMMAND 
REM  CL.R  CRT  SCREEN 
REM  POSITION  CUSOR 


1 

TITLE 

! SUBT1TL 

( 

AUTHOR 

! DATE  ! 

1 ORGAN  ! 

GOTO 

6120 

, 6124 

9 

6128 

, 6132  , 

, 6136.  , 

6140 

, 6144 

9 

6148 

, &1S2  , 

, 6156  : 

1 I 

REM 

BRANCH 

1 

TRAIN 

! IMPORT N 

< 

USAGE 

! TYPE 

! NAME  ! 

t 

1 SOURCE 

EXAMPLE 

1 

SYMBOL 

! HELP 

! LIST  ! 

GOTO 

6160 

, 6164 

9 

6168 

, 6172  , 

, 6176  , 

6180 

, 6184 

9 

6184 

, 6184  , 

p siB'i  : 

REM 

BRANCH 

! ESCAPE 

! NULL 

1 

NULL 

NULL 

! NULL  ! 

6116 

REM 

6120 

COSUB 

/ 

201 

6124 

GOSUB 

/ 

213 

6128 

GOSUB 

/ 

214 

6132 

GOSUB 

/ 

215 

6136 

GOSUB 

/ 

216 

6140 

GOSUB 

/ 

202 

6144 

GOSUB 

/ 

203 

6148 

GOSUB 

/ 

204 

6152 

GOSUB 

/ 

206 

6156 

GOSUB 

/ 

207 

6160 

GOSUB 

/ 

208 

6164 

GOSUB 

/ 

205 

6168 

GOSUB 

/ 

209 

6172 

GOSUB 

/ 

211 

6176 

GOSUB 

/ 

217 

6180 

GOSUB 

/ 

212 

6184 

GOSUB 

/ 

211 

6188 

REM  *♦ 

GOTO  6048 
GOTO  6048 
GOTO  6048 
GOTO  6048 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


6048 

6048 

6048 

6048 

6048 

6048 

6048 

6048 

6048 

6048 

6048 

6048 

6048 


REM  TITLE 
REM  SUBTITLE 
REM  AUTHORS 
REM  DATE 

REM  ORGANIZATION 
REM  TRAINING 
REM  IMPORTANCE 
REM  USAGE 
REM  TYPE 
REM  NAME 
REM  SOURCE 
REM  EXAMPLE 
REM  SYMBOL 
REM  HELP 
REM  LIST 
REM  ESCAPE 
REM  NULL  CMND 
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AUIHQW  S/Dtem 


P ha se  3 


ATHauac l 


£2  0 1 


6192  REM  ** 
6196  RbM  ** 
6200  REM  ** 
6204  REM  ** 
6208  REM  ** 
6212  RbM  ** 
6216  REM  ** 
6220  REM  ** 
6224  REM  ■** 


LABLED  SUBROUTINES 

Subroutine  *^****HHt**************^****^^-»HH«*****-)Hi-«-  £ o 1 
Command  > TITLE 
Function  > 

To  allow  the  entry  of  the  Title. 

Variables  > 

R8*<>  > micro  cmnd  bufr  ! R9*< ) > scratch  bufr 


€-232  RbM  **HHHf^^*HH»****1HHt**^****HH(~»*************** 

6236  DfcFFN  ' 201 

6240  IN1T  <20)  R9*<) 

62  Vi  *G 10  DASH  /005  <H8*<2>  ,R8*<9>  )R9*<  XI , 63> 

6248  PRINT  “Enter  Title.*;  HEX(ODOA) 

6262  PRINT  "Touch  'ESCAPE'  Rey  when  Completed.” 

6266  COSUB  ' 106  1) 

6260  Nl*  - “SUBTITLE* 

6264  RETURN 


REM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
REM  PRINT  PROMPT 
RbM  PRINT  INSTRUCTN 
REM  ENTER  & SAVE  TEXT 
REM  SET  NXT  COMMAND 
RbM  EXIT 


A* 


AUTHOR  Sy ' 


iS  F>*-w 


l & *> 


— ATHai_ac  1 - s 


6268 

6272 

6276 

6280 

6284 

6288 

6282 

6296 

63C0 

6304 

6308 

6312 

6316 

6320 

6324 

6328 

6332 

6336 


REM  < 

REM  < 

RbM 
REM 
REM 
RbM 
RbM 
REM 
RbM 
REM 
UbFFN 
IN1T (2D) 
♦CIO  DASH 
PRINT 
PRINT 
COSUB 


TRAINING 


Subroutine 
Command  > 

Function  > 

To  allow  the  entry  of  the  Training  Object 
Variables  > 

R8*<5  > mir.ro  cmnd  bufr  ! R9*<>  > scratch 


►**202 


i ve. 
bufr 


202 


R9*< ) : 

/005  <R8*<2),R8*(9> >R9*(><1,63>  : 

“Enter  Training  Objective. “JHEX(OOOA): 
“Touch  'ESCAPE'  Rey  when  Completed."  : 
106  (00011,1)  : 
Nl*  - “IMPORTANCE*  : 


RETURN 


REM  ENTRY 

REM  CREATE  DASH  LINE 
RbM  PRINT  LINE 
RbM  PRINT  PHUMP1 
RbM  PRINT  INSTRUC1N 
REM  ENTER  & SAVE  TEXT 
REM  SET  NXT  COMMAND 
RbM  EXIT 


AU  I HQR  Sy  s-tem 


P ha  ss-  o St 


ATHaLOG 1 


a o 3 


6340  HfcM  *■* 

6344  REM  ** 

€.348  RLM  +*  Subroutine  **********^******^***^^**^^**'«-»***-»-#-***  2 0 3 
6352  REM  **  Command  > IMPORTANCE 
635€.  REM  •*■*■  Function  > 

€.360  Rt.M  **  To  allow  the  entry  of  the  Importance  of 
6364  REM  ++  the  symbols. 

6368  REM  **  Variables  > 

6372  REM  **  R8*( ) > micro  cmnd  bufr  ! R9*<>  > scratch  bufr 


6376  REM  ** 

6380  REM  IHHHHHHHHt.  WHHt«HHt*******************-»*HHt**#<l-» 

6384  UEFFN  ' 203 

6388  1N1T (20)  R9*<> 

6332  *GIL)  DASH  ZOOS  <R8*<2 ) , R8* < 9 ) )R9* O < 1 , 63> 

639€-  PRINT  "Enter  the  Importance  of  the  Symbols. 

6400  PRINT  "Touch  'ESCAPE'  Rey  when  Completed." 

6404  COSUB  ' 106  (00031,1) 

6408  Nl*  = “USAGE" 

6412  RETURN 


REM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
; HEX ( ODOA  > 

REM  PRINT  INSTRUCTN 
REM  ENTER  & SAVE  TEXT 
REM  SET  NXT  COMMAND 
REM  EXIT 


AUTHOR  S X s -t  «=MT»  = Phase 


— ATH3 CIO  1 — 


6'il6 

€•'♦20 

6424 

6428 

6432 

6436 

6440 

6444 

6448 

6452 

6456 

6460 

6464 

6468 

6472 

6476 

6480 

6484 

6488 


REM  ** 

HEM  ** 

REM  **  Si 
REM  **  C 
REM  **  F 
REM  *■* 

REM  ** 

REM  **  V. 
REM  ** 

REM  ** 

REM  *■*•***•• 
OEFFN  ' 2 
1N1T (2D) 
*GI0  DASH 
PRINT 
PRINT 


Command  > USAGE 
Function  > 

To  allow  the  entry  of  How  the  Symbols  will 
be  Used. 

Variables  > 

R8*(>  > micro  cmnd  bufr  ! R9*( ) > scratch  bufr 


2 O 4 


: REM  ENTRY 

R9*()  : REM  CREATE  DASH  LINE 

/005  (R8*(2),H8*(9) >R9*( )<1,63>  : REM  PRINT  LINE 

"Enter  How  Symbol  to  be  Used. " ;HEX(ODOA) 

“Touch  'ESCAPE'  key  when  Completed."  : REM  PRINT  INSTRUCYN 
(00032,1)  : REM  ENTER  & SAVE  TEXT 

Nl*  = "TYPE"  : REM  SET  NXT  COMMAND 


GOSUB  ' 106  (00032,1) 

Nl*  = "TYPE" 

RETURN 


P h3  55-  E? 


ATHSL-OC  1 


O 


/M  J I HQR 


Syst om : 


S492  RtM  ** 
(4%  RtM  ** 


6500 

REM 

■** 

Subroutine  ihhhhmhhm 

6504 

RtM 

Command  > EXAMPLE 

65C3 

RtM 

*"* 

Function  > 

6512 

REM 

*-* 

To  allow  the  entry 

of  an 

Example  of 

6516 

RtM 

-** 

the  symbols. 

6520 

REM 

*-* 

Variables  > 

6524 

REM 

R8*( ) > micro  cmnd 

buf  r 

! R9$<  ) > scratch  buf  r 

6528 

RtM 

*-tr 

6592 

6536 

6540 

€.544 

6548 

6552 

6556 

6560 

6564 


RtM  ♦■^-fr-*****-*^*-**-*^***-**-*^^^^^******-***-**-* 

DEFPN  7 205 

1N1T (20)  R9*<> 

*CIU  DASH  /005  <R8*<2) , R8*<9> )R9*< > <1 , 63> 

PRINT  "Enter  the  Example. HEX (OOOA) 

PRINT  “Touch  'ESCAPE ' Wey  when  Completed." 

GOSUB  ' 106  (00041,1) 

Nl*  -SYMBOL- 

RETURN 


REM  ENTRY 

REM  CREATE  DASH  LINE 
RtM  PRINT  LINE 

RtM  PRINT  INSTRUCTN 
REM  ENTER  E SAVE  TEXT 
REM  SET  NXT  COMMAND 
REM  EXIT 


/M_l 

6b68 

6S72 

6676 

6580 

6584 

6588 

6592 

6596 

6600 

6604 

6608 

6612 

6616 

6620 

6624 

6628 

6632 

6636 


IMHRMM 


I HOR  Sy  s t E>m  : Pha! 


— ATH2L.OC  1 — 


O e 


RfcM  ** 

RfcM  ** 

REM  ** 

RtM  ** 

RfcM  ** 

RtM  ** 

REM  ** 

REM  ** 

RfcM  ** 

REM 
UfcFFN 
IN1T (20) 
TG 10  DASH 
PRINT 
PRINT 
GOSUB  ' 

RETURN 


Subroutine 
Common d > TYPE 

Function  > 

To  allow  the  entry  of  the  Type  of  Symbol. 
Variables  > 

R8*(>  > micro  cmnd  bufr  ! R9*< ) > scratch  bufr 


2 0 6 
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R9*<  ) 

/0O5  <R8*(2),R8*<9> >R9*< ><1,63> 
■Enter  Type  of  Symbol. •;HEX(OUOA) 
"Touch  'ESCAPE'  key  when  Completed.* 
106  (00022,1) 

Nl*  = "NAME" 


RfcM  ENTRY 

REM  CREATE  DASH  LINE 
RfcM  PRINT  LINE 

RfcM  PRINT  INSTRUCT  N 
RfcM  ENTER  & SAVE  TLXT 
RfcM  SET  NXT  COMMAND 
REM  EXIT 
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/so 

6640 

6644 

6648 

6652 

6656 

6660 

6664 

6668 

6672 

6676 

6680 

6684 

6688 

6692 

6696 

6700 

6704 

6708 


I MCJF*  Sy&t  em  : 


F*  ha ! 


ATH2LOC X — 


REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  *♦ 

REM  ** 

REM  ** 

REM 
UEFFN 
INI  I (2D) 
*GI0  DASH 
PRINT 
PRINT 
GOSUB 


Subroutine 
Command  > NAME 
P unction  > 

To  allow  the  entry  of  the 
Variables  > 

R8*(>  > micro  cmnd  bufr  ! 


2 0 7 


Name  of  the  Users. 
R9*()  > scratch  bufr 
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REM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 


R9*<  ) 

/005  <R8*(2),R8*<9) )R9*< )<1,69> 

“Enter  the  Name  of  the  Users. " ;HEX(OUOA) 

“Touch  'ESCAPE'  key  when  Completed."  : REM  PHI NT  INSTRUCTN 


106  (00021,1) 

Nl*  - "SOURCE* 


RETURN 


REM  ENTER  & SAVE  TEXT 
REM  SET  NX!  COMMAND 
REM  EXIT 


MMHMH MMMMMMl 


AU'I  HClR  Sys-tem;  Phase  2 


ATH2L.OG  1 


67i  a 

6716 

6vao 

6734 

6738 

6733 

6736 

6740 

6744 

6748 

6753 

6756 

6760 

6764 

6768 

6773 

6776 

6780 

6784 


HEM  ** 

REM  ** 

REM  **  Si 
REM  *+  C( 
REM  **  Fi 
REM  ** 

REM  ** 

REM  **  Vi 
REM  ** 

REM  ** 

REM  **+**■ 
OEFFN  ' 2 
IN1T (30) 
*GI0  DASH 
PRINT 
PHI  NT 
GOSUB  ' 1' 


Command  > SOURCE 
Function  > 

To  allow  -the  entry  of  the  Offical  Source  of 
Reference  for  definition  of  symbols. 

Variables  > 

R8*<>  > micro  cmnd  bufr  ! R9*< > > scratch  bufr 


3 0 8 


R9*< ) 

/005  <R8*(3>,R8*(9>)R9*<)<1,63> 


: REM  ENTRY 

: REM  CREATE  DASH  LINE 
1 REM  PRINT  LINE 


"Enter  Official  Source  of  Reference. ";HEX(0D0A> 


"Touch  'ESCAPE'  Hey  when  Completed. 
106  (00033,1) 

Nl*  * "EXAMPLE" 


RETURN 


: REM  PRINT  INSTRUCTN 
; REM  ENTER  & SAVE  TEXT 
: REM  SET  NXT  COMMAND 
: REM  EXIT 


O "3 


/MJ  I HOR  Say  stem: 


H ha  5-  e- 


— ATH2LOG 1 - 3 


6788 

REM  *-* 

6792 

RtM  ** 

MIMMillMIN 

6 A36 

RtM  ** 

auorouTine 

d 0 9 

6800 

RtM  ** 

Command 

> SYMBOL 

6804 

RtM  ** 

Function 

> 

6808 

HEM  ♦+ 

To  all  oh 

the  entry  of 

Symbol 

Descriptions 

. 

6812 

RL.M  ** 

Variables 

> 

6816 

REM  *•* 

R8*  < ) > 

micro  cmnd  bufr  ! R9*( ) > 

scratch 

bufr 

6820 

REM  ** 

LI  > 

set  number 

• Ml* 

> 

set  number 

6824 

REM  ** 

L2  > 

symbol  number 

! M2* 

> 

symbol 

number 

6828 

REM  ■** 

L3  > 

item  number 

! M3* 

> 

set  name 

€.832 

RtM  *-» 

L4  > 

graphic  code 

! M4* 

> 

graphi c 

code 

6836 

RtM  ** 

R2  > 

input  numric 

val 1 R2* 

> 

inpt  alph  val 

6840 

REM  ** 

HI  > 

crt  row  indx 

! K2 

> 

crt  col 

indx 

6844 

REM  ** 

Kb  > 

buffer  indx 

! K6 

> 

line  number 

6848 

REM  ** 

Function  Definitions  > 

€852 

RtM  ** 

I <L3)  > 

compute  item 

IU  for  index 

1 ooltup . 

6856 

REM  ** 

M M M * • 

6860 

HEM 

6864 

DEFEN  ' 

209 

RtM  ENTRY 

6868 

DIM 

M 1 * 3 , M2*4 , M 3*40 , M4* 1 

RtM  DEFINE  BUFRS 

6872 

UtFFN 

I (L3) 

= Ll*1000  + L2*10  ♦ L3 

RtM  DEFINE  FUNCTION 

6876 

Ml* 

- "OOl" 

RtM  1N1T  SBL  SET  t) 

6880 

M2* 

* "0001- 

REM  1N1T  SBL  NUMBER 

€884 

M3* 

- "Symbol  Set 

#xx*“ 

REM  INI1  SBL  SET  NAM 

6888 

M4* 

- “1" 

RtM  INI!  GRAPHIC  CODE 

68-32 

N2* 

- "SETNUMBLR" 

RtM  IN1T  EIRSl  MEM 

6896. 

IN1T  (20)  04*0 

REM  CLR  DEM  FLG  BUFR 

6900 

LI 

* 0 

RFM  INI T SET  # INDX 

6904 

L£ 

* 0 

REM  IN1T  SBL  if  INDX 

6908 

COSUB  ' 

230  (RO) 

REM  INPUT  COMMAND 

6912 

RtM  ** 

• S NLW  ! SB  MUM  • 

S NAME 

! RE 

NUM  ! 

SYMBOL  ! 

6916 

RtM  ** 

l 

6920 

ON  RO  GOTO  6944  , 6948  , 

6952 

, 6956  , 

6964  , 

6968  , 6972  , 

6976 

, 6980  , 

6984  I RtM  BRANCH 

6924 

RtM  ** 

6928 

RLM  ** 

! DEFFN  ! MEMAIO  ! 

SIMSBL 

! NEXT  ! 

DELETE  ! 

6932 

RtM  ** 

6936 

COTU 

6992 

: 

REM  BRANCH  TO  EXIT 

6940 

RtM  ** 

6944 

GOSUB  ' 

218 

GOTO 

6908  : 

REM  ENTER  SET  NUMBER 

6948 

COSUB  ' 

219 

■ 

G0)0 

6908  : 

RtM  ENTER  SBL  NUMBfi 

6952 

CUSUB  ' 

220 

• 

a 

GOTO 

6908  : 

REM  ENTER  SET  NAME 

6956 

GOSUB  ' 

221 

: 

REM  CONST URCT  REF  # 

6960 

GOSUB  ' 

222 

a 

a 

GOTO 

6908  : 

RtM  SAVE  SET,  SBL  ft 

6964 

GOSUB  ' 

223 

• 

• 

GOTO 

6908  : 

RtM  ENTER  SYMBOL. 

6368 

GOSUB  ' 

224 

a 

■ 

GO  10 

6908  : 

RtM  ENTER  DEFINn  ION 

6972 

GOSUB  ' 

225 

a 

a 

GOTO 

6908  : 

RtM  ENTER  MNEMONIC 

6976 

GOSUB  ' 

226 

• 

a 

GOTO 

6908  : 

REM  ENTER  SIM  SMBLS 

6980 

GOSUB  ' 

227 

• 

a 

GOTO 

6908  : 

REM  I NCR  COUNTERS 

6984 

GOSUB  ' 

228 

a 

a 

GOTO 

6900  : 

RtM  DELETE  CKNT  SBL 

6988 

RtM  ** 

69-32 

RtT URN 

• 

REM  EXIT 

218 


AU  l'HOR  S y & -fc  e>m 


P ha  as-  e 


ATHaLQG 1 


aii 


AUTHOR 

S y B-  + em  : P h-s  s p 2 ATH3I — CK»  1. 

- 3 

1 

7040 

REM  ** 

7044 

REM  ** 

7048 

REM  ** 

Subroutine  **»**»»»**»»»»»*»♦»•»»»»•»»»•»■»■« »»»»*»»»»»»**♦♦»  P 1 

S 

/o5? 

REM  ** 

Command  > ESC  Ar,E 

vt)'.,r. 

REM  ** 

Function  > 

7060 

REM  ** 

To  Terminate  program  exerution. 

7064 

REM  ** 

7068 

/U7<? 

DEFFN  ' 

21 p : REM  ENTRY 

7076 

PRINT 

HEX < 00) 

7080 

PRINT 

“AUTHOR  S Y S 1 E M";HEX<OOOA> 

/o84 

PRINT 

" PHASE  II” 

7088 

GOGUB  ' 

101  <15,1.0,0) 

709? 

PRINT 

"AUTHOR  SYS) EM  PHASE  II"; HE  X < OOOCOC ) 

7096 

PRINT 

“END  PROGRAM  EXECUTION"  ; HEX  < 0007; ) 

7100 

COM 

CLEAR  DO  '■  RtM  CLEAR 

COMMON  TBL 

/ 104 

LOAD  DC 

T *1,  "AUTHOR" 

7108 

END 

: REM  END  OF 

PROGRAM 

i 


P l-i-aa  & e c2 


ATHSLOG 1 


a 1 3 


r 

% # 


/MJlHQN  Sys-tem: 


7112 

7116 

7120 

7124 

7128 

7132 

7136 

7140 

7144 

7148 

7152 

7156 

7160 

7164 

7168 

7172 

7176 

7180 


HEM  ** 
RfcM  ** 
RfcM  ** 
REM  ** 
REM  ** 
REM  ** 
RfcM  ** 
REM  ** 
RfcM  ** 


Subroutine 
Command  > SUBTITLE 
function  > 

To  allow  the  entry  of  the  Subtitle. 
Variables  > 

R8*< ) > micro 


2 1 3 


cmnd  bufr  ! R9*<)  > scratch  bufr 


r \r  ■ u MKMMMUiii 

wi-m  ir  h ■ n n ■ a » 

DfcFFN  ' 213 
IN1T  <2D) 
SGICJ  dask 
PRINT 
PRINT 

GOSUB  ' 106 
RETURN 


R9*( > : 
/005  <RB*<2),R8*<9>)  R9*<K1,63>  : 
"Enter  the  Subtitle. " ;HEX<000A)  : 
“Touch  'ESCAPE'  Rey  when  Completed.": 
(00002,1)  : 
Nl*  = "AUTHORS"  : 


RfcM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
REM  PRINT  INSTRUCTION 
RfcM  PRINT  INSTRUCTION 
RfcM  ENTER  & SAVE  TEXT 
RfcM  SET  NE)(T  COMMAND 
REM  EXIT 


AL.J‘1  HCJR  Sy  st  em 


P h£3  s E> 


ATHaLOC 1 


S 1.  A 


REM  ** 

REM  ** 

RtM  **  S 
REM  **  C 
RtM  **  F 
RtM  ** 

REM  *+  V 
REM  ** 

RtM  ** 

RtM  **•**♦ 
UEFFN  ' 2 
IN1T(2D> 
*GIO  DASH 
PRINT 
PRINT 
GOSUB  ' 1 


Command  > AUTHORS 
Function  > 

To  allow  the  entry  of  the  Author(s). 
Variables  > 

R8*< ) > micro  cmnd  bufr  ! R9*< ) > si 


2 1 4 


R9*<  ) 

K /00S  <R8*(2),R8*<9> > R9*()<1,63> 
“Enter  the  Author ' s. HEX(ODOA) 
"Touch  'ESCAPE'  key  when  Completec 
10t.  (00003,1) 

Nl*  = "DATE" 


RETURN 


:ch  bufr 


REM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
RtM  PRINT  INSTRUCTION 
REM  PRINT  INSTRUCTION 
REM  ENTER  & SAVE  TEXT 
REM  SET  NEXT  COMMAND 
REM  EXIT 


1 


AU  (HGR  Sys-t  em 


P h-a  si?  a 


ATHSLOC 1 


SIS 


lass 

REM  ** 

7260 

REM  ** 

7264 

REM  ** 

Subroutine 

7568 

REM  ** 

Command 

iaia 

REM  ** 

Function 

7276 

REM  +* 

To  allow 

7280 

REM  ** 

Variables  1 

7284 

REM  ** 

R8^( ) > i 

7288 

REM  ** 

7292 

HEM  ■***■» 

HHHHHHHHHW- 

7296 

DEFFN  ' 

21b 

7300 

INI! (2D) 

| R9S( ) 

7304 

♦CIO  DASH  /005  (1 

7308 

PRINT 

"Enter 

7312 

PRINT 

"Touch 

7316 

GOSUB  ' 

106  (00004 

7320 

Nl«  - 

7324 

RETURN 

a i 5 


DATE 


micro  cmnd  bufr  ! R9*<>  > scratch  bufr 


the  Date  *;HEX(ODOA)  : 

'ESCAPE'  key  when  Completed.": 


REM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
REM  PRINT  INSTRUCTION 
REM  PRINT  INSTRUCTION 
REM  ENTER  & SAVE  TEXT 
REM  SET  NEXT  COMMAND 
REM  EXIT 


o 


223 


P hs  El  o 


ATH2LOC 1 


a i fe 


AUTHOR  Sys-tem: 


7328 

7332 

7336 

7340 

7344 

7348 

7352 

7356 

7360 

7364 

7368 

7372 

7376 

7380 

7384 

7388 

7392 

7396. 

7400 


REM  ** 

REM  *•* 

REM  ** 

REM  ** 

REM  ** 

REM  ** 
REM  ♦* 

REM  ** 

REM  *•* 

REM  ** 

REM 
DEFFN 
IN1T (2D) 
♦CIO  DASH 
PRINT 
PRINT 
GUSUB 


ORGANIZATION 


Subroutine 
C omman d > 

Function  > 

To  allow  the  entry  of  the  Name  of  the 
Organi zation. 

Variables  > 

R8$()  > micro  cmnd  bufr  ! R9*()  > scratch  bufr 


2 1 6 


216 


R9*<  ) 

/005  <R8*(2),R8*<9>)  R9*<)<1,63> 
"Enter  the  Name  of  the  Organization. 
“Touch  'ESCAPE'  key  when  Completed." 
106.  (00005,1) 

Nl*  = "TRAINING" 


RETURN 


REM  ENTRY 

REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
' ; HEX (ODOA ) 

REM  PRINT  INSTRUCTION 
REM  ENTER  & SAVE  TEXT 
REM  SET  NEXT  COMMAND 
REM  EXIT 


( 


I 

I 


o 


O 


/M_i  r MOR 

Sy  &-t  cm  S 

P s D £2  — 

ATH3L.OG  1 — 

7404 

7408 

7412 

RfcM  ** 
REM  ** 
REJ*t  *♦ 

(#■######  tt # JHMHMMMMMMUI 

Subroutine  4HH 

7416 

REM  *■* 

Command  > LIST 

7420 

REM  ** 

Function  > 

7424 

7428 

7432 

REM  ** 
REM  *♦ 

To  Load  List 

processing  Routine. 

M U M M M M 

REM  *** 
DEFEN  ' 

217 

P ■ ■ H H ■ 

: REM  ENTRY 

7436. 

7440 

GOSUB  ' 

003 

: REM  LOAD  LISTER 

7444 

RETURN 

I REM  EXIT 

2 i 7 


O 


225 


6168  - 6100 
6172  - 6100 

6176  - 6100 

6180  - 6100 
6184  - 6100 

6900  - 6984 

6908  - 6944  6948  695c!  6960  6'96.4  6968  6972  6976  6980 

6944  - 6920 

6948  - 6920 

6952  - 6920 

6956  - 6920 

6964  - 6920 

6968  - 6920 

6972  - 6920 

6976  - 6920 

6980  - 6920 

6984  - 6920 

6992  - 6936 


v- 

4> 


AU'I  HOR  Sys-t  e-m 


Phase  3 


ATHaLOC i 


V 


DO  - 7100 

LI  - 687S  6300 

La  - 6.87a  6904 

L3  - 687a 

Ml*  - 6868  6876 

Ma*  - 6868  6880 

M3*  - 6868  6884 

M4*  - 6868  6888 

Nl*  - ea60  633a  &408  6484  6560  663a  6704  6780  7176  7848  7380  7396 

N3*  - 6898 

04*  < - 6896 

R0  - 6048  6078  6100  6908  6930 

R8* ( - 6844  6316  6398  6468  6b44  6616  6688  6764  7160  7838  7304  7380 

K9*(  - 6840  6844  6318  6316  6388  6398  6464  6468  6540  6b44  6618  6616  6684  6688 

6760  6764  7156  7160  7388  7833  7300  7304  7376  7380 


O i 


mamtm 


AUTHOR  System:  Phase  5 — ATHaLOGl  — 

0000  DEFFN'  0 

0001  DEFFN'  1 

0002  DEFFN'  2 

0003  DEFFN'  3 

- 7440 

????  DEFFN'  101 

- 6056  7088 
????  DEFFN'  105 

- €.048 

????  DEFFN'  106 

- £256  6328  6404  6480  6556  6628  6700  6776  7172  7244  7316  7332 
6236  DEFFN'  201 

- 6120 

6308  DEFFN'  202 

- 6140 

6384  DEFFN'  203 

- 6144 

6460  DEFFN'  204 

- 6148 

6536  DEFFN'  205 

- 6164 

6608  DEFFN'  206 

- 6152 

6680  DEFFN'  207 

- 6156 

6756  DEFFN'  208 

- 6160 

6864  DEFFN'  203 
- 6168 

7032  DEFFN'  211 

- 6172  6184 
7072  DEFFN'  212 

- 6180 

7152  DEFFN'  213 

- 6124 

7224  DEFFN'  214 

- 6128 

7236  DEFFN'  215 

- 6132 

7372  DEFFN'  216 

- 6136 

7436  DEFFN'  217 

- 6176 

????  DEFFN'  218 

- 6344 

????  DEFFN'  213 

- 6348 

????  DEFFN'  220 

- 6352 

????  DEFFN'  221 

- 6356 

????  DEFFN'  222 

- 6360 

????  DEFFN'  223 

- 6364 

????  DEFFN'  224 

_ 63E8 

????  DEFFN'  225 


' MAP 


/ 


TAEG  Report  No.  59 

4.4.2  ATH2L0G2 

This  section  of  the  'ATH2L0GC'  program  contains  subroutines 
218  to  230. 

The  remainder  of  this  section  presents  the  'ATH2L0G2'  program 
listing  and  refe  nee  maps. 


ALTl  HQR  S/stcm 


p ha  & c 


ATHSLOta 


X 


8000 
8004 
8008 
8012 
80 1€. 
8020 
8024 
8028 
8032 
8036 
8040 
8044 
8048 
8052 
8056 
8060 
8064 
8068 
8072 
8076 
8080 
8084 
8088 
8032 


X#if  Program  > AUTHOR/2  < ATH2L0G2 ) Version  > 2.0  2200  7/VP  780320 
RtM  Function  > 

REM  **  To  allow  -the  entry  of  the  Set  Number.. 

REM  *•* 


DtFFN  ' 218 
PRINT  HEX  <03 ) 

GOSUB  ' 101  (14,1,0,0) 

1N1T (20)  R9*<> 

*CI0  DASH  /005  <R8*<2) ,R8*<9> >R9*< ><1,63> 

GOSUB  ' 101  <1, 1,0,0) 

PRINT  "Enter  Set  Number  > " 

GOSUB  ' 104  (3, "N*,M1*) 

LI  * R2 

CONVERT  R2  TO  R2«,  (It##) 

GOSUB  ' 101  (15,1,0,0) 

PRINT  “Set  # > ’ ;S7R(R2*, 1,3) 

IF  STR(R2*,1,3)  » Ml*  THEN  8080 

M2*  = "0001“ 

Ml*  « R2* 

N2*  - "SBLNUMBER" 

Q4*(3)  * HEX (20) 

RETURN 


RtM  ENTRY 

REM  CLR  CONSOL  SCRLN 
RtM  POSITION  CUSOR 
REM  CREATE  DASH  LINE 
RtM  PRINT  LINE 
REM  POSH  ION  CUSUR 
REM  PRINT  PROMPT 
RtM  INPUT  SET  NUMBR 
REM  SAVE  SET  NUMBR 
REM  CONV  SET  NLWBR 
REM  POSITION  CUSOR 
REM  PRINT  SET  NUMBR 
RtM  SAVE  SET  NUMBR 
REM  RESET  SSL  NUMBR 
REM  SAVE  NEW  SET  it 
REM  SET  NEXT  COMMAND 
REM  CLR  ITEM  FLC-NEXT 
REM  EXIT 


AUTHOR  System:  Phase 


— ATHSLOCS  - a 


8096  REM  ** 
8100  REM  ** 
8104  REM  ** 
8108  REM  ** 
sue  REM  ** 
8116  REM  ** 
8120  REM  ■*** 
8124  UtJFFN  ' 
8128  COSUB  ' 
8132  PRINT 
8136  GOSUB  ' 
8140 

3144  CONVERT 
8148  GOSUB  ' 
8152  PRINT 
8156 

8160  RETURN 


Function  > 

To  allow  the  entry  of  the  Symbol  number. 


219 

101  (1,1, 1,0) 

“Enter  Symbol  Number  > 
104  (4, “N“ , M2*) 

L2  - R2 

R2  TO  M2*,  (####> 

101  (16,1,0,0) 

"Sbl  # > “ ;M2* 

N2*  - "SETNAME" 


2 1 9 


HEM  ENTRY 
REM  PCJSI  I ION  CUSUH 
REM  PRINT  PROMPT 
REM  INPUT  SBL  NUMBf! 
REM  SAVE  SBL  NUMBR 
REM  CONV  SBL  NUMBR 
RfcM  POSITION  CUSUR 
REM  PRINT  SBL  NUMBR 
REM  SET  NEXT  COMMAND 
REM  EXIT 


I 


7* 


AUTHOR 

8164 

REM  ** 

8168 

REM  ** 

8172 

REM  ** 

8176 

REM  ** 

8180 

REM  ** 

8184 

REM  ** 

8188 

REM  **- 

8192 

OEFFN 

8196 

COSUB 

8200 

PRINT 

8204 

COSUB 

8208 

IF 

8212 

8216 

8220 

COSUB 

8224 

PRINT 

8228 

8232 

RETURN 

S/stBin:  Phase  3 — ATH3I — QC3 


Subroutine 
Function  > 

To  allow  the  entry  of  the  Set  Name. 


2 2 o 


220 

101  <1,1, 1,0) 

"Enter  Set  Name  > " 

104  <40, "A", M3*) 

STR<R2*, 1 , 12)  <>  "Symbol  Set  #" 
S1R<R2*, 13,3)  « Ml* 

M3*  » R2* 

101  <1S, 15,0,0) 

M3* 

N2*  * "REFERENCE  NUMBER" 


THEN  8216: 


REM  ENTRY 
REM  POSITION  CUSCJH 
REM  PRINT  PROMPT 
REM  INPUT  SET  NAME 
REM  NOT  DEFAULT  NAME 
REM  1NSKT  SET  NUMB  Pi 
REM  SAVE  SET  NAME 
REM  POSITION  CUSOR 
REM  PRINT  SET  NAME 
REM  SET  NEXT  COMMAND 
REM  EXIT 


o 


233 


P ha sp  3 


ATHSLOCa 


1 


AUTHOR  tiystpin: 


8236.  REM  *■* 

8240  REM  ** 

8244  REM  **  Subroutine 


2 2 1 


8248 

8252 

8256 

8260 

8264 

8268 

8272 

8276 

8280 

8284 

8288 

8292 

8296 

8300 

8304 

8308 

8312 

8316 


REM  **  Function  > 

REM  **  To  construct  the  symbol  reference  number 
REM  ** 


hem  *+*< 

mhhi-j 

I 

\ 

: 

DEFFN  ' 

221 

: 

GOSUB  ' 

101 

(1, 1, 1,0) 

PRINT 

“Enter  Craphic  Code  (1-Alpha,  2-Graphic) 

> 

GOSUB  ' 

104 

(1,"N',M4*> 

IF 

R2  < 3 THEN  8288 

R2  « 1 

CONVERT 

R2  TO  M4*,  (#) 

GOSUB  ' 

101 

(16, 15,0,0) 

a 

PRINT 

"Graphic  Code  > ";M4* 

• 

a 

GOSUB  ' 

101 

(16,39,0,0) 

PRINTUSING 

8308,  "#“,M4*,M1*,M2*,"00"; 

XRef  # 

> * 

WW7T  WTTTTTT  tTtt 

N2*  * "SYMBOL" 

; 

RETURN 

: 

REM  ENTRY 

REM  POSITION  CUSOR 

a 

REM  INPUT  S8L  TYPE 
REM  VALID  INPUT 
REM  SET  TO  ALPHA  TYPE 
REM  CONV  TO  DISPLAY 
REM  POSITION  CUSOR 
REM  PRINT  VALUE 
REM  POSITION  CUSOR 
REM  PRINT  REF  NUMBR 

REM  SET  NEXT  COMMAND 
REM  EXIT 


234 


AUTHOR  SystDm 


P ha  S I? 


ATHSLOGa 


8412  REM  ** 

8416  REM  ** 

8420  REM  **  Subroutine 
8424  REM  **  Function  > 
8428  RLM  **  To  allow  t 
8432  RfcM  ** 

8440  DEFFN  ' 223 
8444  REM  *•* 

8448  REM  ** 

8482  REM  ** 

8456  ON  VAL<M4*>-48  GOTO 
8460  REM  ** 

8464  REM  ** 


Function  > 

To  allow  the  entry  of  the  Symbol. 


2 2 3 


REM  ENTRY 


! ALPHANUMERIC 


GRAPHIC 


: REM  BRANCH 


8468 

GOSUB  ' 

101 

<1,1, 1,0) 

8472 

PRINT 

"Enter  Symbol  > * 

8476 

COSUB  ' 

104 

<15, "A", "symbol" > 

8480 

GOSUB  ' 

101 

(15,3-3,1,0) 

8484 

PRINT 

•Symbol  > ";R24 

8488 

INIX20) 

Rl*( ) 

8492 

INI! (20) 

R9*< ) 

8496. 

STR(R9*(1), 1, 15)  ~ R2* 

8500 

STR(R9*< 1 ), 16, 1 ) - HEX (FF) 

8504 

MAT  COPY 

R9*(X1,16>  TO  Rl*<  XI, 16> 

8508 

COSUB  ' 

129 

(FN1 (2) , 1 ) 

8512 

N2*  «■  "DEFFINITION" 

8516 

GOTO 

8568 

8520 

REM  ** 

8524 

COSUB  ' 

101 

<1,1, 1,0) 

8528 

PRINT 

"Enter  Craphic  Symbol  > " 

8532 

GOSUB  ' 

101 

(3, 10,0,0) 

8536 

PRINT 

"Graphics  Option  Unavaiabli 

8540 

GOSUB  ' 

101 

(4, 10,0,0) 

8544 

PRINT 

"In  This  Version  of  AUTHOR 

8548 

*GIO  TONE 

/005  <R8*(4),K8*(9) ) 

8552 

*CIO  TONE 

/005  <R8*<4),R8*<9) ) 

8556 

COSUB  ' 

101 

(3, 10,2,0) 

8560 

GOTO 

8468 

8564 

REM  *■* 

8568 

RETURN 

REM  POSITION  CUSUR 
REM  PRINT  PROMPT 
REM  INPUT  SYMBOL 
REM  POSITION  CUSUR 
REM  PRINT  SYMBOL 
REM  CLR  STORAGE  BUFR 
REM  CLR  TEMP  BUFR 
REM  LOAD  SYMBOL. 

REM  LOAD  EDI 
REM  LOAD  INTO  BUFR 
REM  STORE  ON  DISK 
REM  SET  NEXT  COMMAND 
REM  BRANCH  TO  EXIT 

REM  POSITION  CUSOH 
REM  PRINT  PROMPl 
REM  POSITION  CUSOR 
REM  PRINT  MSG 
REM  POSITION  CUSUR 
REM  PRINT  MSC 
REM  PAUSE  TONE 
REM  PAUSL  TONE 
REM  ERASE  MESSAGE 
REM  BRNCH  TO  ALPHA 

REM  EXIT 


AUTHOR  System:  Phase 


— ATHaLQG2  — 


a a 


8b72  HEM  ** 
8576  REM  ** 
8580  REM  ** 
8584  HEM  ** 

8 £88  HEM  ** 
8592  REM  **** 
8596  DEFFN  ' 
8600  GOSUB  ' 
8604  IN1T  (20) 


Function  > 

To  allow  the  entry  of  the  Definition. 


DEFFN  ' 22A 

GOSUB  ' 101  (1A, 1,0,0) 

IN1T (2D)  R9*<) 

STR(R9*< 1 ),£, 19)**  ENTER  DEFF1NJ TICJN" 
AGIO  PRINT  /005  <R8A<2> ,R8*<9> > R9*<><1,63> 
GOSUB  ' 106  (FN1 < 3) , 1 ) 

GOSUB  ' 101  < 1A , 1,0,0) 

INIT  (20)  R9AO 

AGIO  PHINT  /005  <R8A<2) ,R8*<9> > R9*<)<1,63> 

N2*  = "MNEMONIC* 

RETURN 


2 2 4 


REM  ENTRY 
REM  POSITION  CUSUR 
REM  SET  TEMP  BUFR 
REM  STOR  PROMPT 
REM  PRINT  PROMPT 
REM  ENTER  & SAVE  TEXT 
REM  POSITION  CUSUR 
REM  SET  TEMP  BUFR 
REM  PRINT  PROMPT  LINE 
REM  SET  NEXT  COMMAND 
REM  EXIT 


AUTHOR  System:  Phasi? 


s — ATHaLOca  — a a 


8640  REM  ** 
8644  REM  *+ 
8648  REM  *■* 


8653 

8656 

8660 

8664 

8668 

8675 

8676 
8680 


REM  ** 
REM  ** 
HEM 
DEFFN 
COSUB  ' 
INI!  (at)) 


Subroutine 
Function  > 

To  allow  the  entry  of  the  Mnemonic. 


aas 

101 


♦GIO  PRINT 
8684  REM  ** 

8688  REM  ** 

869 a REM  ** 

8696  ON  VAL(M4*>-48  GOTO 
8700  REM  ** 


(14,1,0,0) 

R9*(  ) 

STR(R9«<l),a, 19)-"  ENTER  MNEMONIC 
/005  ( R8* < 3 ) , R8* ( 9 ) ) R9*<)<1,63> 


ALPHANUMERIC 


GRAPHIC 


8708 


8736 


a a 5 


REM  ENTRY 
REM  POSITION  CUSCJR 
REM  SET  TEMP  BUFR 
REM  STOR  PROMPT 
REM  PRINT  PROMPT 


REM  BRANCH 


8704  REM  ** 

8708  GOSUB  ' 106  (FNI(4),1) 

8713  GOSUB  ' 101  (14,1,0,0) 

8716  INIT(at))  R9*() 

8730  *G1U  PRINT  /005  (R8*(5) , R8*(9) ) R9*()<1,63> 
8734  N3*  = “SIMILAR  SYMBOLS" 

8738  GOTO  8773 

8733  REM  *■* 

8736  GOSUB  ' 101  (3,10,1,0) 

8740  PRINT  “Graphics  Option  Unavaiable* 

8744  GOSUB  ' 101  (4,10,0,0) 

8748  PRINT  “In  This  Version  of  AUTHOR" 

8753  *GIO  TUNE  /005  (R8*(4) ,H8*(9) ) 

8756  *GIO  TUNE  /0O5  (R8*(4) ,R8«(9) ) 

8760  COSUB  ' 101  (3,10,3,0) 

8764  GO! O 8708 


REM  ENTER  & SAVE  TEXT 
REM  POSITION  C.USOR 
REM  SET  TEMP  BUFR 
REM  PRINT  PROMPT  LINE 
REM  SET  NEXT  COMMAND 
REM  BRANCH  TO  EXIT 

REM  POSITION  CUSCJR 
REM  PRINT  MSG 
REM  POSITION  CUSOR 
REM  PRINT  MSG 
REM  PAUSE  TONE 
REM  PAUSE  TONE 
REM  ERASE  MESSAGE 
REM  ENTR  ALPHA  TYPE 


8768  REM  ** 

8773  RETURN  : REM  EXIT 
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AU  I HOR  S/stem:  Pha&o  3 — ATHaLaCc!  -326. 


8776. 

8780 

8784 

8788 

8792 

8796- 

8800 

8804 

8808 

8812 

8816 

8820 

8824 

8828 

8892 

8896. 

8840 

8844 

8848 

8852 

8856. 

8860 

8864 

8868 

8872 

8876 

8880 

8884 

8888 

8892 

8896 

8900 

8904 

8908 

8912 

8916 

8920 

8924 

8928 


HEM  ** 
RtM  ** 
RtM  ** 
RtM  *-* 
RtM  *■* 
REM  « 
UEFFN 
GOSUB 
PRINT 
GOSUB 
PRINT 


GOSUB  ' 
PRINT 
GOSUB  ' 
IF 

GOSUB  ' 
CONVERT 
PRINT 


MAT  COPY 


Function  > 

To  allow  the  entry  of  similar  symbols. 


226  : REM  I 

101  (13,1,0,0)  : RtM  I 

“Touch  'ESCAPE'  to  End  Entry  of  8imilar  Symbols 
101  (1,1,12,0)  : REM  I 

“Enter  Similar  Symbols  > “ : REM  I 

K1  = 1 : REM 

K2  - 30  : RtM 

K7  - 1 : REM 

K6  = 1 : RtM 

101  (K1,K2, 1,0)  : RtM 

K6; “ - “ ; : REM 

104  (4, “N“ , “9999“ ) : REM 

R2  = 9999  THEN  8904  : RtM 

101  (K1,K2,0,0>  : REM 

R2  TO  R2*,  (####>  : REM 

K&* " — " • 

STR ( R9* ( 1 ) , 1 , 3 ) = Ml*  : REM 

STR(R9*( 1 ) , 4, 4)  = R2*  : REM 

/ R9* ( ) < 1 , 7>  TO  R1*(XK7,7>  : REM 

K7  - K7  + 7 : REM 

K1  s Kl  ♦ 1 : REM 

K6  = K6  ♦ 1 : REM 


GOTO 
REM  *+ 


K6  = K6  ♦ 
Kl  <>  13 
Kl  = 1 

8836 


THEN  8896 


MAT  CORY 
GOSUB  ' 

RETURN 


STR(R9*(1), 1,3)  * Ml* 

STR ( R9*  ( 1 ) , 4 , 4 ) * R2* 

STR(R9*( 1 ) ,8, 1 ) = HEX(FF) 
R9*()<1,8>  TO  Hl*( ><K7,2016-K7+1> 
129  (FNI (5) , 1 ) 

N2*  = “NEXT 


2 2 6 


ENTRY 

POSITION  CUSOR 

5.“ 

POSIT  ION  CUSUR 
PRINT  PROMPT 
IN1T  ROW  INDX 
IN1T  COL  INDX 
IN1T  BUFR  INDX 
IN1T  ITEM  INDX 
POSIT  ION  CUSOR 
PRINT  PROMPT 
INPUT  SSL  NUMBR 
END  OF  DATA 
PROCESS  INPUT 
CONV  TO  DISPLY 

LOAD  SET  NUMBR 
LOAD  SSL  NUMBR 
LOAD  INTO  BUFR 
I NCR  BUFR  INDX 
I NCR  ROW  INDX 
I NCR  ITEM  INDX 
N01  BOTOM  OR  PAC 
SET  ROW  INDX 
INPUT  NXT  SBL 

LOAD  SET  NUMBR 
LOAD  EOI  FLAC 
LOAD  EOI  CHAR 
LOAD  BUFFR 
SAVE  ON  DISK 
SET  NEXT  COMMAND 
EXIT 


AUTHOR  Sy  s-t  E>m 


F”  ha  se  2 


ATnaL-aca 


a s 7 


8935  REM  ** 

8936  REM  ** 
8940  REM  ** 


Subroutine 


5 5 7 


REM  **  Function  > 


8948  REM  ** 

8955  REM  **■* 

8956  UEFFN  ' 


To  Increment  symbol  counter. 


REM  ENTRY 


8960 

L5 

= LS  + 1 

8-364 

CONVERT 

L5  TO 

M5*,  <####) 

8968 

LI 

=■  0 

8975 

L5 

= 0 

8976 

N5« 

= "SETNUMBER 

8980 

1N1T  <50) 

04*  ( ) 

8984 

8988 

RETURN 

Q4*<9) 

= HEX (5A) 

REM  I NCR  SBL  # INDX 
REM  CONV  TO  DrSHLY 
REM  RESET  INDEX'  x 
REM  RESET  INDEX 
REM  SET  NEXT  COMMAND. 
REM  CLR  ITEM  FLG  BUFR 
REM  SET  ITEM  FLG-NEXT 
REM  EXIT 


AUTHOR  System 


P ha  is- 1?  2 


£3  S 


8992  RtM  ** 

8996  RtM  **  mmwmuhiikh  * * *****  5 2 8 

9004  RtM  **  Abstract  > 

9008  RtM  **  To  delete  all  items  for  currently  selected 
9012  RtM  **  symbol  id. 

9016  RtM  **  Variables  > 

9020  REM  **  LI  > symbol  set  # indx  ! L2  > symbol  numbr  indx 
9024  REM  ** 


9028 

REM  tHHHhhhhh 

9032 

DEFFN  ' 228 

REM 

ENTRY 

•3036 

IF 

L1*L2  <>  0 

THEN  9052  : 

RtM 

ID'S  ARE  SET 

9040 

GOSUB  ' 218 

REM 

SET  SBL  SET  # 

9044 

GOSUB  ' 219 

REM 

SET  SBL  NUMBR 

9048 

REM  ** 

9062 

GOSUB  ' 101 

<16,15,2,0) 

• 

REM 

POSITION  CUSOR 

3056 

PRINTUSING 

9108,  *>  * 

a 

a 

REM 

PRINT  HEADING 

9060 

FOR 

L9  = 0 TO  5 

a 

a 

RtM 

BEGIN  DLL  LOOP 

9064 

GOSUB  'lOl 

( 15,  50-*-<L9*2>  ,0,0) 

a 

RtM 

POSH  ION  CUSOR 

9068 

PRINTUSING 

9112,  L9*l 

REM 

PRINT  FLAGS 

9072 

*GIO  TUNE 

/005  < R8*  < 7 ) , R8*  < 9 ) ) 

REM 

SOUND  TONE 

9076 

GOSUB  '129 

(FN1 <L9) ,3) 

REM 

DELETE  ITEM 

9080 

NEXT 

L9 

REM 

CONT  DEL  LOOP 

3084 

RtM  ** 

9088 

N2«  = “SETNUMBER" 

5 

RtM 

SET  NEXT  COMMAND 

90-32 

1NIT  <20) 

Q4*<  ) 

2 

RtM 

CLR  ITEM  FL.G  BUFR 

'3096  * RtM  ** 

9100 

REM  ** 

OUTPUT  I MACE  FORMATS 

9104 

REM  ** 

9108 

X 

DELETED  SYMBOL  HEM  #it 

9112 

zm 

9116 

RtM  ** 

9120 

RtTURN 

2 

REM 

EXIT 

3 3 0 


AU'l  HQR  S y & t E-m  : Phase 


ATHauOGa  — 


9124 
9128 
9132 
91 3€. 
9140 
9144 
9148 
9152 
9156 
9160 
9164 


REM  ** 
RtM  ** 
REM  ** 
REM  ** 
REM  *■* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 


Subroutine 
Abstract  > 

To  display  menu  for  symbol 
Variables  > 

G4*()  > item  memory  flags 
RO  > return  item  value 
R2<  > input  return  value 


2 3 0 


description  input 

! Q5t()  > item  key  buffer 
! R2*()  > srch  return  bufr 


9168 

DEFFN  ' 230 

(RO) 

REM 

ENTRY 

9172 

COSUB  ' 101 

(1,1,13,0) 

: REM 

C.LR  CRT  SCREEN 

9176 

SELECT 

PRINT  005 

: RF-M 

SEL  CONSOLE  DEV 

9180 

PR 1NTUSINC 

9308,  * “ 

: REM 

PRINT  MENU 

9184 

PRINTUSING 

9312,  * “ 

9188 

PRINTUSING 

9316,  G4*(l),  G4*(6) 

9192 

PR INTUS1NC 

9320,  G4*(2>,  G4*(7> 

9136 

PRINTUSING 

9324,  G4*(3),  G4$<8) 

9200 

PRINTUSING 

9328,  G4*<4),  G4*(9> 

9204 

PRINTUSING 

9332,  G4*(5),  G4$(10) 

9208 

PRINTUSING 

9336,  * “ 

9212 

SELECT 

PRINT  405 

REM 

SEL  CONSOLE  DEV 

9216 

REM  ** 

9220 

GUSUB  ' 101 

(10,1,0,0) 

REM 

POSI'I  ION  CUSOK 

9224 

PRINT 

“Enter  Command  > " 

REM 

PRINT  INSTRUCTN 

9228 

COSUB  ' 104 

(15, “A",N2*> 

REM 

INPUT  INSTRUCTN 

•9232 

RO  = LEN(R2*> 

REM 

CMPUT  CMD  LEN 

9236 

IP 

RO  <=  6 

THEN 

9244 

REM 

W1THEN  RANGE 

9240 

RO  -•  6 

REM 

SET  TD  MAX  LEN 

9244 

AND 

(STR(R2«, 1 , RO ) , DP  ) 

REM 

MASK  OUT  LWR  CASE 

9248 

MAT  SEARCH 

Q5*( ) , “STR(R2*, 1,R0)  TO 

R2*( ) STEP  6 

REM 

SRCH  ID  TABLE 

9252 

IP 

R2*(2)  <>  HEX(OOOO) 

THEN 

9260 

REM 

INVALID  COMMAND 

9256 

IF 

R2*(l)  <>  HEX (OOOO) 

THEN 

9284 

REM 

KEY  IS  FOUND 

9260 

COSUB  ' 101 

(10,38,0,0) 

REM 

POSITION  CUSOR 

926.4 

PRINT 

"RE-ENTER* 

REM 

PRINT  ERR  MSG 

926.8 

♦CIO  TONE 

/0O5  (R8*(4),R8*(9) ) 

REM 

PAUSE  TONE 

9272 

GOSLIB  ' 101 

(10,38, 1,0) 

REM 

ERASE  ERR  MSG 

9276 

GOTO 

9220 

REM 

RE-ENTER  CMMND 

9280 

REM  ** 

9284 

RO  = INT(FNR(VAL(R2*(l)))/6)  + 

1 

REM 

CMPUT  ITEM  INDX 

9288 

Q4S ( RO  > = HEX (2A) 

REM 

SET  MENU  FLAG 

9232 

GOSUB  ' 101 

(1, 1,12,0) 

REM 

ERASE  MENU 

9236. 

REM  ** 

9300 

REM  ** 

OUTPUT  IMA.CE  FORMATS 

9304 

REM  ++ 

9308 

X it 

Command  Summary 

9312 

X tt  



9316 

9320 

9324 

9328 

9332 

9336 

9340 

9344 


X 

X 

X 

X 

X 

X 

REM  ** 
RETURN 


# SETNUMBER 

# SBLNUMBER 

# SETNAME 

# REFERENCE  NUMBER 

# SYMBOL 


# DEFINITION 

# MNEMONIC 

# SIMILAR  SYMBOLS 

# NEXT 

# DELETE 

# EXIT 


REM  EXIT 
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AU  I HQR  Sys-t  em 


Phase  a 


ATHSL-OGa 


# MAP 


8080 

8078 

8216. 

- 

8508 

8288 

- 

8580 

8308 

- 

8304 

8468 

- 

8456 

o 

00 

8524 

“ 

8456 

8568 

- 

8516 

8708 

- 

8696 

8764 

8736 

8696 

8775 

- 

8758 

8836 

8896 

8896 

- 

8888 

8904 

- 

8848 

■9055 

- 

9036. 

9108 

- 

9056 

9118 

- 

9068 

9550 

- 

9576 

9544 

- 

9536 

9560 

- 

9558 

9584 

- 

9556 

9308 

- 

9180 

9315 

- 

9184 

9316 

- 

9188 

9350 

“ 

9198 

9354 

- 

9196 

9358 

- 

9500 

9335 

- 

9504 

9336 

- 

9508 
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AU  l HQR  Sy  s-tem 


P hl-^31  E-l?  22 


ATHaLaca 


V MAP 


K 1 

- 

8820 

8836. 

8852 

8880 

8888 

88-32 

K2 

- 

8824 

8836. 

8852 

K6 

- 

8832 

8840 

8860 

8884 

K7 

- 

8828 

8872 

8876 

8916 

LI 

- 

805€. 

8968 

3036 

L2 

- 

81  AO 

8960 

8964 

8972 

9036 

L9 

- 

9060 

906A 

9068 

9076 

9080 

Ml* 

- 

8052 

8072 

8080 

8212 

8304 

836.4 

886A 

8-304 

M2* 

- 

8076 

8136 

81  AA 

8152 

8304 

836.8 

8964 

M3* 

- 

8204 

8216 

8224 

8392 

M4* 

- 

8276 

8288 

8296 

8 30 A 

8360 

8456 

8696 

N2* 

- 

8084 

8156 

8228 

8312 

8512 

8632 

S72A 

8924 

8976 

9088 

9228 

Q4*< 

- 

8088 

8980 

8984 

9092 

9188 

9192 

9196 

9200 

9204 

9288 

Q5*( 

- 

92  A 8 

RO 

- 

9168 

9232 

9236. 

9240 

9244 

9248 

9284 

9288 

R 1*  ( 

- 

8352 

8376 

8384 

8400 

8488 

8504 

8872 

8-316 

R2 

- 

8056 

8060 

8140 

8144 

8280 

8284 

8288 

8848 

8856 

R2* 

- 

806.0 

806.8 

8072 

8080 

8208 

8212 

8216 

84  8A 

8496 

8856 

8860 

8868 

8908 

9232 

92  AA 

9248 

R2*< 

- 

9248 

9252 

9256 

9284 

R8*( 

- 

8040 

8548 

8552 

8612 

8628 

86.80 

8720 

8752 

8756 

9072 

9268 

R9*< 

- 

8036 

8040 

8356. 

8360 

8364 

836.8 

8372 

8376 

8388 

8392 

8396. 

8400 

oo 

K 

8496 

8500 

8504 

8604 

8608 

8612 

8624 

8628 

8672 

8676 

8680 

8716 

8720 

8864 

8868 

8872 

8-304 

8908 

8912 

8916 

I 1 


AUTHOR  System:  Phasi? 


— ATHSLOG^ 


MAP 


m'j'j 


DEFFN'  101 

- 8032  8044  8064  8128  8148  8196  8220  8268  8292  8300  8468  8480 
8540  8556  8600  8620  8668  8712  8736  8744  8760  8804  8812  88 36 
9064  9172  9220  9260  9272  9292 


8524  8532 
8852  9052 


???? 

DEFFN' 

104 

- 8052  8136 

DEFFN' 

106 

- 8616  8708 

???? 

DEFFN' 

129 

- 8380  8404 

8024 

DEFFN' 

218 

- 9040 

8124 

DEFFN' 

219 

- 9044 

8192 

DEFFN' 

220 

8264 

DEFFN' 

22 1 

8348 

DEFFN' 

222 

8440 

DEFFN' 

223 

8596 

DEFFN' 

224 

8664 

DEFFN' 

225 

8800 

DEFFN' 

226 

8956 

DEFFN' 

227 

9032 

DEFFN' 

228 

9168 

DEFFN' 

230 

8204  8276  8476  8844  9228 


i 


o 
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4.5  ATH2LIST 

The  purpose  of  the  'ATH2LIST'  program  is  to  initialize  the  symbol 
table  so  that  the  listing  program  may  perform  a lookup  of  the 
symbol  information.  This  program  will  also  reposition  the  common 
table  pointer  to  allow  unnecessary  variables  to  be  cleared. 

The  remainder  of  this  section  presents  the  'ATH2LIST'  program 
listing  and  reference  maps. 


AUTHOR  Sy&te-m:  Phai 


— ATH2I — I ti'T  — CNTRL 


xm  Program  > AUTHOR/3  <ATH3LIST)  Version  > 3.0  3300  T/VP  7S0331 
REM  ** 

REM  •**  Overlay  ATH3LIST  will  begin  listing  procecures 

RbM  **  by  sorting  the  symbol  table  into  memory. 


REM  •** 

RbM  ** 

RbM  ** 
hem  »»»»»• 
DEFFN  ' 3 
COSUB  ' 3 
GOSUB  ' 3 
GOSUB  ' 3 
REM 

COM  CLEAR 
LOAD  DC  T 
RETURN 


04*  < ) 

#1,  “ ATH2LSTV- 


100,300 


REM  ENTRY 

RbM  INITIALIZE 

REM  LOAD  SBL  TBL 

REM  SURT  SBL  TBL 

REM  LOAD  NXT  LSI  PROC 

REM  CLR  COMMON  P01NTR 

REM  EXIT 


iim 


P ho  & D 


ATH2I I ST 


SOI 


i ! 


AUTHQH 

I960 

REM  ** 

1S64 

REM  ** 

1S6S 

REM  ■** 

1572 

HEM  ** 

1576 

REM  ** 

1580 

REM  ** 

1584 

REM  ** 

1588 

REM  ** 

1592 

REM  ** 

1596 

REM  ** 

1600 

REM  ** 

1604 

REM  *+ 

1608 

REM  ** 

1612 

REM  ** 

1616 

REM  ** 

1620 

REM  ** 

1624 

REM  *+ 

1628 

REM  ** 

1632 

REM  ** 

1636. 

REM 

1640 

UEFFN 

1644 

DIM 

1648 

DIM 

165c! 

UlM 

1656 

DEFFN  1 

1660 

UEFFN  1 

1664 

1N1T 

1668 

IN1T 

1672 

INIT 

16/6 

INIT 

1680 

INIT 

1684 

INIT 

1688 

INIT 

1692 

INIT 

1696 

COSUB 

1700 

PRINT 

1704 

RETURN 

3yst om r 


Subroutine 
Abstract  > 

To  define  and 
Variables  > 


0 1 


initialize  sort  tables. 


M*< ) 
C1*<  > 
C2S<  > 
S*<  ) 
L*<  ) 
Vl*<  ) 
V2*(  ) 
W*<  ) 
09*<  ) 
Q3*<  ) 
L(L) 
QO(  ) 


internal  merge  buffer 
symbol  set  memory  table 
symbol  number  memory  table 
sector  sort  buffer 
locator  buffer 
merge  vector  1 
merge  vector  2 
sort  work  buffer 
general  i/o  buffer 
symbol  table 

linear  to  subscript  conversion 

symbol  count  stack 


201 


L<  L ) = 
M(M)  = 


101 


M*<  10, 64 ) 4, S* <64 ) 4, W* <64)2 
L*<160)2,V1*<  11  )1,V2*<  10)2,  b'l  *<20)1 
C1*(10)1,C2*<  10>l,T*<l,64)4,bi*l 
INT(VAL<STR<L*<L>,2, 1) )/4)+l 
256*M  ♦ VAL(STR<M*<R8,R9),2,  1 > > 
<20)M*< ) 

(00)C1*( ) 

<0 0>C2*< ) 

( FF ) S* ( ) 

( 00 ) L* ( ) 

(01 >V1*< ) 

( 00 ) V2* ( ) 

(00)Q3*< ) 

(5,  10,9,0) 

•INITIALIZING  SYMBOL  TABLE  ..." 


REM  ENTRY 
REM  DEFINE  BUFRS 
REM  DEFINE  BUFRS 
REM  DEFINE  BUFRS 
REM  FUNCTION  L(L) 
REM  FUNCT ION  M(M) 
IN1T  MRG  BUFR 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


1N1T 

IN1T 

IN1T 


SET  CNTR 
SBL  CNTR 
SRT  BIJFR 
IN1T  LOCATOR 
IN1T  VECTOR  1 
IN1T  VECTOR  2 
IN1T  SBL  TBL 


REM  POSITION  CUSUR 
REM  PRNT  TITLE 
EXIT 


REM 


I 


AU1  HOFi 


lysti 


— ATH2LIST  —SO 


1708 

1712 

1716 

1720 

172'* 

1728 

1732 

1736 

1740 

1744 

1748 

1752 

1756 

1760 

1764 

1768 

1772 

1776 

1780 

1784 

1788 

1792 

1756 

1800 

1804 

1808 

1812 

1816 

1820 

1824 

1828 

1832 

1836. 

1840 

1844 

1848 

1852 

1856 

1860 

1864 

1868 

1872 

1876 


NEW 
REM 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN 


Subroutine 
Abstract  > 

To  Load  the 
index.  Each 
Variables  > 
05*0  > i/o 
M*( ) 


2 0 2 


Merge  buffer  from 
row  is  sorted. 


the  data  base 


R1 

R9 


buffer  ! 
> merge  buffer  ! 
indx  setr  adrs  ! 
scrtch  ards  rgstr! 


S*<  > 
L*< ) 
R2  > 
R8*  3 


> sort  buffer 

> locator  buffer 
subsetr  indx 

search  id 


*•* 


202 


101 


101 


101 


GOSUB 
PRINT 
GOSUB 
PRINT 
POR 
GOSUB 
PRINT 
GOSUB 
DATA  LOAD 
MAT  SEARCH 
FOR 
IF 
IF 


101 


GOTO 


CONVERT 

PRINT 

NEXT 

MAT  MOVE 

MAT  SORT 

MAT  MOVE 

INIT 

1N1T 

NEXT 

RETURN 


R8*  = HEX  < 03F2 ) 

(8, 10,0,0) 

"Load  Internal  Merge  Buffer 
<8,40,0,0) 

•Sector  Sub-Sector* 

R1  = 1 TO  10 
<9,42,0,0) 

R1 

<9,55,0,0) 

BA  T #2,  <R1 ,R9)T*< ) 

T*<>,  >=  R8*  TO  L*<>  STEP  4 
R2  = 1 TO  6b 
L* < R2 ) <>  HEX <0000) 

R2  <>  1 

V1*<R1)  = HEX<FF) 

R2  = 65 
1840 

BIN<STR<L*<R2),1,1)) 

B1N<STR  <L*<R2)  ,2,1)) 

R2  TO  R4«,  <##) 

R4«; HEX <0808) 

R2 

T*<>,  L*< 1 ) 

S«<  ) 

S*<)  , L*<1) 

<FF)S*<  > 

<00)L*< ) 

R1 


THEN 

THEN 


1832 

1824 


= 1 

« FNL<R2) 


TO 

TO 

TO 


S*<1  > 

W«<),  L«<) 
M*<R1,1) 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

SET  SRCH  ID 
POSITION  CUSUR 
PRNT  TITLE 
POSITION  CUSOR 
PRNT  COL  HEADS 
BEG  INDX  LOUP 
POSITION  CUSOR 
PRNT  SCTR  ADRS 
POSITION  CUSOR 
LOAD  INDX  SCTR 
SRCH  I/O  BUFR 
BEG  SUB INDX  LOOP 
END  OF  BUFR 
NOT  BEC  OF  ROW 
SET  TO  EMPTY  ROW 
SET  TO  END 
BRNCH  TO  NXT  LOOP 
CUNV  TO  SUBSCRPT 
CONV  TO  SUBSCRPT 
CONV  TO  DSPLY 
PRNT  SBSCTR  INDX 
CONT  SUB INDX  LOOP 
LOAD  SORT  BUFR 
SORT  BUFR 
LOAD  MERGE  BUFR 
INIT  SORT  BUFR 

LOCATOR  BUFR 
INDX  LOOP 


INIT 

CONT 

EXIT 


c 
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£2  0 3 


AU‘1 

1 

0 

I 

bystem:  F>ha 

rr„ 

e»  2 - ATHriLIS'l  — 

1880 

RLM 

•** 

1884 

HtM 

•** 

1888 

RLM 

•** 

Subroutine 

1892 

HtM 

*■* 

Abstract  > 

1896 

RtM 

** 

To  Sort  the  merge  buff 

er  creating  the  sorted 

1-900 

REM 

*•* 

symbol  table. 

1-904 

REM 

*"* 

Variables  > 

1908 

REM 

■** 

M*()  > merge  buffer 

Vl*()  > work  vectr  1 

1912 

HtM 

•#"* 

V2*()  > work  vectr  2 

L*()  > locator  buffer 

1916 

REM 

** 

K1  > symbol  tbl  indx 

R2  > symbol  tbl  indx 

1920 

RtM 

R3  > bufr  out  indx 

MS  > elements  merged 

1924 

RtM 

•** 

R4  > merge  end  flag 

R6  > sbl  id  tbl  indx 

1-928 

RtM 

2 0 3 


1932  HtM 


1936. 

DEFEN  ' 

203 

RtM 

ENTRY 

1940 

R1  * 1 

RtM 

SBL  TBL  ROW  INDX 

1944 

R2  = 1 

REM 

SBL  TBL  COL  INDX 

1948 

R3  = 1 

REM 

BUFR  OUT  INDX 

1952 

R6  = 0 

RtM 

SBL  ID  INDX 

1956 

GOSUB  ' 

101 

(8, 10,2,0) 

REM 

POSITION  CUSOR 

1960 

PRINT 

“Load  Symbol  Table  From  Merge  Buffer" 

REM 

PRNT  TITLE 

1964 

GOSUB  ' 

101 

(9,20,0,0) 

REM 

POSITION  CUSOR 

1-96.8 

PRINT 

“Symbol  >" 

RtM 

PRNT  TITLE 

1972 

GOSUB  ' 

101 

(10,30,0,0) 

REM 

POSITION  CUSOR 

1976 

PRINT 

“Set  Number  Item” 

REM 

PRNT  COL..  HEADS 

1980 

GOSUB  ' 

101 

(11,30,0,0) 

REM 

POSITION  CUSOR 

1984 

MAT  MERGE 

M*()  TO  Vl*(),  V2*<>,  L*() 

REM 

BEG  MERGE 

1988 

IF 

L*(l)  = HEX(OOOO) 

THEN 

2088 

HtM 

ELEMENTS  MERCED 

19-92 

R4  = VAL ( VI*  < 1 1 ) ) 

REM 

FETCH  MRC  FLAG 

1-996 

IP 

R4  = 0 

THEN 

2004 

RtM 

LOCATOR  FULL 

2000 

V1*(R4)  = HEX ( FF ) 

RtM 

MRC  ROW  EMPTY 

2004 

R5  = 160 

RtM 

ELEMENTS  TO  MOV 

2008 

MAI  MOVE 

M*()(3,2),  L* ( 1 ) , R5  TO  Q3*(R1, 

R2) 

REM 

LOAD  SBL  TBL 

2012 

RO*  = HEX (FFFF) 

REM 

SRCH  CHARACTER 

2016 

MAT  SEARCH 

Q3*( )<R3,900-R3+1>,=R0*T0 

R2*()STEP  2:  REM  SRCH  FOR  END 

2020 

IP 

R2*< 1 ) <>  HEX (OOOO) 

THEN 

2036 

RtM 

UNEVEN  LOAD 

2024 

IF 

R3  > 900 

THEN 

2088 

RtM 

BUFFER  FULL 

2028 

RO*  = HEX (OOOO) 

REM 

SET  SRCH  STRING 

2032 

GO  10 

2016 

REM 

BRANCH  TU  SRCH 

2036 

R5  = I NT ( (FNR (VAL(R2*( 1 ) ) ) 

-1 )/2) 

RtM 

CMPUT  END  POS 

2040 

R3  = R3  + R5*2 

RtM 

INCH  BUFOUT  INDX 

2044 

GOSUB  ' 

206. 

RtM 

INCH  SBL  CNTRS 

2048 

IP 

R3  > 8-99 

THEN 

2088 

RtM 

SORT  COMPLETE 

2052 

R1  = INT(  (R3-D/12)  ♦ 1 

REM 

INCH  ROW  INDX 

2056 

R2  = INT ( (R3  - (Rl-1 )*12)/2)  + 

1 

RtM 

I NCR  COL  INDX 

206.0 

00(1)  - VAL ( C 1 * ( 1 ) ) 

RtM 

STOK  # OF  SETS 

2064 

00(2)  = VAL(C2*( 1 ) ) 

RtM 

STOR  # OF  SOLS 

206.8 

GOSUB  ' 

101 

(13, 10,0,0) 

REM 

POSITION  CUSUR 

2072 

PRINT 

“Symbols  Sets  > “;QO(l);“ 

ff 

■ 

f 

REM 

PRNT  # OF  SETS 

2076 

PRINT 

“ Symbols  > “;Q0(2) 

REM 

PRNT  it  OF'  SBLS 

2080 

GOSUB  ' 

101 

(11,30,0,0) 

REM 

POSITION  CUSUR 

2084 

GOTO 

1984 

RtM 

CONT  MERGE 

2088 

RETURN 

REM 

EXIT 

250 


AUTHOR  Syst em 


P ha  s *» 


ATHSL I ST 


a o 


2092 

REM 

•*«* 

2096. 

REM 

*•* 

2100 

REM 

** 

2104 

REM 

*•* 

2108 

REM 

** 

2112 

REM 

■** 

2116 

REM 

** 

2120 

REM 

** 

2124 

REM 

2128 

REM 

•** 

2132 

REM 

** 

2136 

REM 

** 

2140 

REM 

** 

2144 

REM 

** 

2148 

REM 

*•* 

2152 

REM 

2156 

UEFFN 

2160 

IF 

2164 

FOR 

2168 

2172 

2176 

2180 

2184 

2188 

2192 

2196 

2200 

2204 

2208 

2212 

2216 

2220 

2224 

2228 

2232 

2236 

2240 

2244 

2248 

2252 

2256 

226.0 

2264 

2268 

2272 


Subroutine 
Abstract  > 

To  count  the  number  of  symbol  sets  and  number 
of  symbols. 

Variables  > 

R5  > # of  items  merged 
R8  > set  number 


2 0 6 


R7  > packed  ref  # 

Bl*  > temp  bit  patern 
C2*<)  > ent  buf  sbls 
L*< ) > locator  bufr 
R6  > sbl  id  tbl  indx 


RO  > sub-item  number 
R9  > symbl  number 
R2*  > scratch  bufr 
Cl*<  > > ent  buf  sets 
Bl*< ) > intrnl  mem  tbl 
M*<)  > merge  buffer 
G7*<)>  sbl  id  tbl 


206 


THEN  2272 


INI! 

CONVERT 

CONVERT 

CONVERT 

PRINT 

INIT 

PH  I NT 

MAT  COPY 

COSUB  ' 207 

IF 

MAT  COPY 


*TRAN 
MAT  COPY 
GOSUB  ' 207 
IF 

MAT  COPY 


NEXT 

RETURN 


R5  = O 
R4  = 1 TO  R5 

R8  * VAL<STR<L<<R4 >,  1, 1) ) 

R9  = VAL  < STR  < L* < R4  > , 2 , 1 ) ) 

R7  = FNM<VAL<M*<R8,R9> ) ) 

R8  = I NT  <R7/1000) 

R9  = INT  < <R7- <R8*1000) )/10) 

RO  = R7  - <R8*10<X)  ♦ R9*10) 

<20>R2* 

R8  TO  STR<R2*, 1,2),  <##) 

R9  TO  STR<R2*,8,2),  <##> 

RO  TO  S1R<R2*, 15,2),  <##) 

STR<K2*, 1, 16) 

< 08 ) R2* 

STR<H2*, 1, 16) 

Cl*< ) TO  Bl*< ) 

<B1*,B1*< 1 > ,R8) 

Bl*  <>  HEX < 00)  THEN  2244 

Bl*< ) TO  Cl*< ) 

BIN<C1*< 1 ) ) = VAL<C1*< 1 ) ) + 1 
<C2*<)<2,9>,  R4*< > <181 , 4> )00  R 
C2*< ) TO  Bl*< ) 

<B1*,B1*< 1 > ,R9> 

Bl*  <>  HEX <00 ) THEN  2268 

Bl*< ) TO  C2*< ) 

BIN<C2*< 1 > ) = VAL  < C2*  < 1 ) ) + 1 
R6  = R6  ♦ 1 
R4 


REM  ENTRY 
REM  MRG  COMPLETED 
REM  BEG  COUNT  LOOP 
REM  CMPUT  RClW  SBSCRPT 
REM  CMPUT  COL  SBSCRPT 
REM  FETCH  REF  # 

REM  CMPUT  SET  # 

REM  CMPUT  SBL  « 

REM  CMPUT  ITM  It 
REM  INIT  DSPLY  BUFR 
REM  CCINV  TO  DSPLY 
REM  CONV  TO  DSPL'r 
REM  CONV  TO  DSPLY 
REM  PRNT  DSPLY  BUFR 
REM  INIT  DSPLY  BUFR 
REM  PRNT  DSPLY  BUFR 
REM  SI  OR  MEM  TBL 
REM  CHECK  MEM  TBL 
REM  SET  COUNTED 
REM  SI  OR  MEM  TBL 
REM  I NCR  COUNT 
REM  ZERO  SBL  CNT 
REM  STOR  MEM  TBL 
REM  CHECK  MEM  TBL 
REM  SET  COUNTED 
REM  STOR  MEM  TBL 
REM  INCH  COUNT 
REM  I NCR  ID  INDX 
REM  CONT  COUNTING 
REM  EXIT 


F > ha s d 


ATHai.  i ti-r 


3 O -7 


AU  1 HQR  Syst  e-m  : 


ad 7&  RLM  ** 

aaao  hem  ** 
3384  hem  ■** 
aaas  hem  ** 
aasa  rem  ** 
aa-ae  rem  ** 

a 300  REM  ** 
3304  REM  ** 
3308  HEM  ** 
3313  REM  ** 
3316.  REM  *+ 
3330  REM  **■ 


3334 

DEFFN  ' 

30/ 

(B1*,B1*(1>,B3> 

REM 

ENTRY 

3338 

BO  = 1NT ( (B3-1 ) /8)  +■  3 

REM 

CMPUT  ELEMNT 

3333 

B4  = B3  - (BO-3) *8 

REM 

CMPUT  BIT  POS 

3336. 

GOSUB  ' 

308 

(B1«(B0),B4) 

REM 

MASK  BYTE 

3340 

IP 

Bl*  <>  HEX(OO) 

THEN  3356  : 

HEM 

BIT  WAS  ON 

3344 

GOSUB  ' 

309 

(Bl*(BO) ,B4> 

REM 

TURN  BIT  ON 

3348 

B1*(B0>  = Bl* 

REM 

SI  OR  NEW  BIT  PI  RN 

3353 

Bl*  = HEX (00) 

REM 

RESET  FLAG 

3356. 

RETURN 

a 

a 

REM 

EXIT 

Subroutine  » ■ mnnm »««» »»»»»»«»»»« munimimimiK *■■»■»»♦■»■»■»»♦«■«  £ o 7 
Abstract  > 

To  set  a bit  on  corsponding  to  the  item  number. 

If  bit  is  on  return  a zero  bit  patern. 

Variables  > 

Bl*  > temp  storage  byte  ! B3  > item  number 
Bl*(>  > memory  table  ! BO  > scratch  indx 

B4  > bit  position  ! 
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AU1  HCJR  Sys-t  em 


2360  REM  ** 

2364  HEM  ** 

2368  REM  **  Subroutine 

2372  HEM  **  Abstract  > 

2376  REM  **  To  mask  a given  bit  position. 

2380  HEM  **  Variables  > 

2384  REM  **  Bl*  > storage  byte  ! B4  > bit  position 
2388  REM  ** 

2396  OEFFN  ' 208  (B1*,B4)  : 

2400  REM  ** 

2404  REM  **  ! BIT  80  ! BIT  40  ! BIT  20  ! BIT  10  ! 

2408  REM  **  ! ! ! ! ! 

2412  ON  B4  GOTO  2428  , 2432  , 2436  , 2440  , 


REM  ENTRY 


REM  BRANCH 


2416  REM  ** 
2420  REM  ** 
2424  REM  ** 
2428  AND 
2432  AND 
2436  AND 
2440  AND 
2444  AND 
2448  AND 
2452  AND 
2456  AND 
2460  RETURN 


GOTO  2460 
GOTO  2460 
GOTO  2460 
GOTO  2460 
GOTO  2460 
GOTO  2460 
GOTO  2460 
GOTO  2460 


REM  MASK  BIT  8 
REM  MASK  BIT  7 
REM  MASK  BIT  6 
REM  MASK  BIT  5 
REM  MASK  BIT  4 
REM  MASK  BIT  3 
REM  MASK  BIT  2 
REM  MASK  BIT  1 
REM  EXIT 


(BIS, 80) 
(Bit, 40) 
(Bit, 20) 
(Bl*, 10) 
(Bl*,08) 
(Bit, 04) 
(Bit, 02) 
(Bit, 01) 


o 


AUTHOR  Systom:  Phaise 


— ATHai_  i ar  — 


2464 

2468 

2472 

2476 

2480 

2484 

2488 

2492 

2496 

2bOO 

2504 

2508 

2bl2 

2bl6 


RtM  ** 

RtM  ** 

RtM  ** 

RtM  ** 

RtM  ** 

RtM  •** 

RtM  ** 

REM  ** 

RtM 
UtFFN 
REM  ** 

REM  ** 

REM  ** 

ON  B4  GOTO 


Subroutine 
Abstract  > 

To  turn  on  a given 
Variables  > 

Bit  > storage  byte 


♦HHHHHHHHHHUHUHHHHHHHHHHHHHHHHHHHHHHHHHUHHHUHf  2 0 9 


bit  position. 

! 84  > bit  position 


20-9  <B1S,B4) 

! Bit  80  ! BIT  40  ! BIT  20  ! BIT  10 

i t i i 


2532 

2b48 


2520  RtM  ** 


2536 

2552 


2540 

2556 


2544 

2560 


REM  tNTRY 


RtM  BRANCH 


2524 

RtM  ** 

! BIT  04 

BIT  04 

BIT  02  ! BI1 

01 

2528 

REM  ** 

2532 

OR 

(BIS, 80) 

: GOTO 

2564 

REM 

MASK 

BIT 

8 

2536 

OR 

(BIS, 40) 

: GOTO 

2564 

REM 

MASK 

BIT 

7 

2540 

OR 

(BIS, 20) 

: GOTO 

2564 

REM 

MASK 

BIT 

6 

2544 

OR 

(BIS, 10) 

: GOTO 

2564 

REM 

MASK 

BIT 

5 

2548 

OR 

(BIS, 08) 

: GOTO 

2564 

RtM 

MASK 

BIT 

4 

2552 

OR 

(BIS, 04) 

: GOTO 

2564 

REM 

MASK 

BIT 

3 

2556 

OR 

(BIS, 02) 

: GOTO 

2564 

REM 

MASK 

BIT 

2 

2560 

OR 

(BIS, 01 ) 

: GOTO 

2564 

REM 

MASK 

BIT 

1 

2564 

RETURN 

REM 

EXIT 
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AU'IHOK  System:  Phase  2 — ATHSL.IST  — # MAP 

(0100)  - 1552 

(0300)  - 1552 
1824  - 1815 

1832  - 1812 

1840  - 1828 

1984  - 2084 

2004  - 19-36 

5016  - 2032 

2036  - 2020 

5088  - 1988  5054  5048 

5544  - 2528 

2268  - 2252 

2272  - 2160 

2356  - 2340 

2428  - 2412 

2432  - 2412 

2436  - 2412 

2440  - 2412 

2444  - 2412 

2448  - 2412 

2452  - 2412 

2456  - 2412 

2460  - 2428  2432  2436  2440  2444  2448  2452  2456 

2532  - 2516 

2536.  - 2516 

2540  - 2516 

2544  - 2516 

2548  - 2516 

2552  - 2516 

2556.  - 2516 

2560  - 2516 

2564  - 2532  2536  2540  2544  2548  2552  2556  2560 
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AUIHOR  System:  R-  ss  e-  a — ATHSLIST  — 


BO 

- 

5328 

5335 

5336 

5344 

2348 

Bl* 

- 

1652 

5554 

2558 

5248 

2258 

2354 

2340 

2348 

2352 

2396. 

2428 

8432 

2436 

2440 

5444 

5448 

2452 

2456 

2500 

2532 

2536. 

2540 

2544 

2548 

2552 

2556 

2560 

Bl*< 

- 

1648 

5550 

2524 

2532 

2244 

2248 

2256 

2324 

2336 

2344 

2348 

B2 

- 

5354 

5358 

2335 

BA 

- 

5335 

5336 

2344 

8396 

2412 

2500 

2516 

Cl*< 

- 

1655 

1668 

2060 

5220 

2232 

5236. 

ca*< 

- 

1655 

1675 

5064 

8240 

2244 

2256 

8260 

L 

- 

1656 

L*< 

- 

1648 

1656 

1680 

1804 

1815 

1832 

1836 

1852 

1856 

1860 

1868 

1984 

1988 

2008 

5168 

5175 

M 

- 

1660 

M*< 

- 

1644 

1660 

1664 

1860 

1984 

2008 

2176 

Q0( 

- 

5060 

5064 

2072 

2076 

03*  ( 

- 

1695 

5008 

2016 

04*  ( 

- 

1548 

R0 

- 

5188 

5504 

R0* 

- 

5015 

5016 

2028 

R1 

- 

1784 

1795 

1800 

1820 

1860 

1872 

1940 

2008 

2055 

2056 

R2 

- 

1808 

1815 

1816 

1854 

1838 

1836 

1840 

1848 

1944 

2008 

2056 

R2* 

- 

51-95 

5196 

2500 

2204 

2808 

5812 

2216 

R2*( 

- 

5016 

5050 

2036 

R3 

- 

1948 

5016 

2024 

5040 

2048 

2052 

2056 

R4 

- 

1395 

1996. 

2000 

2164 

5168 

2172 

2268 

R4* 

- 

1840 

1844 

K4*( 

- 

5540 

R5 

- 

5004 

5008 

5036. 

5040 

2160 

2164 

R6 

- 

1955 

5564 

R7 

- 

5176 

5180 

2184 

2188 

R8 

- 

1660 

5168 

2176 

5180 

2184 

2188 

2196. 

2524 

R8* 

- 

1764 

1804 

R9 

- 

1660 

1800 

2175 

5176 

2184 

2188 

2200 

2548 

S*< 

- 

1644 

1676 

1855 

1856 

1860 

1864 

T*< 

- 

1655 

1800 

1804 

1855 

Vl*< 

- 

1648 

1684 

1820 

1984 

1992 

2000 

va*( 

- 

1648 

1688 

1984 

W*( 

- 

1644 

1856 
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????  DtFFN'  101 

- 1696  1768  1776  1788  1706  1956  196.4  19/E  1980  E06.8  EOSO 
1SE8  DtFFN'  EOO 

1640  DtFFN'  E01 

- 153E 

1760  DtFFN'  E0E 

- 1536 

1936.  DtFFN'  E03 

- 1540 

El 56  DtFFN'  E06 

- 3044 

E3E4  DEFFN'  E07 

- SSS4  EE 48 
3396  DEFFN'  308 

- E336 

E500  DtFFN'  309 

- S344 
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ATH2LSTV 


The  purpose  of  the  'ATH2LSTV'  program  is  to  define  a new  common 
table  containing  the  necessary  variables  needed  by  the  listing 
program. 

The  remainder  of  this  section  presents  the  'ATH2LSTV 1 program 
listing. 


COM  I UL. 


AUTHOR  System:  Phase  a — ATHSLSTV  — 

100  xm  Program  > AUTHOR/ 2 (ATH2L5TV)  Version  > 2.0  2200  T/VP  780321 
104  RtM  **  Abstract 
108  RtM  ** 

112  RtM  **  This  routine  will  clear  program  text  and 
116  RtM  **  load  new  common  definitions. 

120  REM  ** 

124  REM 
128  RtM  ** 

136  RtM  ** 

140  RtM  ** 


144 

COM 

DO,  D1  , 

D2,  D3  , 

D4,  D5,  D6  , 

D7,  08,  D9 

148 

COM 

rt 

Ui 

El  *4  , 

E2*4  , Nl*, 

N2* 

152 

COM 

H8*<23)45, 

K5*< 1 )64, 

S4*< 1)64 

156 

COM 

RO,  R1  , 

R2,  R3  , 

R4,  R5,  R6  , 

R7,  R8,  R9 

160 

COM 

R0*2  , 

Rl*2  , 

R2*64  , 

R3*8 

164 

COM 

R4*64  , 

R5*l  , 

Ql«( 18)2  , 

05* ( 12)6 

168 

COM 

R6*64  , 

R7*10  , 

R8*2  , 

R9*64 

172 

COM 

R0*<1)1  , 

R2* (2)2  , 

R4*(20) 16  , 

R5*< 10)1 

176 

COM 

R6*<16)1  , 

R7*<64) 1 , 

R8*  <9)24  , 

R9* (1)64 

180 

COM 

SO*2  , 

SI  *2  , 

S242  , 

S342 

184 

COM 

S4*2  , 

S5«2  , 

S6*2  , 

S7*2 

188 

COM 

00(2)  , 

QO*<20) 1, 

Q3*<75,6)2 

192 

COM 

04*  <11)1  , 

07*  (5)2 

196 

COM 

Q8*( 128)2, 

09*  < 64 ) 4 

200 

COM 

M2*,  M3*  , 

M4»,  M5*, 

ME.* 

204 

COM 

R 1*  < 4 , 64 ) 1 

, R 3*  < 1 ) 64 , 

02* (25, 7b) 1 

208 

212 

216 

220 

224 

300 


REM  ■** 
RtM  ** 
%## 

RtM  ** 
RtM  ** 
LOAD  DC 


END  OP  COMMON  STORAGE 
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4. 7 ATH2LSTP 

The  purpose  of  the  'ATH2LSTP'  program  is  to  provide  the  control 
logic  and  listing  routines  necessary  for  outputting  the  data  base 
to  the  line  printer.  The  'ATH2LSTP'  program  is  presented  in  six 
parts. 

4.7.1  ATH2LST1 

This  section  of  the  'ATH2LSTP'  program  contains  the  main 
branching  instructions  for  the  execution  of  the  listing 
cormands.  This  section  also  contains  subroutines  1 06 
to  123. 

The  remainder  of  this  section  presents  the  'ATH2LST1 ' 
program  listing  and  reference  maps. 


fl  } 


\ * 


AUI  I (OR  S/ct  Dm 


P h£l  E D 


ATH2t_S'l  1 


CNTHL. 


1500  Program  > AUTHOR/ 2 < ATH2LST 1 ) Version  > 2.0  2200  T/VP  780321 


1504 

REM 

** 

Abstract  **** 

1508 

REM 

*•* 

** 

1512 

REM 

** 

This  routine 

will  provide  a copy 

of  the  Phase  2 

151C 

REM 

•** 

data  base. 

One  or  all  of  the  data  base  items 

■** 

1520 

REM 

** 

may  be  listed.  The  avaiable  list 

commands  are  > 

#■* 

1524 

REM 

** 

TITLE 

ORGANIZATION 

TYPE 

SYMBOL 

*■* 

1528 

HEM 

•#* 

SUBTITLE 

TRAINING 

NAME 

HELP 

1532 

REM 

** 

AUTHORS 

IMPORTANCE 

SOURCE 

LIST 

*•* 

1536 

REM 

** 

DATE 

USAGE 

EXAMPLE 

ESCAPE 

1 540 

REM 

*-* 

** 

1 544 

REM 

-***-»-*-****-«-»*-»-)*-*-**-***i 

HHHHHHMHHHHHHHMH 

HHHHHUHHHHH 

IHHf- 

1548 

REM 

•** 

1552 

GOSLB  ' 

200 

: REM  PRINT  HEADH  PAGE 

1556 

GOSUB  ' 

105  <R0, "Data 

Listing  Procedures") 

: REM  INPUT  COMMAND 

1560 

PRINT 

HEX (03) 

: REM  CLR 

CRT  SCREEN 

1564  GOSUB  ' 
1568  GOSUB  ' 
1572  REM  ** 
1576  REM  ** 
1580  REM  ** 

1 58 /i  ON  RO-O 


201 

101  (14,1,0,0) 
! TITLE 


SUBT1TL 


AUTHOR 


DATE 


: REM  TEST  PRINTR  ON 
: REM  POSITION  CUSOR 

ORGAN  ! 


1588 

1592 

1596 

1600 

1604 

1608 

1612 

1616 

1620 

1624 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■* 
REM  *•* 


REM  ** 
REM  ** 
REM  *■* 


GOTO 

1632  , 1636. 
1652  , 1656 

9 

9 

1640 

1660 

9 

9 

1644  , 
1664  , 

1648 

1668 

■w  ■ • “ 

REM 

BRANCH 

TRAIN  ! IMPORTN  ! 

USAGE 

1 

TYPE  ! 

NAME 

i 

1 

SOURCE  ! EXAMPLE  ! 

SYMBOL 

; 

HELP  ! 

LIST 

i 

GOTO 

1672  , 1676 

9 

1680 

9 

1684  , 

1688 

5 

1 

1892  , 1898 

9 

1696. 

9 

_ 1 . 

1898  , 

- i . 

1696 

_ 1 

REM 

BRANCH 

ESCAPE 


NULL 


NULL 


NULL.  ! NULL  ! 
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4 


1638 

1635 

1636 
1640 
16  A A 
16A8 

1655 

1656 
1660 
166  A 
1668 
1673 
1676 
1680 
1 68A 
1688 

1695 

1696 
1700 
170A 
1708 

1715 

1716 
1750 
175A 
1788 
1735 


REM 


COSUB 

/ 

13A 

(1,001, 

4,  "subtitle"  ) 

GOTO 

1556 

COSUB 

/ 

13A 

( 1 , 005, 

5, "author"  ) 

GOTO 

1556 

GOSUB 

/ 

13A 

(1,003, 

6, "date" ) 

GOTO 

1556 

COSLJB 

' 

13A 

(1,004, 

7, “organization"  ) 

GOTO 

1556 

COSUB 

/ 

13A 

(1,005, 

8, "training" ) 

GOTO 

1556' 

GOSUB 

/ 

134 

(1,011, 

9, * importance" ) 

GOTO 

1556 

GOSUB 

/ 

134 

(1,031, 

10, "usage"  ) 

GOTO 

1556 

GOSUB 

/ 

134 

( 1 , 03 3, 

11, "type" ) 

GOTO 

1556 

GOSUB 

/ 

134 

(1,053, 

13, “name" > 

GOTO 

1556 

GOSUB 

/ 

134 

(1,081, 

15, " source" ) 

GOTO 

1556 

GOSUB 

/ 

134 

( 1 , 053, 

14, "example"  ) 

GOTO 

1556 

GOSUB 

/ 

134 

(1,041, 

15, "symbol" ) 

GOTO 

1556 

GOSUB 

/ 

508 

GOTO 

1556 

GOSUB 

/ 

803 

GOTO 

1556 

GOSUB 

0 

504 

GOTO 

1708 

GOSUB 

/ 

505 

GOTO 

1708 

GOSUB 

/ 

503 

GOTO 

1556 

REM  ** 

REM  ** 

PRINT  HEX (03)  : 

PRINT  "AUTHOR  SYSTE  M";HEX(OOOA) 

PRINT  "P  h a s e II"; HEX < OOOAOAOA ) 

PRINT  »**•**  LISTING  COMPLETED  * * * *" 

PRINT  HEX (OlOCOCOCOC ) 

stop  : 

END  : 


REM  TITLE 
REM  SUBT 1TLE 
REM  AUTHORS 
REM  DATE 
REM  ORGANIZATION 
REM  TRAINING 
REM  IMPORTANCE 
REM  USAGE 
REM  TYPE 
REM  NAME 
REM  SOURCE 
REM  EXAMPLE 
REM  SYMBOL 
REM  HELP 
REM  LIST 
REM  ESCAPE 
REM  NULL  CMND 


REM  CL.R  CRT  SCREEN 


REM  END  OF  LIST 
REM  END  OF  PROGRAM 
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AUIHUR  System:  Phace  S. 


ATH2LS ( 1 


— 1 


REM  ** 
REM  ** 
REM  *** 
REM  ** 
REM  *+* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■» 
REM  ** 
REM  ** 
REM  +*+* 
DEFFN  ‘ 
IF 


MAT  CORY 
RETURN 


O U T I N E S 


Abstract  > 

This  routine  will  load  the  printer 
with  text.  The  text  will  be  loaded 
row  and  colum  location  specified. 
Variables  > 


1 O €. 


page  buffer 
according  to  the 


row  location  indx 
text  length  indx 
linear  scale  indx 


(S1,S2,S3,S4«<1>> 


S2  > 
S'f*<  ) 
Q2*<  ) 


S3  <> 
S3  = 
SS  = 
S4*(  ) 


LEN(SA*< 1 ) ) 
(Sl-1 )*75  + S2 
<1 , S3>  TO  02*0 


<S€.,S3> 


col  location  indx 

> text  buffer 

> printer  pag  buf r 


REM  ENTRY 

REM  SIR  LEN  NOT  ZERO 
REM  CMPUT  STR  LENGTH 
REM  CMPUT  LOCATION 
REM  TRANSEER  TO  bUFR 
REM  EXIT 


O 
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/MJ  I H(JR  System 


P ha se  2 


ATH3LST 1 


10  7 


REM  ** 
RtM  ** 
RtM  ** 
HEM  ** 
RtM  ** 
RtM  ** 
RbM  ** 
RbM  ** 
RbM  ** 
RbM  *+ 
RtM  ** 
RbM  **+* 
UbFFN  ' 
IF 

GOSUB  ‘ 

IF 

IF 

GOSUB  ‘ 
RETURN 


Abstract  > 

This  routine  will  load  storage  buffer  with  data 
item  from  dish. 

Variables  > 

El  > begin  load  indx  ! II  > data  item  id 

14  > return  item  flage  ! RO*  > begining  dsR  location 

RO  > byte  size  of  dat  item 


1 O 7 


107  (El , I 1 ) 

El  <>  1 

130  (ID 

14  = 0 

El  = O 

131  (RO*,RO, II, El) 


: RtM  ENTRY 

TFEN  1896  : REM  CONT  BUFR  LOAD 

: REM  PERFORM  INDX  LOKUP 
TFEN  1904  : RbM  ITEM  NOT  FOUND 
TFEN  1904  : REM  ITEM  LOADED 

t REM  LOAD  DATA  ITEM 
: REM  EXIT 


n 


AU  I HQR  S yste-m:  P ha  e.  e S 


ATH3LS 1 "1  — 


O 


1908 

1912 

1916 

1920 

1924 

1928 

1932 

1936 

1940 

1944 

1948 

1952 

1956 

1960 

1964 

1968 

1972 

1976 

1980 

1984 

1988 


Subroutine 
Abstract  > 

To  Output  page  buffer  onto  the  selected 
output  device. 

Output  index  code 


REM  ** 

REM  ** 

REM  ** 

REM  ++ 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  **  Variables 
REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM 
DEFFN 
GOSUB 
REM  ** 

REM  ** 


1 0 8 


1 

2 

3 

4 


N/A 

N/A 


W6 

W7 

W8 


output  device  index 
undrscr  loRup  indx 
bufer  out  lin  indx 


108  <W6> 
124 


CRl 
TTY 
LPT 

END  OF  LPT  FILE 

! R0$<)  > input  register 

! W2*  > return  scan  flag 

! W3$  > return  scan  flag 

! W4*  > return  scan  flag 


REM  ENTRY 

REM  SEL  SPL  CHAR  SCAN 


CRT 


TTY 


LPT 


END 


1992 

REM  ** 

..  1 ...... 

1996 

2000 

ON  W6  GOTO 
REM  ** 

2072  , 2072  , 2016 

, 2056 

2004 

REM  ** 

2008 

REM  ** 

2012 

REM  ** 

2016 

SELECT  #5 

015 

2020 

SELECT 

TAPE  07B 

2024 

GOSUB  ' 118 

2028 

GOSUB  ' 119 

(1) 

2032 

FOR 

W8  = 1 TO  25 

2036 

GOSUB  ' 117 

2040 

NEXT 

W8 

2044 

GOSUB  ' 119 

(2) 

2048 

IF 

W4*  = "NO  UNDERSCORE" 

THEN  2060 

2052 

IF 

W4*  = "OVERLAY" 

THEN  2060 

2056 

GOSUB  ' 120 

206.0 

GOTO 

2072 

2064 

REM  ** 

2068 

REM  ** 

2072 

RETURN 

REM  BRANCH 


OUTPUT  TU  LPT  DEVICE 

REM  SEL  OUTPUT  DEV 
REM  SEL  TAPE  DEV 
REM  SEL  UNDRSCR  MOOE 
REM  PRINT  HEADER 
REM  BEGIN  BUFR  LOOP 
REM  PRINT  TEXT  LINE 
REM  I NCR  LINE  INDX 
REM  PRINT  PAGE  NUMBR 
REM  NO  UNDERSCORING 
REM  IF  OVRLAY  OUTPUT 
REM  PRINT  OVERLAY 
REM  BRANCH  TO  EXIT 


: REM  EXIT 


C 
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AUTHOR  Systi 


ATH3LST 1 — 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *** 
DEFFN 
DIM 
DIM 


Abstract  > 

To  scan  text  buffer  and  create  lookup  table  and 
overlay  buffer  for  selected  output  devices. 

Variables  > 

0 £?*< ) > output  text  buffer  ! 

W3*< ) > underscore  lookup  tbl  ! W4*( ) > conversion  buffer 
X4  > end  of  loop  indx  (row)  ! X5  > end  of  loop  indx  (col) 

R4  > lookup  tbl  indx  (row)  ! R5  > lookup  tbl  indx  (col) 

R6  > linear  buff  position  ! R5*( ) > single  char  storage 

WE  > output  device  indx  ! W3  > buffer  size 


W3*(l,a00)2,W9*(7)8 
X3*( 1, 075)5, Y3*( 1,075)2 


♦TRAN 

MAT  SEARCH 
IF 

♦TRAN 

MAT  SEARCH 
MAT  SEARCH 


IF 

IF 

IF 

REM  ** 

FOR 

FOR 

GOSUB 

NEXT 

NEXT 


IF 

REM  ** 
IF 
FOR 
FOR 

GOSUB  ' 

NEXT 

NEXT 


W3^(l)  = HEX ( 5FA0) 
um(?)  = HEX  ( 50800900 ) 

WWO)  = HEX  (20802D812F825F83) 
W94(4.  = HEX (3000200 12005200 3) 

W9^(5>  = HEX (2020) 

W3  = IE  5 
R2^(l)  = "Z" 

R2^(2)  = "0“ 

<Q2*(K1,W9>,  W9*(><1,8>)  R 
Q2«( ><1,W9>,  > R5^(3)  TO  W3^() 
WE  = 1 THEN 

(Q2^( )<1,W9>,  W9$()<1,8»  7F  R 


Q2^( )<1,W9>, 
Q2^< )<1,W9>, 
W3^(l,200) 
X3*< 1,075) 
Y3^(l,075) 
W€*  = "NULL* 
WE^  = “BOTH" 
W€*  <>  "ZEE" 


R2^(l>  TO  X3^< ) 
R2^<2)  TO  Y3^() 
HEX (0000) 

HEX (OOOO ) 

HEX (OOOO) 


THEN  229E 
THEN  2232 
THEN  22E4 


R4  = 1 TO  1 
R5  = 1 TO  075 

125  (R4,R5, 1 , 075, X3^(R4, R5) , HEX (81 ) ) 
R5 


X3^(XE,X7)  = HEX ( FFFF ) 
WE^  = "BOTH" 


WE^  <>  "ZERO"  THEN  229E 

R4  = 1 TO  1 
R5  = 1 TO  075 

125  (R4,R5, 1,075, Y3^(R4,R5) , HEX (82) ) 

R5 
R4 

Y3^(XE,X7)  = HEX ( FFFF ) 


THEN  22E 8 : 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  DEFINE  WORK  BUFRS 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  INIT  CONV  VALUES 
REM  SET  SIZE  TO  MAX 
REM  DEFINE  SPL  CHAR  1 
REM  DEFINE  SPL  CHAR  2 
REM  MINI ZE  UNDRSCRS 
REM  CREAT  LOKUP  TBL  1 
REM  NOT  TTY  OUTPUT 
REM  CLR  HIGH  BIT 
REM  CREAT  LOKUP  TBL  2 
REM  CREAT  LOKUP  TBL  3 
REM  SET  EOI  BYTE 
REM  SET  EOI  BYTE 
REM  SET  EOI  BYTE 
REM  NULL  CHAR  SCAN 
REM  EXECUTE  SCAN 
REM  NULL  ' Z'  SCAN 

REM  BEGIN  TBL  SCAN  ROW 
REM  BEGIN  TBL  SCAN  COL 
REM  SCAN  LOKUP  TABLE  1 
REM  CONT  TBL  SCAN  COL 
REM  CONT  TBL  SCAN  ROW 
REM  SET  EOI  BYTE 
REM  EXECUTE  SCAN 

REM  NULL  'O'  SCAN 
REM  BEGIN  TBL  SCAN  ROW 
REM  BEGIN  TBL  SCAN  COL 
REM  SCAN  LOKUP  TABLE  2 
REM  CONT  TBL  SCAN  COL 
REM  CONT  TBL  SCAN  ROW 
REM  SET  EOI  BYTE 
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c 

» * 


2292  REM  ** 

5296  FOR 
5300  FOR 
5304  GOSU0  ' 
5308  NEXT 
5312  NEXT 
2316 

5350  REM  ** 

5354  REM  ** 

5358  REM  ** 

5332  ON  W6  GOTO 
5336  REM  ** 

2340  REM  ** 

2344  *TRAN 
5348  GOTO 
5352  REM  ** 

2356  RETURN 


R4  = 1 TO  1 
R5  = 1 TO  200 

125  (R4,R5, 1,200, W3*<R4,R5>, HEX (83) ) 
R5 
R4 

W3*( X6, X7 ) = HEX ( FFFF ) 


CRT 


TTY 


LPT 


2356 


2356 


5344 


<G2*< )<1,W9>,  W9*< ><17,24>>  83  R 
2356 


REM  BEGIN  TBL  SCAN  ROW 
REM  BEGIN  TBL  SCAN  COL 
REM  SCAN  LOKUP  TABLE  O 
REM  CONT  TBL  SCAN  COL 
REM  CONT  TBL  SCAN  ROW 
REM  SET  EOI  BYTE 


REM  BRANCH 


REM  CONY  OVRLAY  BUFR 
REM  BRANCH  TO  EXIT 


REM  EXIT 


AUTHOR  System:  Ph-aE-D' 


ATHaLST 


— 1 


REM  ** 
REM  ** 
REM  ** 
REM  m 
REM  .** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■* 
REM  ** 
REM  **« 
DEFFN 
DIM 


<TRAN 
MAT  COPY 
MAT  SEARCH 
IF 


Abstract  > 

To  print  a line  without  trailing  blanks  on  selected 
output  device. 

Variables  > 

W9  > temp  text  bufr  indx  ! Q2<(>  > text  buffer 

R9*< ) > temp  line  bufr  ! R5<<)  > single  char  storage 

R2<<  ) > serach  retrn  bufr  ! WE  > output  device  indx 
WO  > temp  length  of  line  ! W7  > null  line  flag 


W9<<7>8,S9<<75>1 

W9<<1)  = HEX  < 5P A020202020 ) 

W9  = <WB-1)*75  + 1 
(Q2*(XW9,7S>,  W9<<X1,8>)  R 
-Q2<  < ) <W9,  ?S>  TO  S9<  (XI,  7S> 

S9<<),  <>  R5<<1)  TO  R2<<) 

R2<<1>  <>  HEX  < OOOO ) THEN  2452 

BIN<STR<R2< ( 1 > , 1 , 1 ) ) = 0 
BIN<STR<R2<<1 ),  2,  1 ) ) *=  76 
WO  ~ 75  - ( FNR ( VAL ( R2< <!)))-!) 


REM  ENTRY 

REM  DEFINE  WORK  BUFR 
REM  DEFINE  CONVERSN 
REM  CMPUT  BEC  OF  LIN 
REM  M1N1ZE  UNDERSCOR 
REM  REVERSE  COPY 
REM  SCAN  fOR  NONBLANKS 
REM  TRAILING  BLANKS 
REM  SET  TO  NULL  LINE 
REM  SET  TO  NULL  LINE 
REM  CMPUT  LEN  OP  SIR 


2456 

B IN < ST  R < R8<  < 9 ) , 6, 1 ) ) 

= WO 

: REM 

STCJR  LEN  OP 

STR 

2460 

BIN(STR<RS<<9) ,7, 1 > ) 

= 00 

: REM 

SET  LIMIT 

2464 

<GIO  SETUP 

#5  < R8<  < 8 ) 

,RS<<9> ) 

: REM 

SETUP  CR  OR 

LF 

2468 

REM  ** 

2472 

REM  ** 

! CRT  ! 

TTY  ! 

LPT  ! 

2476 

REM  ** 

1 1 

2480 

ON  W6  GOTO 

2512  , 

2512  , 

2492 

: REM 

BRANCH 

REM  ** 

REM  ** 

IN1T (20) 
<GIU  TAB 
<GIO  TEXT 
GOTU 
REM  ** 
RETURN 


R9<<>  : REM  CLR  TAB  BUFFER 

#5  <14671608AOOO,R8<<9> )R9<< X1,0>  : REM  HORZ  TAB 

#5  <A00042504000,R8<<9> )Q2<< XW9,W0>:  REM  PRINT  LINE 
2S12  : REM  BRANCH  TO  EXIT 

: REM  EXIT 


AUTHOR 


-fc  em ; 


F*  ha  s-  e 


— ATH2LS  I 1 


— 1 


3516 

2520 

253A 

3538 

ab3a 

ab36 

abAO 

abAA 

abAS 

abba 

abbe 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


HHHt***-IHHHHH»-IHf****-*******-«HH»****-******-*-»H*-*-**-»>  118 


Subroutine 
Abstract  > 

To  Display  Instructions 
Variables  > 

WA*  > return  scan  flag 
W9  > scratch  loop  indx 
RO*<)  > input  register 


to  set  up  LP I device. 


WA*<  ) 
WS*<  > 


i/o 

i/o 


buffer 

buffer 


Itl 

#a 


266A 

ases 

367  a 

3676 

ae.80 


REM  ** 
REM  ** 
REM  ** 
X LPT 
X 


INSTRUCTION  FORMATS 


UNDERSCORE  MENU 


1 - SINGLE  PAGE  UNDERSCORING 
3 - MULTI  PAGE  UNDERSCORING  (TAPE) 


asso 

DEFFN  ' 118 

REM  ENTRY 

assA 

DIM 

X9*< 10)AS 

REM  DEFINE  WORK  BUFRS 

3568 

IF 

WA*  = “NO  UNDERSCORE" 

THEN 

36.96 

REM  SKIP  ROUTINE 

3573 

IF 

WA*  = “ UNDERSCORE “ 

THEN 

2696 

REM  SKIP  ROUTINE 

as7s 

If 

WA*  = "OVERLAY" 

THEN 

2696. 

REM  SKIP  ROUTINE 

3580 

IF 

WA*  = “TAPE" 

THEN 

26.96. 

REM  SKIP  ROUTINE 

ab8A 

IF 

WA*  = "SET  PRINTER" 

THEN 

26AA 

REM  IN1T  PRINTER  ONLY 

3b88 

WA*  = “NO  UNDERSCORE" 

REM  SET  RP.TRN  SCAN  FLC 

assa 

PRINT 

HEX<03) 

REM  CL.R  CRT  SCREEN 

3596 

GOSUB  ' 101 

(5, 1,0,0) 

REM  P0SIT1UN  CUSOR 

3600 

SELECT 

PRINT  005 

REM  SEL.  OUTPUT  MODE 

360A 

PRINTUSING 

3676,  " “ 

REM  PRINT  INSIRUTN  1 

3608 

PRINTUSING 

3680,  “ “ 

REM  PRINT  INSTRUTN  2 

asia 

PRINTUSING 

368A,  " “ 

REM  PRINT  INSIRUTN  3 

3616 

SELECT 

PRINT  AOS 

REM  SEL  OUTPUT  MODE 

3630 

GOSUB  ' 101 

<3, 1,0,0) 

REM  POSITION  CUSOR 

262A 

PRINTUSING 

3688,  " "; 

REM  PRINT  PROMPT 

3638 

KEY  IN 

R0*( 1 ) , 3633,  3633 

: GOTO 

2628 

REM  RESPONCL  WAIT 

3633 

IF 

R0*< 1 ) <>  “1" 

THEN 

36  AO 

REM  SCAN  FLAG  SET 

3636 

WA*  - 'UNDERSCORE* 

REM  SET  SCAN  FLAG 

36A0 

IF 

R0*( 1 ) <>  "3" 

THEN 

3656 

REM  SCAN  FLAG  SET 

36AA 

WA*  =••  "TAPE" 

REM  SET  SCAN  FLAG 

36A8 

REM  ** 

3653 

GOSUB  ' 137 

REM  TEST  TAPE  READY 

3656 

GOSUB  ' 138 

REM  TEST  PRINTER  READY 

3660 

GOSUB  ' 139 

REM  PRINT  INSTRUCTIONS 

X # 3 - DO  NOT  SCAN  FgR  UNDERSCORING 

X # Enter  Code  from  LPT  Underscoring  Menu  > 

REM  ** 

RETURN  : REM  EXIT 


268A 

asss 

assa 

ae.96 


AU I HOR  System:  Pha&o 


ATH3LST 1-11 


2700  RLM  ** 
2704  REM  ** 
8708  REM  ** 
8718  REM  ** 
87 1€.  RtM  ** 
8780  REM  ** 
2724  REM  ** 


Subroutine  j j g 

Abstrct  > 

To  print  upper/lower  hash  lines  on  the  LP1  device. 

Variables  > 

W7*(  ) > hash  contorl  buffer  ! W9  > upper/lower  index 


8788  REM  ** 

£>733  **-tt**************-IH^-»-»*-t(--l(-»**-«-»-tt--»*-X-*-»--»******-»-l*- 

8730  DEFFN  ' 119  (W9>  : REM  ENTRY 

2740  DIM  W7S( 19)4  : REM  DEFINE  WORK  BUFRS 

8744  INIT (SO)  W7*(  ) : RtM  CL..R  TABLE 

8748  W7*< 1 >=HEX< 30303030)  : W7* < 2 ) =HEX ( OAOAOAOA ) : RtM  INIT  TABLE 

8758  REM  ** 

8755  RtM  **  ! Header  ! Page  Num.  ! 

8760  REM  **  ! ! ! 


2764 

ON  W9  GOTO 

2776  , 

8808  ; 

REM 

BRANCH 

8768 

REM  ** 

1 

1 

8778 

RtM  ** 

2776 

*GIO  TUP 

#5 

( 40OCA0O0 

,R8*(9) )W7*( )<5,8>  : 

REM 

TOP  OF  FORM 

2780 

*GIO  TAB 

#5 

< AOOO 

,R8*<9))W7*<)<9, 1S>  : 

RtM 

HORZ  TAB 

8784 

$GIG  HEAD 

#5 

( A000400U400A 

,R8*(9))H8*( )<1,45>  : 

REM 

PRINT  HEADING 

2788 

*GIO  TAB 

#5 

< AOOO 

,R8*(9) )W7*< )<9, 15>  : 

RtM 

HORZ  TAB 

2792 

4GI0  3HEAD 

#5 

< A000400D400A 

,R8*<9) )H8*< )<46,45>: 

REM 

PRINT  SUBHEADING 

2796 

SGIO  vTAB 

#5 

(AOOO 

,R8*(9) )W7*< )<5,2>  : 

REM 

VERTICAL  TAB 

2800 

GOTO 

8836 

REM 

BRANCH  TO  EXIT 

8804  RtM  ** 


2808 

IF 

W4« 

i = "OVERLAY 

THEN  2836 

RtM 

NULL  HEADER 

2812 

CONVERT 

PO 

TO  W7*(l), 

(####> 

RtM 

CREATE  PAG  NUMBR 

2816 

*GIO  VTAB 

#5 

(AOOO 

,R8*(9))W7*0<5,  1> 

REM 

VERTICAL  TAB 

2820 

*GIO  HTAB 

#5 

(AOOO 

,R8*(9))W7*( )<9,38> 

RtM 

HORZ  TAB 

2824 

*G10  PAGNUM 

#b 

(A000400D 

,R8*<9> )W7*( )<1,4> 

REM 

PRINT  PAGE  NUMBR 

8888 

PO 

- PO  ♦ 1 

REM 

I NCR  PAGE  INDEX 

2832 

RtM  ** 

2836 

RETURN 

: REM 

EXIT 

270 


/M_J  1HQR  Sy  s-t  em  : Ph<a' 


ATHSLSI 1 


5840  REM  +* 

5844  REM  ** 

5848  REM  Subroutine  ■whhhhhhk»'II"II  * » m m 15  0 

58b5  REM  **  Abstract  > 

5856  REM  *■*  To  print  the  underscore  overlay  buffer  on  to  LPT  device. 

5860  REM  **  Variables  > 

5864  REM  W6  > output  device  indx  ! W4*  > return  scan  flag 

5868  REM  ■**  13  > end  of  file  flag  ! 

5875  REM  ** 

5876  REM  ***********^***^*-*-iH*-**-iH«--»*-iH*’-tH<*-***-«--**-»****'«- 


5880 

DEFFN 

/ 

150 

REM 

ENTRY 

5884 

IF 

W6  - 4 

THEN 

5936 

REM 

END  OP  PRNT  FILE 

5888 

GOSUB 

/ 

109 

REM 

CREATE  OVERLAY 

5895 

IP 

W4*  = "TAPE" 

THEN 

5954 

REM 

WRITE  ON  TAPE 

5896 

REM  ** 

5-900 

GOSUB 

/ 

155 

REM 

DEVICE  WAIT 

5904 

W44  = “OVERLAY" 

REM 

SET  SCAN  FLAG 

5-908 

GOSUB 

/ 

108 

(W6) 

REM 

PRINT  BUFFR 

5-915 

W4*  = “UNDERSCORE" 

REM 

RESET  SCAN  FLAG 

5916 

GOTO 

5984 

REM 

BRANCH  TO  EXIT 

5-950 

REM  ** 

5954 

GOSUB 

/ 

190 

(15,1,23,1875,1,6) 

REM 

WRITE  BLFFER 

5958 

GOTO 

5-984 

REM 

BRANCH  TO  EXIT 

5935 

REM  ** 

5936 

GOSUB 

/ 

190 

<10, 3, ZB, 0,  1,6) 

REM 

WRITE  EOF 

5940 

DEFFN 

/ 

016 

REM 

RECOVERY  ENTR'r 

5944 

GOSUB 

/ 

190 

<9,3,Z3,0, 1,6) 

REM 

REWIND  TAPE 

5948 

W6  = 3 

REM 

RESET  DEVICE  INDX 

5-955 

GOSUB 

/ 

155 

REM 

DEVICE  WAIT 

5956 

W4*  = “OVERl-AY” 

REM 

SET  SCAN  PLAG 

5-96.0 

GOSUB 

t 

190 

(7,1,23,1875,1,6) 

REM 

READ  RECORD 

5964 

IF 

Z3  = 4 

THEN 

5976 

REM 

END  OF  FILE 

5-968 

GOSUB 

/ 

108 

<W6> 

REM 

PRINT  BUFFER 

5975 

GOTU 

5-960 

REM 

READ  NXT  RECORD 

5976 

GOSUB 

/ 

190 

(9, 5, ZB, 0, 1,6) 

REM 

REWIND  TAPE 

5980 

REM  ** 

5984 

RETURN 

REM 

EXIT 

AU 

2988 

2-392 

2996 

3000 

3004 

3008 

3012 

3016 

3020 

3024 

3028 

3032 

3036 

3040 

3044 

3048 

3052 

3056 

3060 

3064 

306.8 

3072 

3076 

3080 

3084 

3088 

3092 

3096 

3100 

3104 

3108 

3112 


I'HOR  System: 


P ha  e.  E* 


— ATH2LST1 


RtM  ** 

RtM  *+ 

RtM  ** 

RtM 
RtM  ** 

RtM  ** 

RtM  ** 

RtM  ** 

REM  ** 

RtM  ** 

REM 

122 


Subroutine  ***#«*«***********#h»##********#**»#*»*h(*#**  12  2 
Abstract  > 

To  allow  the  output  device  to  be  reset.  Program  will 
pause  until  the  device  is  disabled  then  will 
continue  until  a device  ready  is  sensed. 

Variables  > 

W9$< ) > micro  command  buffer  ! W6  > output  device  indx 


DtFFN 

DIM 


W9*<7)8 

W9*(l)  = HEX (122141002020) 
W94(2)  = HEX (122145002020) 
W9*(3)  = HEX (122141002020) 
W9*(4)  = HEX (4465766963652020) 
W9t( 5)  = HEX (2420202052656164) 
W9$  ( 6 ) = HEX  (7920202020242020) 
W9*(7)  = HEX (576169/420202020) 


*GIO  TONE 
GOSUB  ' 123 
HCIG  TST  ON 
*IF  ON 
GOSUB  ' 123 
*CIO  TST  ON 
*IF  ON 


/0O5  (R8*(4),R8*(9> ) 
(W9*(W6),R8*(9> ) 


*CIO  TST 
*IP  ON 

RETURN 


ON 


#5 

#5, 

#5 

#5, 

#5 

#5, 


(W9*(W6),R8*(9) ) 


(W3*(W6),R8*(9) ) 


GOTO 


GOTO 


3068 


3100 

3084 

3112 

3084 


RtM 

REM 

REM 

RtM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

RtM 

REM 

RtM 

REM 

RtM 

REM 

REM 

REM 

REM 


ENTRY 

DEFINE  WORK  DUFR 
INI!  MICRO  CMND 
INIT  MICRO  CMND 
IN1T  MICRO  CMND 
I NIT  SCRN  CHAR 
INIT  SCRN 
INIT  SCRN 
INIT  SCRN 


ATTENTION 
PRNT  SCRN 


CHAR 

CHAR 

CHAR 

TONE 

CHAR 


SEND  TST  SIGNAL 
IF  READY 
PRNT  SCRN  CHAR 
SEND  TST  SIGNAL 
IF  READY 
IF  NOT  READY 
SEND  TST  SIGNAL 
IP  READY 
IF  NOT  READY 
EXIT 


1 
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MBaaMMHMHMMMMMi 


AUTHOR  Sys-t  e-m  = F>  ha  < 


— ATHaLST 1 — 


3116 

3150 

3154 
3158 

3135 

3136 
3140 
3144 
3148 

3155 

3156 
3160 
3164 
3168 

3175 

3176 
3180 
3184 
3188 

3195 

3196 
3500 
3504 
3508 
3515 


K5 


RtM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  *+ 

REM  ** 

REM  *+ 

REM  ** 

REM  ** 

REM 
OEFFN  ' 153 
INI! (08) 

IF 

IF 

$CI0  CLR 
GOSUB  ' 101 
FOR 

*GI0  PRINT 
*GI0  BAKSPC 
NEXT 
RETURN 


Subroutine 
Abstract  > 

To  Display  a 
waitting  for 
Variables  > 
W9$()  > char 


1 5 3 


large  cusor  on 
device  ready. 


console  screen  while 


R9*( ) > scratch 


storage  bufr 


random  col 


cusor  bufr 
position 


R9*(  ) 

K1  ~ INT(RND(-i>*10) 

K1  =0 

K2  = INT  <RND( -1 )*100) 

K2  > 55 

/005(4003  ,R8*(9) 

(K1 ,K5,0,0) 

W9  - 55  10  49  STEP  6 
/005 ( 4006A0O0  ,R8*(9> 

/005 < 4006400AA000, RB$ ( 9 ) 
W9 


W9  > temp  bufr  index  (loop) 
HI  > random  row  position 


REM  ENTRY 

REM  INI!  CUSOR  BUFR 
REM  GEN  RND  PDS 
REM  INVALID  POS 
REM  GEN  RND  POS 
REM  INVALID  POS 
REM  CLR  CRT  SCREEN 
REM  POSITION  CUSOR 
REM  BEG  CHAR  PRNT 
REM  PRINT  LINE 
REM  POSITION  FOR  NX! 
REM  PRNT  NXT  LINE 
REM  EXIT 


THEN  3175 
THEN  3180 


>W9*( )<W9,6> 
)R9*( )<1,6> 


o 
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AUTHOR 


ATH2LST 1 


# MAP 


iyst  ei 


F"*  ha  s-  i 


1556 

"" 

1632 

1696 

1636 

1632 

- 

1584 

1636 

- 

1584 

1640 

- 

1584 

1644 

- 

1584 

1648 

- 

1584 

1652 

- 

1584 

1656. 

- 

1584 

1660 

- 

1584 

1664 

- 

1584 

1668 

- 

1584 

1672 

- 

1612 

1676 

* 

1612 

1680 

- 

1612 

1684 

- 

1612 

1688 

- 

1612 

1692 

- 

1612 

1696 

- 

1612 

1708 

1688 

1692 

1820 

- 

1812 

18-96 

- 

1884 

1-904 

- 

1892 

18-96 

2016 

- 

19-96 

2056 

- 

1-9-96 

2060 

- 

2048 

2052 

2072 

- 

1996 

2060 

21-96 

2188 

2232 

- 

2220 

2264 

- 

2224 

2268 

2256 

2296 

- 

2216 

2264 

2344 

2332 

2356 

- 

2332 

2348 

2452 

- 

2440 

2492 

2480 

2512 

- 

2480 

2504 

2628 

- 

2628 

2632 

- 

2628 

2640 

- 

2632 

2644 

- 

2584 

2656 

- 

2640 

2676 

- 

2604 

2680 

- 

2608 

2684 

- 

2612 

2688 

- 

2624 

2696 

- 

2568 

2572 

2776 

- 

2764 

2808 

- 

2764 

2836 

2800 

2808 

2924 

- 

2892 

2-936 

“ 

2884 

2960 

- 

2972 

2976 

- 

2964 

2984 

- 

2*916 

2928 

3068 

“ 

3080 

3084 

- 

3096 

3108 

3100 

- 

3092 

1636  1640  1644  1648  1662  1656  1660  1664  1668  1672  1676  1680  1684 
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AUTHOR  Sy  s.-tem:  Phase 


— ATH2LS I 1 


MAP 


???? 


DEFFN'  16 
DfcFFN'  101 

- 1568  2596  2620  3192 
DfcFFN'  105 

- 1556 
DfcFFN'  106 
DfcFFN'  107 
DfcFFN'  108 

- 2-908  2968 
DfcFFN'  109 

- 2888 
DfcFFN'  117 

- 2036 
DfcFFN'  118 

- 2024 
DfcFFN'  119 

- 2028  2044 
DfcFFN'  120 

- 2056 
DfcFFN'  122 

- 2900  2952 
DfcFFN'  123 

- 3072  3084 
DfcFFN'  124 

- 1980 
DfcFFN'  125 

- 2240  2276  2304 
DfcFFN'  127 

- 2652 
DfcFFN'  128 

- 2656 
DEFFN'  129 

- 2660 
DfcFFN'  130 

- 1888 
DfcFFN'  131 

- 1900 
DEFFN'  134 

- 1632  1636  1640  1644  1648  1652  1656  1660  1664  1668  1672  1676 
DfcFFN'  190 

- 2924  2-936.  2944  2960  2976 
DfcFFN'  200 

- 1552 
DEFFN'  201 

- 1564 
DEFFN'  202 

- 1680 
DEFFN'  203 

- 1684  1696 
DEFFN'  204 

- 1688 
DfcFFN'  205 

- 1692 


TAEG  Report  No.  59 


r 


* * 

4.7.2  ATH2LST2 

This  section  of  the  'ATH2LSTP'  program  contains  subroutines 
124  to  129. 

The  remainder  of  this  section  presents  the  'ATH2LST2' 
program  listing  and  reference  maps. 


AUTHOR  System:  Phai 


~ ATHSLST5  — 


4000 
4003 
4006  REM  ** 
4009  HEM  ** 
4015  RtM  ** 
4015  RtM  ** 
4018  RtM  ** 
4051  RtM  ** 
4024  RtM  ** 
4027  RtM 


< ATH2LST 2 ) Version  > 2.0  2200  1 /VP  780321 


X#1t  Program  > AUTHOK/2 
REM  *•* 

Subroutine 
Abstract  > 

This  routine  will  select  the  type  of  special 
character  scanning  to  be  executed. 

Variables  > 

W6*  > scaning  flag  bufr  ! R0*()  > char  input  bufr 


12  4 


4030 

DEFFN  ' 124 

RtM 

ENTRY 

4033 

If 

W6*  = "ZERO* 

THEN 

4159 

REM 

SCAN  SELECTED 

4036 

If 

W6*  = "ZEE" 

THEN 

4159 

REM 

SCAN  SELECTED 

4039 

IF 

W6*  = “BOTH* 

THEN 

4159 

RtM 

SCAN  SELECTED 

4042 

If 

W6*  - "NULL" 

THEN 

4159 

REM 

SCAN  SELECTED 

4045 

RtM  ** 

4048 

PRINT 

HEX < 03) 

REM 

CLR  CRT  SCHEEN 

4051 

COSUB  ' 101 

(5, 1,0,0) 

REM 

POSITION  CUSUR 

4054 

SELECT 

PRINT  005 

REM 

SEL  D1SPLY  MODE 

4057 

PR INTUS1NC 

4141,  " “ 

REM 

PH I NT  MENU 

4060 

PRINTUSING 

4144,  “ " 

4063 

PRINTUSING 

4147,  “ " 

4066 

PRINTUSING 

4150,  “ " 

4069 

SELECT 

PRINT  405 

£ 

REM 

SEL  D1SPLY  MODE 

4072 

GUSUB  ' 101 

12,1,0,0) 

• 

REM 

POSITION  CUSUR 

4075 

PRINTUSING 

4153,  “ “ 

4078 

KEY  IN 

R0*<1>,  4081,  4081 

: 

GOTO 

4078 

• 

REM 

RESPONGE  WAIT 

4081 

PH  I NT 

HEX (03) 

l 

REM 

CLR  CRT  SCREEN 

4084 

W6*  = "NULL" 

• 

REM 

SET  DEFLT  VALUE 

4087 

If 

R0«<1)  <>  “1“ 

THEN 

4096 

: 

REM 

SET  'O'  SCAN 

4090 

W6*  = "ZERO’ 

40-33 

HEM  ** 

40-36 

IF 

ROt ( 1 ) <>  "2" 

THEN 

4105 

: 

RtM 

SET  'Z'  SCAN 

409-3 

W6*  = "ZEE" 

4102 

HEM  *+ 

4105 

If 

R0*< 1 ) <>  “3" 

THEN 

4114 

: 

REM 

SET  '0-Z'  SCAN 

4108 

W6*  = "BOTH" 

4111 

REM  ** 

4114 

IF 

W6*  = "NULL" 

THEN 

4159 

RtM 

BHNCH  TO  EXIT 

4117 

IF 

W6  <>  3 

THEN 

4159 

HEM 

NOT  LPT  OUTPUT 

4120 

W4*  = "SET  PRINTER" 

REM 

SET  SCAN  FLAG 

4123 

SELECT  #5 

015 

REM 

SEL  LINE  PRINTER 

4126 

SELECT  TAPE 

07B 

REM 

SEL  TAPE  DRIVE 

4129 

GOSUB  ' 118 

REM 

IN1T  PRINTER 

4132 

HtM  ** 

4135 

RtM  ** 

OUTPUT  IMAGE  FORMATS 

4138 

HtM  ** 

4141 

X # Special 

Character  Scanning  > 

1 

- Scan 

i for 

zero 

<0  <-  /) 

4144 

X # 

2 

- Scan 

i for 

zee 

(Z  <-  -) 

4147 

X # 

3 

- Scan 

i for 

both 

'0'  & 'Z' 

4150 

4153 

4156 

4159' 


X # 


X # Enter  Scanning  Code  from  Below  Table 
RtM  ** 

RETURN 


NO  Special  Scanning 

> 


: REM  EXIT 
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AUTHOR  Sy  stei 


P ha  & i 


— ATHaLSTE  — 


RhM  ** 
RhM  ** 
RhM  ** 
RhM  ** 
RhM  ** 
RhM  *+ 
RhM  ** 
RhM  ** 
RhM  *+ 
RhM  ** 
RhM  ** 
RhM  ** 
RhM  ** 
RhM  ** 
RhM  *** 
DhFFN 


Subroutine  hmmiiih  »»»»»»»«■ 
Abstract  > 

This  routine  will  scan  sear 
and  insert  special  characte 
location  specified  by  buffe 
Variables  > 

R4  > lookup  tbl  row  indx  ! 
X6  > rtrn  row  indx  r,n  O ! 
Xa  > max  table  row  indx  ! 
R2*< ) > search  bufr  value  ! 
R6  > decimal  bufr  value  ! 


ch  search  return  buffer 
r into  text  buffer  in 
r value. 

R5  > lookup  tbl  col  indx 
X7  > rtrn  col  indx  on  O 
X9  > max  table  col  indx 
RO*()  > spcl  insert  char 


12b  <R4,RS,Xa,X9,R2*<l),RO*<l 
R6  = FNR ( VAL ( R2* ( 1 ) ) ) 

R6  <>  O 

X€.  * R4  : X7  = R5 


1 2 5 


GOTO  4234 
RhM  ** 

IF 

MAT  COPY 
RhTURN 


R4  = X8 


W6  = 2 

R0*0<i,l>  TO  G2*<  ) <RE,  1' 


THEN  422B 


THEN  4234 


RhM  ENTRY 

RhM  CMPUT  DECMAL  ROS 
REM  NOT  END  OF  TABLE 
RhM  SAVE  END  OF  TABLE 
RhM  SEND  END  OF  LOOP 
RhM  BRNCH  TO  EX  I I 

REM  1TY  OUTPUT 
REM  INSrO  SPCL  CHAR 
RhM  EXIT 


c 
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P ha  s-  e 


ATHSL.ST2 


1 


{ 


AUTHQK  System: 


4237  RkM  ** 

4240  RtM  ** 

4243  HEM  ** 

4246  RtM  *+ 

4249  RtM  ** 

4252  RtM  ** 

4255  RtM  +* 

4258  RtM  ** 

4261  REM  *•* 

4264  RtM 
4267  DEFFN 
4270  SGIO  PRINT 
4273  RETURN 


Subroutine 
Abstract  > 

This  routine  will  print  the  text  string  buffer 
X9$<)  as  specified  by  input  string  parameters. 
Variables  > 

X8  > beging  string  position  ! X9  > length  of  string 


1 2 6 


126  <X8,X9> 
#5  ( AOOO 


,R8*(9) )X9*< )<X8, X9> 


RtM  ENTRY 
REM  PRINT  TEXT 
REM  EXIT 


STRING 


+.0 


I— ICJf-i  S x e.  -t  e-m  r F*  Fi^at  s e> 


— ATHSL-ST^ 


4276 

4279 

4282 

4589 

4588 

4291 

42-34 

42-37 

4300 

4303 

4300 

4309 

4312 

4315 

4318 

4321 

4324 

4327 

4330 

4333 

4336 

4339 

4342 

4345 

4348 

4351 

4354 

4357 

4360 

4363 


Subroutine 
Abstract  > 

This  routine  will  test  the  tape  uni 
Variables  > 

W4*  > underscor  status  flag  ! W6*  > 
W6  > output  device  flag  ! 


RtM  *•» 

RtM  ** 

REM  ** 

REM  ** 

RtM  ** 

REM  ** 

RtM  ** 

RtM  ** 

RtM  ** 

REM 
DEFFN  ' 127 

♦GIO  TST  ON  ( 6CF 5440086077 105 1 22 1 4000 , R8$ ( 9 > 
♦IF  ON  /07B,  4363 

W4t  - « - 

W6*  = " * 

W6  = 8 

<11,10,0,0) 

4354,  " " 

/005  <R8^<4,,R8^<9> ) 

<13,1,0,0) 

4357,  “ " 

/005  <R8S<4),R8^<9) ) 

4312 


1 2 7 

t for  ready  status, 
special  char  scan  flag 


GOSUB  ' lOl 
PRINTUSING 
♦GIO  TONE 
GOSUB  ' 101 
PRINTUSING 
♦GIO  TONE 
GOTO 
REM  ** 

REM  *•* 

RtM  ** 

X # * * * * 

% # Touch 
REM  ** 
RETURN 


RtM  ENTRY 

REM  SEND  TEST  SIGNAL 
RtM  TAPE  READY 
RtM  CLR  SCAN  FLAG 
REM  CLR  SCAN  FLAG 
REM  SET  FOR  ERR  RECVRY 
RtM  POSITION  CUSUR 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  POSH  ION  CUSUR 
REM  PH  I NT  ERR  MSG 
REM  PAUSE  TONE 
REM  CONT  TEST 


TAPE  UN 11  NOT  READY 


'RESET' 


Then  Type  RUN  1500 


OUTPUT  IMAGE  FORMATS 

and  Touch  'RETURN' 

: RtM  EXIT 


O 
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n 


r 
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4366  HEM  ** 

4369  REM  ** 

4375  REM  **  Abstract  > 

4376  REM  **  This  routine  will  test  the  printer  for  ready  status. 
4361  REM  **  Variables  > 

4364  REM  **  R8*< ) > i/o  micro  command  buffer  ! 

4387  HEM  ** 


4333 

DEFFN  ' 128 

REM 

ENTRY 

4 336 

tG 10  READY 

#5  <4100  ,R8*<9>> 

REM 

SEND  CTL  CHAR 

4399 

*IF  ON 

#5,  4417 

REM 

DEVICE  READY 

4402 

GOSUB  ' 101 

<11, 10,0,0) 

REM 

PUSH  ION  CUSUR 

4405 

PN1NTUS1NG 

4432,  " * 

REM 

PRINT  ERR  MSG 

4408 

*GI0  PAUSE 

/005<R8*<4),R8*<9) ) 

REM 

ERROR  TONE 

4411 

COSUB  7 101 

<11,10,1,0) 

REM 

ERASE  ERR  MSG 

4414 

GOTO 

4396. 

REM 

CONT  READY  TEST 

4417 

PRINT 

HEX  < 030A0A0A0A0A0A ) 

REM 

CLR  CONSOLE  DEV 

4420 

4423 

PRINTUSING 
REM  ** 

4435,  * “ 

REM 

PRINT  INSTRUCT N 

4426 

4429 

REM  ** 

HEM  ** 

OUTPUT  IMAGE  FORMATS 

4432 

X * 

* * * LINEPR INTER  IS  NOT  READY  * * 

* * 

4435 

4436 

X * * * * FOLLOW  INSTRUCTIONS  ON  OUTPUT  DEVICE 
HEM  ** 

4441 

RETURN 

: REM 

EXIT 

o 


AUTHOR 

Sy  em  : 

F*  ha  s & 

s - 

/s.TM2£l_£3T2E!  — X 

4444 

REM  ** 

4447 

REM  ** 

4450 

REM  ** 

Subroutine  JHHMI  1 2 

4453 

REM  ** 

Abstract  > 

4456 

REM  ** 

This  routine  will  display 

the  alignment 

instructions 

4459 

REM  ** 

on 

the  lineprinter. 

4463 

REM  ** 

Variables  > 

4465 

REM  ** 

X7 

> temp  text 

bufr  indx 

! X9*<) 

> temp 

text  bufr 

4468 

REM  ** 

R0$( ) > char  input  buf r 

1 

— 

4471 

REM  ** 

4474 

REM  ******^**^^**^************^********-*Hfr*** 

4477 

DEFFN 

' 129 

REM 

ENTRY 

4480 

GOSUB 

4672 

REM 

IN1T  TEXT  BUFFR 

4483 

GOSUB 

' 126 

( 34,12) 

REM 

VERT  TAB 

4486 

GOSUB 

' 126 

( 46,30) 

REM 

LEFT  ARROWS 

4489 

GOSUB 

' 126 

(361,  5) 

REM 

HORZ  TAB 

4492 

GOSUB 

' 126. 

(136. 30) 

REM 

TEXT 

4495 

GOSUB 

' 126 

( 91,30) 

REM 

RIGHT  ARROWS 

4498 

GOSUB 

' 126 

( 91,35) 

REM 

RIGHT  ARROWS 

4501 

GOSUB 

' 126 

( 44,  2) 

REM 

CRLF 

4504 

REM  ** 

4507 

GOSUB 

' 126 

(181,30) 

REM 

LEFT  MARGIN 

4510 

GOSUB 

' 126 

(226,40) 

REM 

SIZE 

4513 

GOSUB 

' 126 

(361,35) 

REM 

HORZ  TAB 

4516 

GOSUB 

' 126 

(316,25) 

REM 

RIGHT  MARGIN 

4519 

GOSUB 

' 126 

( 44,  2) 

REM 

CRLF 

4522 

REM  ** 

4525 

GOSUB 

' 126 

(361,00) 

REM 

HORZ  TAB 

4528 

GOSUB 

' 126 

(181,30) 

REM 

LEFT  MARGIN 

4531 

GOSUB 

' 126 

(271,20) 

REM 

SIZE 

4534 

GOSUB 

' 126 

(316,25) 

REM 

RIGHT  MARGIN 

4537 

GOSUB 

' 126 

( 44,  2) 

REM 

CRLF 

4540 

REM  ** 

4543 

REM  ** 

4546 

GOSUB 

4726 

REM 

INI T TEXT  BUFFR 

4549 

GOSUB 

' 126 

<285, 10) 

REM 

HORZ  TAB 

4552 

GOSUB 

' 126 

(406,40) 

REM 

HORZ  LINE 

4555 

GOSUB 

' 126 

(406,40) 

REM 

HORZ  LINE 

4558 

GOSUB 

' 126 

( 44,  2) 

REM 

CRLF 

456.1 

REM  ** 

4564 

FOR 

X7  = 2 TO  9 

REM 

BEG  LINE  LOOP 

4567 

GOSUB 

' 126 

(285,30) 

REM 

HORZ  TAB 

4570 

GOSUB 

' 126 

( ( (X7-1>*45)+1,LEN(X9*<X7) ) ) 

REM 

TEXT 

4573 

GOSUB 

' 126 

( 44,  2) 

REM 

CRLF 

4576 

NEXT 

X7 

REM 

CONT  LINE  LOOP 

4579 

REM  ** 

4582 

GOSUB 

' 126- 

(285, 10) 

REM 

HORZ  TAB 

4585 

GOSUB 

' 126 

(406,40) 

REM 

HORZ  LINE 

4588 

GOSUB' 

' 126 

(406,40) 

REM 

HORZ  LINE 

4591 

GOSUB 

' 126 

< 44,  2) 

REM 

CRLF 

G 
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4594  REM  ** 
4597  REM  ** 


46.00 

G0SU8  4786 

REM 

INIT  TEXT  BUFFR  3 

4603 

FOR 

X7  = 2 TO  8 

REM 

BEGIN  LINE  LOOP 

4606 

GOSUB  ' 126 

(361,30) 

REM 

HORZ  TAB 

4609 

GOSUB  ' 126 

( ( (X7-1)*45)+1,LEN(X9*(X7) ) ) 

REM 

TEXT 

4612 

GOSUB  ' 126 

( 44,  2) 

REM 

CRLF 

4615 

NEXT 

X7 

REM 

CGNT  LINE  LOOP 

4618 

REM  ** 

4621 

REM  ** 

4624 

tGIO  TOP 

#5  (400C  ,R8*(9>) 

REM 

ISSUE  FORM  FEED 

4627 

KEY  IN 

R0*<1),  4642,  4627 

REM 

RESPONCE  WAIT 

4630 

IF 

RO$( 1 ) = HEX (81 ) 

THEN 

4627 

REM 

NO  TONE 

4633 

*GIO  TONE 

/005  (R8*(4),R8*(9) ) 

REM 

PAUSE  TONE 

4636 

GOTO 

4627 

REM 

CONTINUE  WAIT 

463-3 

REM  ** 

4642 

IF 

ROt ( 1 ) = HEX ( 84 ) 

THEN 

4480 

REM 

REPRINT  PAGE 

4645 

IF 

R0*(1)  = HEX ( 81 ) 

THEN 

4627 

REM 

SHUT  OFF  TONE 

4648 

RETURN 

REM 

EXIT 
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COMPUTER-AIDED  AUTHORING  SYSTEM  (AUTHOR)  USER'S  GUIDE.  VOLUME  I— ETC (U) 
JUN  78  C R GUITARD 

UNCLASSIFIED  TAEG-59-VOL-2  NL 


m 

mn 

El 

F ' 
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\ r-  IIP. 

fl- 

it 

1 n iMtrt 

If  2 

li»l 
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|.  ■ lift 
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L 
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-g 
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II 
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& 
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-i 

1 
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t 

t 

IB 

l 
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IK 

1 

. it** 

' Mill*- 

U IF  -Si 

■ !!•■ 

I'  - 

r. 

H 

AUTHOR  Sy  s t ern  ! 

465 1 RtM  *+ 

4654  REM 

4657  RtM  **  Subroutine  ♦* 
4E-60  RtM  **  Abstract  > 
4663  RtM  **  This  routine 
4666  REM  ** 

467 2 IN1T  <201  X9*<  > 

4675  INIT  <0A)  X9*<01 > 

4678  INIT  <0U>  STR(X9*U 
4681  INIT  <"<*)  X9*<02> 

4684  INIT  <“>")  X9*<03> 


P ha  s-  d 


— ATH2LST2 


1 2 9.1 


This  routine  will  load  text  buffer  with  text  group  1 


4678  INIT  <C 

4681  INIT  <" 

4684  INIT  <“ 

4687 

4690 

4693 

4696 

4699 

4702  RETURN 


X9*<  ) 

X9*<01 ) 

STR(X9*<1),45, 1) 
X9*<02> 

X9*(03) 

X9*<04>  = “Align 
X9*<05>  = *««<■ 
X9*(06)  = “14  7/1 
X9*(07)  = "08  1/i 
X9*<08)  = "Right 


RtM  LOAD  TEXT  BUFR  1 


-Align  to  Sixth  Paper  Hole* 

-<<<<< Left  Margin" 

■14  7/8  X 11" 

*08  1/2  X 11- 

"Right  Margin »»>" 

: REM  EX I) 
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AU'I  HUR  System:  Pha  b o 2 — ATH2I — &>1  2 

4705  REM  ** 

4708  HEM  **  miwiiKiiiiiiitMiniitiiwwiiitiimiMMKiiiimiiiiiim 

4714  REM  **  Abstract  > 

4717  REM  **  This  routine  will  load  text  buffer  with  text  group  2 
4720  REM  ** 


1 2 9.2 


4723 

REM  ** 

HHHHHH 

JWMWUWMWHl 

*** 

4725 

INIT 

<20> 

X9*<  ) 

472*3 

IN1T 

(OA) 

X9*<1) 

4732 

INIT 

<oo> 

STR  < X*3t  ( 1 ) 

4735 

INIT 

<2D) 

X9*<10> 

4738 

X9*<2> 

as 

4741 

X9*<3) 

= 

4744 

X9*<4) 

= 

4/47 

X9*<  5) 

“ 

4750 

X9*<5) 

= 

4753 

X9*<7> 

= 

4755 

X9»(8) 

= 

4759 

X9*<9> 

= 

: REM  LOAD  TEXT  BUFR  2 


45,1) 


RETURN 


This  page  should  now  be  aligned" 
to  the  desired  position..." 

To  Continue  to  print  THIS  PAGE" 
TOUCH  the  'CONTINUE'  Key." 

To  Begin  Listing  TOUCH  the" 
'RUN'  Key." 

This  page  should  appear  on" 
an  UPWARD  Facing  Page." 

: REM  EX IT 


WCSH9 


/SLJ‘1  HCJR  n't  ei 


f=>  I-..E3 


— ATHSLS1  c± 


4765  REM  ** 
4768  REM  ** 
4771  REM  *+  Su 
4774  REM  **  Ab 
4777  REM  ** 

4780  REM  ■** 

4783  REM  ****** 
4786  IN1T  <20> 
4789  1N1T  <0A) 
4792  IN1T  <00) 


Abstract  > 

This  routine  will  load  text  buffer  with  text 


group 


X9*<>  : REM  LOAD  TEXT  BUFR 

X9*< 1 ) 

STR<  X9*< 1 ) , 45, 1 ) 

X9*(2)  = "Special  Instructions  for  Underscoring:1 

X9*<3>  = Single  Page  Overlaying:  At  the" 

X9*<4)  - " sound  of  the  tone,  position  page" 

X9*<5)  - “ two  inches  above  top  of  form." 

X9*<6)  - “ — Multi  Page  Overlaying:  At  the" 

X9*(7)  = " sound  of  the  tone,  position  paper" 

X9*<8>  = " to  this  page  and  position." 

: REM  EXIT 


RETURN 
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AU'I  UC)R  System:  Pha&e  S 


ATHi>l_ar£i  — # MAH 


V- 


4078 

- 

4078 

4081 

- 

4078 

4096 

- 

4087 

4105 

- 

4096 

4114 

- 

4105 

4141 

- 

4057 

4144 

4060 

4147 

- 

4063 

4150 

- 

4066 

4153 

- 

4075 

4159 

- 

4033 

4228 

- 

4213 

4234 

- 

4222 

4312 

- 

4342 

43V* 

- 

4327 

4357 

- 

4336 

4363 

- 

4312 

43-96 

- 

4414 

Vi  17  - 4399 

443 2 - 4405 

4435  - 4420 

4480  - 4642 

4627  - 4627  4630  4636  4645 

4642  - 4627 

4672  - 4480 

4726  - 4546 

4786  - 4600 


c 


AUI HQR  System:  Phase 


— ATH2L.Sra  — V MAI- 


02*  < 

- 

4231 

R0*( 

- 

4078 

4087 

4096 

4105 

4207 

4231 

4627 

4630 

4642 

IT 

R2«( 

- 

4207 

4210 

R4 

4207 

4216 

4219 

R5 

- 

4207 

4216 

4219 

R6 

- 

4210 

4213 

4231 

R8*< 

- 

4270 

4309 

4330 

4339 

4396 

4408 

4624 

4633 

W4* 

- 

4120 

4315 

W6 

- 

4117 

4228 

4321 

W6* 

- 

4033 

4036 

4039 

4042 

4084 

4090 

4099 

•t- 

M 

o 

oc 

4114 

4318 

X6 

- 

4216 

X7 

- 

4216 

4564 

4570 

4576 

4603 

4609 

4615 

X8 

- 

4207 

4219 

4267 

4270 

X9 

- 

420/ 

4219 

4267 

4270 

X9*< 

- 

4270 

4570 

4609 

4672 

4675 

4678 

4681 

4684 

4687 

4690 

4729 

4732 

4735 

4738 

4741 

4744 

4747 

4750 

4753 

4756 

4795 

4798 

4801 

4804 

4807 

4810 

4813 

4693  4696 
4759  4786 


46-39 

4789 


4726 

4792 


o 


AU'I  HOR  Sy  E.-tem:  Phase  c!  — ATHaLSTci  — ' MAP 

????  DEFFN'  101 

- 4051  4072  4324  4333  4402  4411 
????  DEFFN'  118 

- 4129 

4030  DEFFN'  124 
4207  DEFFN'  12b 
4267  DEFFN'  126 

- 4483  4486  4489  4492  4495  4498  4501  4507  4510  4513  4516  4519  4525  4528 
4531  4534  4537  4549  4552  4555  4558  4567  4570  4573  4582  4585  4588  4591 
4606  4609  4612 

4306  DEFFN'  127 
4393  DEFFN'  128 
4477  DEFFN'  129 
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4.7.3 


TAEG  Report  No.  59 


ATH2LST3 

This  section  of  the  'ATH2LSTP'  program  contains  subroutines 
130  to  134. 

The  remainder  of  this  section  presents  the  'ATH2LST3' 
program  listing  and  reference  maps. 
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AUTHOR  Sy&tem 


P ha  s- 


ATH2LST 3 


13  0 


> 


1 


< ATH2LST3)  Version 


Abstract  > 

To  search  disk  index  for  data  item  ID. 


5000  X ##  Program  > AUTHOR /2 
5004  REM  ** 

5008  REM  ** 

5012  REM  **  Subroutine  **** 
5016  REM  **  Abstract  > 

5020  REM  **  To  search  dish 


2200  T/VP  780321 


5024 

REM 

Variables 

> 

5028 

REM 

*•* 

14 

> 

itm  srch  fig 

! 15 

> 

indx 

sctr  adrs 

5032 

REM 

R9 

> 

scratch  indx 

! 08* ( ) 

> 

index 

buf  r 

5036 

REM 

** 

15* 

search  ID 

! 11 

> 

item 

ID 

5040  REM  ** 

5044  REM  *** 

5048  DEFFN 

5052 

5056 

5060 

5064  FOR 


130  (14) 

BIN(STR(S5*, 1, 1 ) )=INT( 14/256) 
BIN(STR(S5*,2, 1) )=I4-INT< 14/256 )*256 
14  = O 

DO  = 1 TO  10 


REM  ENTRY 

REM  CMPUT  BINARY  ID 
REM  CMPUT  BINARY  ID 
REM  INIT  SUBSCTR  INDX 
REM  BEG  INDX  LOOKUP 


5068 

DATA  LOAD 

BA  T #2.  <D0,D9)  08*0 

5072 

MAT  SEARCH 

Q8*< ),=STR(S5*, 1,2)  TO 

R2*<  ) 

STEP  4 

5076 

IF 

R2*( 1 ) = HEX (OOOO) 

THEN 

5096 

5080 

14  = INT(FNR(VAL(R2*( 1 > > )/2) 

♦ 

1 

5084 

D1  = DO 

5088 

D2  = 14 

5092 

DO  = 10 

50-36 

NEXT 

DO 

5100 

RETURN 

REM  LOAD  INDEX  SCTR 
REM  SRCH  INDX  SCTR 
REM  ITEM  NOT  FOUND 
REM  CMPUT  SBSCRT  INDX 
REM  SAVE  SCTR  ADRS 
REM  SAVE  SUBSCRT  INDX 
REM  SET  INDX  LOOP  END 
REM  END  OF  INDX  LOOKUP 
REM  EXIT 


AUIHOR  System 


P ha  s-  c 2 


ATH3LST U 


13  1 


5104 

BIOS 

5112 

5116 

5120 

5124 

5128 

5132 

5136 

5140 

5144 

5148 

5152 

5156 

5160 

5164 

5168 

5172 

5176 

5180 

5184 

5188 

5192 

5196 

5200 

5204 

5208 

5212 

5216 

5220 

5224 

5228 

5232 

5236. 

5240 

5244 

5248 

5252 

5256 

5260 

5264 


REM  ** 

RtM  ** 

REM  **  Subr 
REM  +*  Abst 
RtM  **  To 
RtM  **  se 
RtM  **  Van 
RtM  **  Ri 
RtM  **  R 
RtM  **  Qi 

RtM  **  R 
RtM  **  R 
REM  *■* 

REM  *-*  •*-**■**■*■ 
UEFFN  ' 131 
INIT  <20) 

IF 

DATA  LOAD 
MAT  CORY 
IF 

MAT  SEARCH 
IF 

GOSUB  ' 101 
HR  I NT 


GOSUB 
GOTO 
RtM  ** 


Abstract  > 

To  load  storage  buffer  from  disk 
sector  address. 

Variables  > 

RO*  > begning  sctr  adrs  ! RO 

R3*  > scrtch  indx  adrs  ! R2 

00*0  > transfer  buffer  ! 06< 

Rl*( ) > storage  buffer  ! R2i 

Rl  > item  id  ! 


• 13  1 


liven  begining 


bufr  indx 
• indx  item  fig 
> bufr  flag 
) > sr ch  rsults 


GOTO 
REM  ** 

MAT  COPY 

RETURN 


(RO*, RO, I 1 , tl ) 

Rl*<  > 

El  = O THEN 

RO  * 1 

BA  T #2,  <R0*,R3*>  09*0 
09* ( ) <1 , 252>  TO  Rl*( ><R0,252> 
09* (64)  <>  HEX  < FFFFFFFF ) THEN 
Rl*<  >,  = R5*<2>  TO  R2*< ) 

R2*( 1 ) <>  HEX(OOOO)  THEN 

(16,1,1,0) 

" DATA  IMMPRCIPERLY  STORED' 

R8*  = “99“ 

R7*  - 'Subroutine  105" 


RO  + 252 

STR ( 09* ( 64 ) , 3, 2 ) 

252 

9 

252 


RO  = FNR(VAL(R2*(1>)> 

R5*( )<1, 1>  TO  Rl*( > <R0, 1> 
El  = O 


: REM  ENTRY 
: REM  CLR  TEXT  BUFFER 
: REM  NULL  LOOKUP 
: REM  SET  BUFR  INDX 
: RtM  LOAD  DATA 
: RtM  LOAD  BUFFR 
: REM  NOT  END  OF  BUFR 
: REM  SRCH  FOR  E01 
5 RtM  E01  FOUND 
: REM  POSITION  CUSUR 
: REM  PRNT  ERR  MSG 
: REM  SET  ERR  CODE 
: REM  SET  ERR  SOURCE 
: REM  ERR  PROCESSING 
: REM  BRNCH  TO  EXIT 

: REM  I NCR  BUFR  INDX 
: REM  STOH  NXT  ADRS 
: REM  BUFR  NOT  FULL 
: REM  SET  FLAG 
: REM  SET  TO  BUF  MAX 
REM  BRANCH  TO  EXIT 

: REM  CMPUTE  BYTE  STORED 
: RtM  CLR  EOI  BYTE 
: REM  SET  FLAG 
: REM  EXIT 


/NLJ  I llOf?  Sy&t  cm 


P ha  S3,  t? 


ATHSLST 13 


1 3 


5268  REM  *•* 
5272  RtM  ** 
5276  RtM  ** 
5280  RtM  *•* 
5284  RtM  ** 
5286  RtM  ** 


Subroutine 
Abstract  > 

To  create  a block  of  text  form  storage  buffer  in 
to  the  page  buffer. 


1 3 2 


5288 

REM 

*•* 

Variable 

'S 

> 

5292 

RtM 

Rl*( ) 

> 

storage  bufer  ! 

03 

> 

begin  line 

5296 

RtM 

** 

R2*<  ) 

> 

search  buffer  ! 

04 

> 

dflt  left  mrgn 

5300 

REM 

R5*<  ) 

\ 

search  id's  ! 

Q5 

> 

dflt  right  mrgn 

5304 

RtM 

06  < ) 

V. 

flags  ! 

06 

> 

buffer  pointer 

5308 

HEM 

*"* 

02*  ( ) 

> 

page  buffer  ! 

07 

V 

s 

length  of  word 

5312 

RtM 

RO* 

V. 

begin  sctr  adrs  ! 

R1 

s. 

item  id 

5316 

RtM 

•** 

10 

> 

spaces  to  indent! 

5320 

REM 

5324 

5328 

5332 

5336 

5340 

5344 

5348 

5352 

5356 

5360 

5364 

5368 


RtM 
DtFFN 


132 


MAT  StARCH 

IF 

IF 

GOSUB 
GOTO 


107 


<Q3,04,Q5,R0*, 10) 

06  = 1 
07  = 0 

01  = 03 

02  = 04 

R 1*0  <06, 256-06+ 1>,<>RS* 
R2*( 1 ) <>  HEX(OOOO) 

El  <>  9 
<E1, II ) 

06  = 1 
5348 


(1)T0  R2*() 
THEN  5372 
THEN  5400 


RtM  ENTRY 
REM  IN1T  BUFR  INDX 
RtM  INIT  WORD  LENGTH 
RtM  INIT  LINE  INDX 
REM  INIT  COL  INDX 
REM  SRCH  FOR  CHAR 
RtM  IF  BUFR  NOT  EMPTY 
REM  BLOCK  DONE 
RtM  LOAD  REST  OF  ITEM 
REM  RESET  BUFR  INDX 
REM  BRNCH  TO  SRCFI 


5369 

5372 

REM  ** 

5376 

5380 

MAT  SEARCH 

5384 

MAT  COPY 

5388 

53-32 

GOSUB  ' 133 

5396 

GOTU 

5400 

RETURN 

06  " F NR  < VAL  ( R2*  ( 1 ) ) ) + Q€.  - 1 

R 1 * ( ) <06 , 256-06+ 1 > , =R5* ( 1 ) TO  R2*() 

07  = FNR  < VAl_  < R2*  < 1 ) ) ) 

Rl*(  )<Q6,Q7>  TO  R3*(X1,Q7> 

<01,04, 05,07, R3*< 1 ) , 10) 

06.  = 06  + Q7  - 1 
5348 


REM  C.MPUT  BUFR  POS 
REM  SRCH  FOR  WORD  END 
RtM  WORD  LENGTH 
REM  EXTRACT  WORD 
RtM  LOAD  WORD  ONTU  PAG 
RtM  I NCR  BUFR  INDX 
RtM  RRNC  TO  WRD  SRCH 
REM  EXIT 
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AU THCJR  S ; 


. -t  om  : F*  |-»^di  & e> 


— 1 


5404  HEM  ** 
5408  RtM  ** 
5412  REM  ** 
5416  RtM  ** 
5430  RtM  ** 
5434  RtM  ** 
5428  RtM  *■» 
5432  RtM  ** 
5436  RtM  ** 
5440  REM  ** 
5444  RtM  ** 
5448  RtM  *** 


Subroutine  «*  k « * «»-»«»»-innt*)nnn>»«-inHnnnn(»»-innHnnnt-innHHHt 
Abstract  > 

To  format  the  input  word  withen  margins  and 
to  control  page  formatting  and  storage  control. 
Variables  > 

01  > current  row  indx  ! Q2  > current  col  indx 
Q4  > left  margin  '!  Q5  > right  margin 

10  > spaces  to  indent  ! 


5452 

DEFFN  ' 

133 

<Q1,G4,QS,Q7,R3*<1), lO) 

RtM 

ENTRY 

5456 

IP 

Q2+Q7-1  Q5 

THEN 

in 

ru 

RtM 

WORD  EITS  ON  LINE 

5460 

Q1  = Q1  + 1 

RtM 

INCH  LINE  INDX 

5464 

02  - 04  + 10 

REM 

SET  LEFT  MAR1CN 

5468 

1F 

Qi  < 26 

THEN 

bASc! 

RtM 

NOT  LAST  LINE 

5472 

01  = 2 

RtM 

SET  TO  T-O-F 

5476 

G0SU8  ' 

108 

(3) 

RtM 

PRINT  BUFFER 

5480 

IN1T  <20) 

02*  < ) 

REM 

CLR  PAC  BUFR 

5484 

COSUB  ' 

106 

(1,1,0, H8* (H8) ) 

REM 

RE-PRINT  HEADK 

5488 

GUSUB  ' 

106 

<1,50, 1,HEX(0E) ) 

REM 

CONTINUE  MSG 

5492 

GOSUB  ' 

106. 

(01 , 02, 07, R3*< 1 ) ) 

RtM 

WRITE  WORD 

5496 

02  = 02  + 07 

RtM 

I NCR  COL  INDX 

5500 

RETURN 

REM 

EXIT 

f 


1 


System:  Pha>G£?  2 — ATH2LST3  — 1 3 A 


Subroutine  j 3 /, 

Abstract  > 

This  routine  will  load  page  buffer  with  a title 
and  format  the  data  base  item  on  the  page. 

Variables  > 

II  > item  ID  ( H8  > title  bufr  index 

01  > page  bufr  line  indx  ! 14  > lookup  return  index 

D2  > indx  buffer  indx  ! Q2$()  > page  buffer 

Q8«()  > disk  indx  buffer  ! 10  > expand  title  flag 

5bb2  REM 


5556 

UtFFN  ' 

134 

<10, I1,H8,N1*> 

RtM 

ENTRY 

5560 

IF 

Q1  < 25 

THEN 

5580 

RhM 

IF  SPACE  ON  PAGE 

5564 

GOSUB  ' 

108 

(3) 

REM 

PRINT  PAG  ON  LPT 

556-8 

INI  1 <20) 

Q2*<  ) 

REM 

CLR  PACE  BUFFER 

5572 

Q1  = 1 

REM 

RESET  LINE  INDX 

5576 

REM  ** 

5580 

GOSUB  ' 

130 

(ID 

REM 

PERFORM  DSK  LUKUP 

5584 

IF 

14  = 0 

THEN 

5616 

REM 

ITEM  NOT  FOUND 

5588 

IF 

10  = 0 

THEN 

5596 

RtM 

DO  NOT  EXPAND  TITL 

5592 

GOSUB  ' 

106 

<01,50, 1,HEX(0E) ) 

REM 

INSRT  EXPAND  FLAG 

5596 

GOSUB  ' 

106 

<Q1, 1,0,H8*(HS) ) 

REM 

INSRT  HEADING 

5600 

01  = 01  + 1 

REM 

I NCR  LINE  INDEX 

5604 

COSUB  ' 

131 

<Q8*(D2+1),R0,11,1> 

REM 

FETCH  DATA  ITEM 

5608 

GOSUB  ' 

132 

<01, 11,70, R0*,0> 

^EM 

INSRT  DATA  ITEM 

5612 

01  = Q1  + 2 

».EM 

INCH  LINE  INDX 

5616 

RETURN 

REM 

EXIT 

AU I HOR 


bb04 

5b08 

5512 

5516 

5520 

5524 

5528 

5532 

5b3€. 

5540 

Sb44 

5b4S 


RtM  ** 
RhM  ** 
RtM  ** 
RhM  ** 
RtM 
RtM  ** 
RtM  ** 
RhM  ** 
RtM  *•* 
RtM  +•* 
RhM  *> 
REM  *■* 


v / 


AU'I  HCJR  System: 


Phase  a — ATH3LST3  — # 


5096 

- 

5076 

5176 

- 

5232 

5254 

- 

5184 

5252 

- 

5192 

5264 

- 

5168 

5216  5244 

5348 

“ 

5368 

5396. 

5372 

- 

5352 

5400 

- 

5356 

5492 

5456 

5468 

5580 

- 

5560 

5596 

- 

5588 

5616 

- 

5584 

o 
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AU1 HQR 

Sy 

e.  -fc  L'm  s 

P |-«-£3  & 1 

i?  a 

ATH3LSr3  ■ 

- V MAI 

DO 

- 

5064 

5068 

5084 

5093 

5096 

D1 

- 

5084 

Da 

5088 

5604 

D9 

5068 

El 

- 

5160 

5168 

5336. 

536.0 

5356 

536.0 

H8 

- 

5484 

5556 

5536 

H8*< 

- 

5484 

5536 

10 

- 

53aa 

5388 

5453 

5464 

5556 

5588 

11 

- 

5160 

536.0 

5556 

5580 

5604 

I A 

- 

5048 

5053 

5056 

506.0 

5080 

5088 

5584 

Nl* 

5556 

Q1 

- 

5340 

5388 

5453 

5460 

5468 

5473 

5493 

5560 

5573 

5593 

5596  5600 

5608  5613 

Qa 

- 

5344 

5456 

5464 

5493 

5496 

oa*( 

- 

5480 

5568 

Q3 

- 

S3a8 

5340 

04 

- 

5338 

5344 

5388 

5453 

5464 

Q5 

- 

5338 

5388 

5453 

5456 

06 

- 

5333 

5348 

5364 

5373 

5376 

5384 

5393 

Q7 

- 

5336 

5380 

5384 

5388 

53-93 

5453 

5456 

5493 

54-96 

08*  < 

- 

5068 

5073 

5604 

09*  < 

- 

5176 

5180 

5184 

5338 

R0 

- 

5160 

5173 

5180 

5334 

5333 

5340 

5353 

5356 

5604 

R0* 

- 

5160 

5176 

5338 

5338 

5608 

Rl*< 

- 

5164 

5180 

5188 

5356 

5348 

5376 

5384 

R3*< 

- 

5073 

5076 

5080 

5188 

5193 

5353 

5348 

5353 

5373 

5376 

5380 

R3* 

- 

5176 

R3*< 

- 

5384 

5388 

5453 

5493 

R5*< 

5188 

5356 

5348 

5376 

R7* 

5308 

RS* 

- 

5304 

S5* 

- 

5053 

5056 

5073 
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ATH2LST4 

iSmo'isI0"  0f  the  'ATH2LSTP'  P^oraro  contains  subroutines 

The  remainder  of  this  section  presents  the  'ATH2LST4' 
program  listing  and  reference  maps. 
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AU  I HQR  Sy  s-tE-m:  P h-a < 


— ATH2LS  I 


Program  > AUTHOR/3  < ATH3LST 4 ) Version  > a.O  3300  T /VP  780331 


Subroutine  «*»*»»*»*«  n »■*  19  0 

Abstract  > 

This  is  a general  nine  track  utility  package.  This 
Routine  will  perform  the  following  functions  > 

1 - < BSP  > - Backspace  one  File; 

a - < BSR  > - Backspace  one  Record  (read  ready); 

3 - < BSW  > - Backspace  one  Record  (write  ready); 

4 - < CLEAN>  - Clean  local  area  on  tape; 

5 - < FSF  > - Space  forward  one  File; 

6 - < FSR  > - Space  Forward  one  Record; 

7 - < READ  > - Read  Record; 

8 - <REREAD>  - Backspace  and  Read  Record; 

9 - <REWIND>  - Rewind  tape  to  Load  point; 

10  - < WEOF  > - Write  End  Of  File  mark; 

11  - < WGAP  > - Write  Inter  Record  Gap; 

12  - < WRITE>  - Write  Record. 

A scan  for  1/0  errors  will  be  performed  according  to 
the  following  index  > 

1 - Data  Input/Output  errors  (7,13,8) 

3 - Position  errors  ( 1 , a, 5,E,9, 4) 

3 - Control  Output  errors  (10,11,3) 

4 - No  error  processing 

A error  index  is  returned  in  variable  > Z3 
Values  of  Z3  are  > 0 Fatal  Error 

1 - Tape  at  Load  Point 

a - Tape  is  Write  Disabled 
3 - End  of  Tape  Sensed 


Fatal  Error 
Tape  at  Load  Point 
Tape  is  Write  Disabled 
End  of  Tape  Sensed 
End  of  File  Sensed 


Variables  > 

Z1  > Function  index 
Z3  > return  error  index 
Z5  > suppress  error  mesg 
Zl*()  > micro  cmnd  buffer 
W3*( ) > i/o  buffer 


! Z3  > error  index 
! Z4  > transfer  buffer  size 
! Z6  > device  table  indx 
! Z2$()  > error  mask  buffer 


0 
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61 S6 

DEFFN 

' 190 

(Z1,Z5,Z3, 

Z4, 25, Z6) 

REM 

ENTRY 

6160 

DIM 

Zl*(13)10, 

25* < 15)1, Z3*40 

REM 

DEFINE 

WORK  BUFRS 

6164 

DEFFN 

Z ( Z ) =556*VAL ( STR ( Z 1 * ( Z ) , 9, 1 ) )+FNY<Z)- 

REM 

DEFINE 

FUNCTION 

6168 

OhFFN 

Y(Y)=VAL(STR(Z1*(Y), 10, 1) ) 

RtM 

DEFINE 

FUNC1 IUN 

617^ 

StLEC  r 

TAPE  07B 

REM 

SEL  TAPE  DEVICE 

6176 

Zl*( 

1)  » 

HEX  < 6CF 344008607 ) 

REM 

DEFINE 

MICRO  CMND 

6180 

Zl*( 

5)  ~ 

HEX (6CP 144008607) 

REM 

DEFINE 

MICRO  CMND 

6184 

Zl*( 

3)  * 

HEX  < 6CF 044008607  > 

REM 

DEFINE 

MICRO  CMND 

6188 

Zl*( 

4)  = 

HEX  < 6CF744008607 ) 

REM 

DEFINE 

MICRO  CMND 

6195 

Zl*( 

5)  = 

HEX ( 6CF 444008607 ) 

RtM 

DEFINE 

MICRO  CMND 

6196 

Zl*( 

6)  = 

HEX  < 6CI-  544008607 ) 

REM 

DEFINE 

MICRO  CMND 

6500 

Zl*( 

7)  = 

HEX  < 6CFB4400C 555860 7 ) 

REM 

DEFINE 

MICRO  CMND 

650 'i 

Zl*( 

8)  = 

HEX  < 6Ct-  844000 555860 7 ) 

REM 

DEFINE 

MICRO  CMND 

6508 

Zl*( 

9)  = 

HEX ( 6CK 544008607 ) 

RtM 

DEFINE 

MICRO  CMND 

6515 

Zl*(10)  = 

HEX ( 6CF94 400860 7 > 

REM 

DEFINE 

MICRO  CMND 

6516 

Zl*(ll)  = 

HEX  < 6CF 644008607 ) 

REM 

DEFINE 

MICRO  CMND 

6550 

Zl$( 15)  = 

HEX  < 6CF  A44 0OA50686O7 ) 

REM 

DEFINE 

MICRO  CMND 

6554 

Z !♦( 13)  - 

HEX ( 1 1553344556600000000 ) 

REM 

DEFINE 

MICRO  CMND 

6558 

RtM  *■* 

6535 

zs*( 

1>  = 

HEX (80) 

: 23%  i 

5)  * HEX ( 40) 

REM 

DEFINE 

ERR  MASKS 

6536 

23%  < 

3>  = 

HEX  < 50) 

: 23%  ( 

4)  = HEX ( 10) 

REM 

DEFINE 

ERR  MASKS 

6540 

za*< 

5)  = 

HEX  < 08 ) 

: 23%  ( 

6)  = HEX ( 04 ) : REM 

DtF  1NE 

ERR  MASKS 

6544 

23%i 

7)  = 

HEX (05) 

: 23%  ( 

8)  = HEX (04 ) 

REM 

DEFINE 

ERR  MASKS 

6548 

23%  ( 

9>  = 

HEX < 05) 

: Z5*(10)  = HEX (01 ) 

RtM 

DEFINE 

ERR  MASKS 

65SS 

RtM  ** 

6556 

♦CIO  TAPE 

<Z1*(Z1 ), Zl*< 13) ) Q5*()<1,24> 

RtM 

EXECUTE  FUNCTION 

6560 

RtM  +* 

6564 

Z3  - 0 

: REM 

CL.R  RETURN  FLAG 

£■568 

RtM  ** 

6575 

RtM  ** 

! I/O  ! 

POS  ! 

CTL  ! NULL 

6576 

REM  ** 

1 - 1 

6580 

ON  25 

GOTO 

65-95  , 

6354  , 

6315  , 6355 

REM 

BRANCH 

€■584 

RtM  ** 

1 « 

£■588 

RtM  ** 

65-95 

GOSUB 

' 191 

(7,5) 

: REM 

RCVRBL 

DAT  ERR 

GOSUB 

' 191 

(8,9) 

REM 

TRANSMIT  DAT  ERR 

6300 

COSUB 

' 191 

(8, 10) 

REM 

DAT  OVERFLOW  ERR 

6304 

GOSUB 

' 191 

(9, 10) 

REM 

DAT  OVR/UNDR  FLOW 

6308 

RtM  ** 

6315 

GOSUB 

' 191 

(7,1) 

: RtM 

IRRCVRBL  DAT  ERR 

6316 

GOSUB 

' 191 

(7,4) 

: RtM 

WRITE  DISABLED 

6350 

RtM  ** 

6354 

GOSUB 

' 191 

(7,3) 

RtM 

BEG  OF 

TAPE 

6358 

GOSUB 

' 191 

(7,5) 

REM 

END  OF 

TAPE 

6335 

GOSUB 

' 191 

(7,6) 

: REM 

END  OF 

FILE 

6336 

GOSUB 

' 191 

(7,7) 

: RtM 

DEV  NOT  READY 

6340 

COSUB 

' 191 

(8,8) 

: REM 

MICRO  CMND  ERR 

6344 

IF 

Z3  = 3 

THEN  6556  : RtM 

REPROC5  RECORD 

6348 

RtM  ** 

6355 

RETURN 

: REM 

EXIT 
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ATH2LST4  — 


6356 

636-0 

6364 

6368 

6372 

6376 


REM  *•* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


6380  REM  ** 
6384  REM  ** 
6388  REM  ** 
6332  REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 


6336 

6400 

6404 

6408 


Subroutine 
Abstract  > 

To  mask  the  GIO  register  buffer  with  error 
mask  buffer  and  display  error  messages  if  any 
Variables  > 

Z5  > supress  non-fatal  msgs 
Z8  > error  index  to  check 
Z'3  > characters  processed 
Z2*()  > error  mask  buffer 
Z3  > return  error  index 


1 9 1 


Z7  > buffer  register 
Z4  > transfer  bufr  size 
Zl*(  > > micro  cmnd  buffer 
23*  > non-fatal  err  msg 
ZO  > multi  volume  flag 


6412 

DEFFN 

' 191 

<Z7,Z8> 

REM 

ENTRY 

6416 

IF 

Z3  <>  0 

THEN 

6608 

REM 

PR I VIDUS  ERR 

6420 

IF 

Z7  <>  9 

THEN 

6456. 

REM 

NOT  COUNT  REG 

6424 

GOSUB 

' 191 

(7,6) 

REM 

EOF  TEST 

6428 

IF 

Z3  = 4 

THEN 

6608 

REM 

EOF  RECORD 

6432 

GOSUB 

' 191 

(7,5) 

REM 

EOT  TEST 

6436 

IF 

Z3  = 3 

THEN 

6608 

REM 

EOT  ERROR 

6440 

Z9  = FNZ (13) 

REM 

CMPUT  TRANSFR  CNT 

6444 

IF 

Z4  <>  Z9 

THEN 

6508 

REM 

OVR/UNDR  FLOW  ERR 

6448 

GOTO 

6608 

REM 

BRANCH  TO  EXIT 

6452 

REM  ** 

6456 

IF 

Z8  <>  5 

THEN 

6472 

REM 

NOT  EOT  TEST 

6460 

IF 

Z1  <>  9 

THEN 

6472 

REM 

NOT  REWIND 

6464 

IF 

ZO  = 99 

THEN 

6492 

REM 

PREVIOUS  EOT  ERR 

6468 

REM  +* 

6472 

AND 

(Z2*(Z8),STR(Z1*(13), 

Z7, 1 ) ) 

■ 

REM 

MASK  REGISTER 

6476 

IF 

Z2*(Z8>  = HEX (OO) 

THEN 

6608 

z 

REM 

NO  ERROR 

6480 

REM  ** 

6484 

REM  *+ 

! 01  F ! 02  F 

1 

03  I 

1 

04  I ! 

05  I 

1 

6488 

REM  ** 

1 1 

. 1 

! - 

— 

- 1 

6432 

ON  Z8 

GOTO 

6508  , 6508 

9 

6552 

9 

6556  , 

6560 

9 

6568  , 6508 

9 

6508 

9 

6508  , 

6508 

z 

REM 

BRANCH 

6496 

REM  ** 

1 » 

. 1 

. I . 

1 _ 

- ! 

6500 

REM  ** 

! 06  I ! 07  F 

1 

08  F 

1 

09  F ! 

10  F 

1 

6504 

REM  ** 

6508 

PRINT 

HEX ( 01070CQC0C ) 

9 

z 

REM 

POSITION  CUSOR 

6512 

PRINT 

"Touch  'CONTINUE'  'RETURN'  to 

Attempt 

Recovery" ; 

6516 

REM  ** 

6520 

REM  ** 

! 01  F ! 02  F 

1 

03  I 

1 

04  I ! 

05  I 

1 

6524 

REM  ** 

1 1 

. 1 

. 1 - 

1 - 

. 1 

6528 

ON  Z8 

GOTO 

6544  , 6548 

9 

6552 

9 

6556  , 

6564 

9 

6568  , 6572 

9 

6576 

9 

6580  , 

6584 

• 

REM 

BRANCH 

6532 

REM  *-* 

1 1 

. 1 

. 1 - 

- 1 

6536 

REM  ** 

! 06  I ! 07  F 

1 

08  F 

1 

09  F ! 

10  F 

1 

6540  REM  *■* 


O 
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- - 


o 


6544 

STOP 

“IRRECOVERABLE  DATA  ERROR"  : 

z=3  : 

GOTO  6608 

6548 

STOP 

“RECOVERABLE  DATA  ERROR"  : 

Z=3  : 

GOTO  €608 

6552 

Z3  = 1 

: 23*  = “BEGINING  OF  TAPE" 

GOTO  6592 

6556 

Z3  = 2 

: 23*  = “TAPE  WRITE  DISABLED" 

GOTO  6592 

6560 

Z3  = 3 

: Z3*  = “END  OF  TAPE"  : ZO  = 99  : 

GOTO  6508 

6564 

STOP 

“MOUNT  FIRST/NEXT  TAPE  VOLUME.. 

u ■ 

GOTO  6592 

6568 

Z3  = 4 

: Z3*  = “END  OF  FILE“ 

GOTO  6592 

6572 

STOP 

“TAPE  UNIT  NOT  READY"  : 

z=3  : 

GOTO  €608 

6576 

STOP 

“INVALID  MICRO  COMMAND  SEQUENCE 

M ■ 

GOTO  6608 

6580 

STOP 

"DATA  READ  ERROR"  : 

z=3  *: 

GOTO  €608 

6584 

6588 

stop 

REM  ** 

“DATA  OVER /UNDER  FLOW  ERROR"  : 

z=3  : 

GOTO  6608 

6592 

IF 

Z5  = 0 THEN 

6608  : 

REM  SUPPRESS  MESG 

6596 

PRINT 

HEX (01070C0C0C ) ; 

REM  POSITION  CUSOR 

6600 

6604 

PRINT 

REM  ** 

STR(Z3*. 1,40); 

REM  PRINT  MSG 

6608 

RETURN 

• 

• 

REM  EXIT 

* 


AUI 

HQR 

Syr 

ease 

- 

6344 

6393 

- 

6380 

e3ia 

“ 

6380 

6334 

- 

6380 

8352 

- 

6380 

8458 

- 

6430 

€-473 

- 

6456 

6460 

8493 

- 

6464 

8508 

- 

6444 

6493 

6544 

- 

6538 

6548 

“ 

6538 

essa 

- 

6493 

6538 

6558 

- 

6493 

6538 

6560 

- 

6493 

6564 

- 

6538 

6568 

- 

6493 

6538 

6573 

- 

6538 

6576 

- 

6538 

6580 

- 

6538 

6584 

“ 

6538 

6593 

- 

6553 

6556 

6608 

- 

6416 

6438 

f->  h3  D e 


ATH2LS  T A 


W tvj/M-' 


O 
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AUiHOR  Sy  Eirem:  Phase  3 — ATHc?l ST-^i  — V MAH 

02*  < - 6256 

Y - 6168 

Z - 616/1  6544  6546  6572  6560  6564 

Z0  - 6464  6560 

Z1  - 6156  6256  6460 

Zl*<  - 6160  6164  6168  6176  6180  6184  6188  6196  6196  6200  6204  6208  €2112  €216 

6220  6224  6256  6472 
Z2  - 6156  €.280 

Z2S<  - 6160  6232  623 6 6240  €244  €248  6472  6476 

Z3  - 6156  6264  6344  6416  6428  6436  6552  6556  6560  6568 

Z3*  - 6160  6552  6556  6560  6568  6600 

Z4  - 6156  6256  6444 

Z5  - 6156  6592 

Z6  - 6156 

Z7  - 6412  6420  6472 

Z8  - 6412  6456  6472  6476  6492  6528 

Z9  - 6440  6444 


’**«*!>  up  9 


AUTHOR  S/s-tem:  Phase  3 — 


O O 


7000  2##  Program 
700':  REM  ■»•» 

7008  REM  ** 

7012  REM  ** 

7016  REM  ** 

7020  REM  ** 

7024  REM  ** 

7028  REM  ** 

7032  REM  ** 

7036  REM  ** 

7040  REM  *•* 

7044  REM 


> AUTHOR/2  ( ATH2LS) 5)  Version  >2.0  2200  1 /VP  780321 


Subroutine  hhhhhhhhhhhhhhwhhhhI'.whhhhhhhhhhhhhhhhhhhwhhhe*  2 0 0 
Abstract  > 

This  routine  will  initialize  the  line  printer 
and  print  a Title  page. 

Variables  > 

PO  > page  count  index 

page  bufr  line  indx 


Q2$(>  > page  buffer 
Q1 


7048 

DEFFN  ' 

200 

REM 

ENTRY 

7052 

INIT  <20> 

Q2*<  ) 

REM 

CLR  PAGE  BUFFER 

7056 

INIT  <20) 

Q4$(  ) 

REM 

CLP  MENU  FLAGS 

7060 

PO  = 1 

REM 

INIT  PAGE  INDX 

7064 

REM  ** 

706.8 

GOSUB  ' 

106 

(5,5, 1,HEX(0E>) 

REM 

INSRT 

EXPAND 

FLAG 

7072 

GOSUB  ' 

106. 

(5,6,0, “AUTHOR  System" > 

REM 

INSRT 

TEXT 

7076 

COSUB  ' 

106. 

( 10,5, 1,HEX(0E) ) 

REM 

INSRT 

EXPAND 

FLAG 

7080 

GOSUB  ' 

106 

(10,6,0, “Phase  11") 

REM 

INSRT 

TEXT 

7084 

GOSUB  ' 

106 

(15,5, 1,HEX(0E) ) 

REM 

INSRT 

EXPAND 

FLAG 

7088 

GOSUB  ' 

106 

( 15,6,0, "Data  Base  Display”) 

REM 

INSRl 

TEXT 

7092 

GOSUB  ' 

106 

(20,5, l,HEX(0t) ) 

REM 

INSRT 

EXPAND 

FLAG 

7096 

COSUB  ' 

106 

(20,6,0, “Version:  2.0") 

REM 

INSRT 

TEXT 

7100 

REM  ** 

7104 

GOSUB  ' 

108 

(3) 

REM 

PRINT 

TITLE  PACE 

7108 

INIT  (20) 

Q2*(  ) 

REM 

CLR  PAGE  BUFFER 

7112 

Q1  « 1 

REM 

INIT  1 

LINE  INDEX 

7116 

RETURN 

REM 

EXIT 

c 
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AIJTHOK  Sy  stom 


P ha  s e?  2 


ATHaLSlb 


SOI 


RtM  *■* 

RtM  *■* 

RtM  **  Subroutine  ****^************-«-»*-*'»-»'*-»-*+-»'»-»-**-»*-»--«--»*-»-r»-»-*-»  2 0 
RtM  **  Abstract  > 

RtM  *•*  This  routine  will  test  the  printer  for  read/  status. 

RtM  *•*  Variables  > 

REM  **  R8*<>  > i/o  micro  command  buffer  ! 

RtM  -* 

RtM  » » » » 

DEFFN  ' 201 

*CIO  READY  #S  <4100  ,R8$<9>) 

<fIF  ON  #5,  7208 


*CI0  READY 
*IF  ON 


COSUB  ' 101  (13,10,0,0) 
PRINTUSING  7200,  * " 

*G ID  PAUSE  /00S<R8*<4),H8*<9)  ) 
COSUB  ' 101  <13,10,1,0) 

GO  10  7160 

REM  ** 

REM  ** 

REM  ** 

X * * * * LINEPR INTER  ! 

RtM  ** 

RETURN 


LINEPR INTER  IS  NOT  READY  * 


RtM  ENTRY 
REM  SEND  CTL  CHAR 
RtM  DEVICE  READY 
REM  POSITION  CUSOR 
RtM  PRINT  ERR  MSG 
RtM  ERROR  TONE 
REM  ERASE  ERR  MSG 
REM  C.ONT  READY  TEST 

OUTPUT  I MACE  FORMATS 


REM  EXIT 


i 


AUTHOR  System:  Phase 


— ATHaLS I 


7212  RtM  ** 
7216  RtM  ** 
7220  RtM  ** 
7224  RtM  *+ 
7228  RtM  *+ 
7232  RtM  ** 
7286  RtM  ** 


Subroutine  3 q 

Command  > SYMBOL 
F unction  > 

To  allow  the  entry  of  Symbol  Descriptions. 

Variables  > 


7240 

REM 

•** 

R8*(  ) 

> 

micro  cmnd  bufr 

! R9*< ) 

V 

/ 

scratch  bufr 

7244 

RtM 

■fr* 

LI 

> 

set  number 

! Ml* 

\ 

set  number 

7248 

REM 

-*•* 

L2 

> 

symbol  number 

f M2* 

> 

symbol  number- 

7252 

RtM 

*"* 

L3 

> 

item  number 

! M3* 

set  name 

7256 

REM 

**■ 

L4 

> 

graphic  code 

! M4* 

> 

graphic  code 

7260 

RtM 

■JHf 

R2 

> 

input  numric  val 

! R2* 

> 

inpt  alph  val 

7264 

REM 

■*-* 

K 1 

> 

ert  row  indx 

! K2 

> 

ert  col  indx 

->l 

9i 

00 

RtM 

K5 

> 

buffer  indx 

! K6 

> 

line  number 

function  Definitions  > 

I (L3)  = Ll*1000+L2*10+L3 


7272  RtM  ** 

72/6  DtFFN 
7280  RtM  ** 

7284  RtM  ■•HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHI’ 

7288  DfcFFN  ' 202 

M1*3,M2*4,M3*40,M4*1 


REM  compute  symbol  item  ID 


7282 

7296 

7300 

7304 

7308 

7312 

7316 

7320 

7324 

7328 

7332 

7336 

7340 


DIM 


INI! (20) 


219 


GOSUB 
RtM  ** 

RtM  ** 

ON  RO  GOTO 


Ml* 
M2* 
M3* 
M4* 
N2* 
04*  ( ) 
LI 
L2 
(RO) 


= "001“ 

= "OOOl" 

= “Symbol  Sot  #xxx" 

— M JM 

= "SETNUMBER" 


= 0 
= O 


! S NUM 


SB  NUM  ! S NAME  ! RF  NUM  ! 


RtM  ENTRY 

REM  DEFINE  BUFRS 

RtM  IN17  SBL  SET  # 

REM  IN) T SBL  NUMBER 
RF.M  INIT  SBL  SET  NAM 
RtM  IN1T  GRAPHIC  CODE 
REM  INIT  FIRS1  ITEM 
REM  CLR  ITEM  FLC  BUFR 
RtM  INIT  SET  # 1NDX 
REM  INIT  SBL  # INDX 
REM  INPUT  COMMAND 
SYMBOL  ! 


7364 

7384 


7368 

7388 


7344  REM  ** 
7348  RtM  ** 
7352  RtM  ** 


7372 

73-32 


7376 

73-36 


7380 

7400 


REM  BRANCH 


DEFFN 


MEMAID  ! SIMSBL  ! NEXT 


LIST 


7356 

GOTO 

7408 

7360 

RtM  ** 

7364 

GOSUB 

/ 

206 

(LI) 

GOTO 

7328 

7368 

GOSUB 

/ 

207 

(L2) 

GOTO 

7328 

7372 

GOSUB 

' 

208 

(L1,L2) 

GOTO 

7328 

7376 

GOSUB 

/ 

20-3 

• 

GOTO 

7328 

7380 

GOSUB 

/ 

210 

( 1 , RO*  > 

GOTO 

7328 

7384 

GOSUB 

/ 

211 

(FN1 ( 3) , 20, 1 , RO*, "MNEM" ) 

GOT  0 

7328 

7388 

GOSUB 

/ 

211 

( FNI (4), 21, 1, RO*, "SIMl" ) 

GOTO 

7328 

7392 

GOSUB 

/ 

212 

(1,R0*) 

GOTO 

7328 

7396 

GUSUB 

/ 

213 

GOTO 

7328 

7400 

GOSUB 

/ 

214 

GOTO 

7408 

RtM  BRANCH  TO  EXIT 


REM  LNTEF<  SET  NUMBER 
REM  ENTER  SSL  NUMBR 
RtM  INSRT  SET  NAME 
RtM  INSRT  REFRNCE  # 
RtM  INSRT  SYMBOL 
REM  INSRT  DEFINITION 
REM  INSRT  MNEMONIC 
RtM  INSRT  SIM  SMBLS 
RtM  INCH  COUNTERS 
REM  LIST  ALL  SBLS 


7404  REM  +* 
7408  RETURN 


RtM  EXIT 
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AUTHOR  Sys-t  e?m  Z P ha  se  2 


ATHaLSI B - a O 


REM  +* 
REM  ** 
REM  ** 


Subroutine 


2 0 3 


REM  **  Abstract  > 

REM  **  This  routine  will  display  a brief  description 
RtM  **  of  the  Phase  2 list  procedures. 

RtM  **  Variables  > 

RtM  **  R0*O  > char  input  bufr  ! 

RtM  ** 

DEFFN  ' 203  ! RtM  E 

SELECT  PRINT  005  : REM  S 

PRINT  HEX < 03)  : REM  C 


RtM  ENTRY 

REM  SF.L  DISPLAY  MODE 
REM  CLR  CRT  SCREEN 
REM  PRINT  HELP  FILE 


PRINT  405 


SELECT  PRINT  005  : REM  SEL  D1SP 

PRINT  HEX < 03)  : REM  CLR  CRT 

PRINTUSING  7548,  “ “ : REM  PRINT  HE 

PRINTUSING  7552,  “ “ 

PRINTUSING  7555,  " " 

PRINTUSING  7560,  “ “ 

PRINTUSING  7564,  “ " 

PRINTUSING  7560,  " " 

PRINTUSING  7568,  " * 

PRINTUSING  7560,  " " 

PRINTUSING  7572,  “ " 

PHINTUSING  7576,  " “ 

PRINTUSING  7580,  " " 

PRINTUSING  7560,  " " 

PRINT  “ “ 

PRINTUSING  7584,  " 

SELECT  PRINT  405  : REM  SEL  D1SP 

REM  ** 

$GIO  CSR  OFF/ 005  (4006  ,R8*<9>>  : REM  DISABLE 

KLYIN  R0*<1>,  7592,  7592  : GOTO  7532  : REM  RESPONGE 

REM  -** 

REM  **  OUTPUT  IMAGE 

REM  +* 

X # This  Program  alows  the  items  of  the  Phase  II  Data  Base  to 
X # be  listed  on  the  Lineprinter.  Items  may  be  listed 

X # individualy  or  the  entire  Data  Base  may  be  listed. 

X # 

X # To  list  items  INDIVIDUALY  simpliy  type  the  Proper  Command. 

X tt  To  list  the  entire  Data  Base  simpliy  type  the  LIST  Command. 
X # Since  this  program  constructs  pages  in  memory  a page 
X # will  not  be  printed  until  the  page  is  full  or  the 

X # program  is  stopped  by  entering  the  ESCAPE  Command. 

X # To  Return  to  Menu  Touch  the  'RETURN'  Key 
REM  ** 

RETURN  : REM  EXIT 


REM  SEL  DISPLAY  MODE 

REM  DISABLE  CUSOR 
REM  RESPONGE  WAIT 

OUTPUT  IMAGE  FORMATS 


AUTHOR  System:  pha&e  a — ATHSLS  t 5=» 


O 


7596.  REM  ** 
76-00  RtM  *♦ 
76.04  RtM  ** 
76.08  RtM  ** 
76.12  REM  ** 
7616  RtM  ** 
7620  RtM  *■* 
7624  RtM 


Subroutine 
Abstract  > 

This  routine  will  alow  the  entire  data  base  to 
be  listed.  (LIST  Command) 


2 0 4 


7628 

DEFFN 

4 

204 

RtM 

ENTRY 

7632 

GOSUB 

4 

134 

( 1,001, 4, Nl*) 

REM 

INSRT 

TITLE 

7636 

COSUB 

4 

134 

( 1, 002, 5, Nl*) 

RtM 

INBRT 

SUBTITLE 

-'640 

GOSUB 

4 

134 

( 1,003,6, Nit) 

REM 

INSRl 

AUTHOR (S) 

7644 

GOSUB 

4 

134 

( 1 , 004, 7, Nl* ) 

REM 

INSRT 

DATE 

7648 

GOSUB 

' 

134 

(1,005, 8, Nl*) 

REM 

INSRT 

OHCNZTlUN 

7652 

GOSUB 

4 

134 

(1,011, 9, Nl*) 

REM 

INSRT 

TRAIN  OBJ. 

7656 

COSUB 

4 

134 

(1,031, 10, Nl*) 

REM 

INSRT 

IMPORIANCL 

7660 

GOSUB 

4 

134 

(1,032, 11, Nl*) 

REM 

INSRl 

USAGE 

7664 

GOSUB 

4 

134 

(1,022, 13, Nl*) 

REM 

INSRl 

TYPE  OF  SBL 

7668 

GOSUB 

4 

134 

(1,021, 12, Nl*) 

REM 

INSRT 

NAME  OE  USER 

7672 

GOSUB 

4 

134 

(1,023, 14, Nl*) 

REM 

INSRl 

REFRNC  SOURC 

7676 

GOSUB 

4 

134 

(1,041, 15, Nl*) 

RtM 

INSRT 

EXAMPLE 

7680 

GOSUB 

4 

214 

REM 

INSRT 

ALL  SYMBOLS 

7684 

GOSUB 

4 

205 

REM 

PRINT 

LAST  RAGE 

7688 

RETURN 

REM 

EXIT 

c 
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T 


AUI HQR 


-fc  em : 


Pha 


— ATHOLS I 


7692 
7696 
7700 
7704 
7708 
7712 
7716 
7720 
7724 
7728 
7732 
77 36 
7740 
7744 
7748 
77b2 
7756 
7760 
7764 


REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM  ** 
HEM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


Subroutine 
Abstract  > 

This  routine  will  print  the  final  page  onto 
the  lineprinter.  If  underscore  scaning  was 
selected  listing  will  be  reprocessed. 
(ESCAPE  Command) 

Variables  > 

W4*  > lpt  scan  flag  ! 


— SO 


2 0 5 


REM  ** 

REM 

205  : 

108 


OEFFN 
GOSUB 
IF 

GOSUB 
REM  ** 
*GI0  TUR 
RETURN 


108 


(3) 
W4* 

(4) 


<>  "TAPE" 


THEN  7760 


REM  ENTRY 

REM  PRINT  LAST  PACE 
REM  NO  SPL  SCANING 
REM  PRINT  UNDERSCORING 


/015  (400C400C400C,R8*<9) ) 


REM 

REM 


REMOVE 

EXIT 


PAPER 


P ha  & i?  5 


2 O 


pmrmmm 


I 


/MJ'l  HOR  System: 


7768  REM  ** 

7775  REM  ** 

7776  RtM  ** 
7780  RtM  ** 
7784  RtM  ** 
7788  RtM  ** 
7795  RtM  ** 


Subroutine 


Abstract  > 

To  allow  the  entry  of  the  Sot  Number. 
(SET  NUMBER  Command) 

Variables  > 


5 0 6 


7796 

RtM  ** 

LI 

> symbol  set  number  ( 

Ml*  > symbol 

7800 

REM  ** 

L5 

> symbol  number  ! 

MB*  > symbol 

7804 

RtM  ** 

NS*  > next  command  indx  ! 

R5*  > return 

7808 

RtM  ** 

7815 

REM  *•*+*-* 

-)HHM 

7816 

DtFFN  ' 

506 

<L1) 

7850 

PRINT 

HEX (03) 

7854 

GOSUB  ' 

101 

(14,1,0,0) 

7858 

IN1T(5U) 

R9*(  ) 

7835 

*GIO  DASH 

/005  (R8*(B),R8*(9> )R9*< )<1,63> 

7836 

GOSUB  ' 

101 

(1, 1,0,0) 

7840 

PRINT 

“Enter  Set  Number  > " 

7844 

GOSUB  ' 

104 

(3, “N* ,M1$) 

7848 

LI  = R5 

7855 

CONVERT 

R5  TO  RB*,  (###> 

7856 

GOSUB  ' 

101 

(15,1,0,0) 

7860 

PRINT 

“Set  # > “;STR(RS*, 1,3) 

7864 

IF 

STR(RS*,1,3)  = Ml* 

THEN  7875 

7868 

MS*  - “0001“ 

7875 

Ml*  - R5* 

7876 

NB*  = “SbLNUMBER* 

/880 

Q4*(9)  * HFX ( 50 ) 

7884 

RETURN 

set  number  <display> 
number  <display> 
input  value 


REM  ENTRY 

RtM  CLR  CONSUL  SCRtN 
REM  POSITION  CUSCJR 
REM  CREATE  DASH  LINE 
REM  PRINT  LINE 
RtM  P0S1I ION  CUSUR 
REM  PRINT  PROMPT 
RtM  INPUT  SET  NUMBR 
RtM  SAVE  SET  NUMBR 
REM  CONV  SET  NUMBR 
RtM  POSITION  CUSUR 
RtM  PRINT  SET  NUMBR 
RtM  SAVE  SET  NUMBR 
RtM  RESET  SSL  NUMBR 
RtM  SAVE  NEW  SET  If 
REM  SET  NEXT  COMMAND 
REM  CLR  ITEM  FLC-NEXT 
REM  EXIT 


AUTHOR  S/Btpm:  Phase  5 — ATHai_STb  — SO 

7888  REM  ** 

7893  REM  ** 

7896  REM  **  Subroutine  ♦****■**♦•****♦•***■****■»■»***+**■«•♦*'*♦-»*■»-»-»♦■*♦**+♦  g 0 7 
7900  REM  **  Abstract  > 

7904  REM  **  To  allow  the  entry  of  the  Symbol  Number. 

7908  REM  **  < SBL  NUMBER  Command) 

7913  REM  **  Variables  > 

7916  REM  **  LI  > symbol  set  number  ! Ml*  > symbol  set  number  <display> 

7930  REM  *•*  L3  > symbol  number  ! M3*  > symbol  number  <display> 

7934  REM  **  N3*  > next  command  indx  ! R3*  > return  input  value 

7938  REM  ** 


7936 

L)EFFN  ' 

307 

(L3) 

: REM 

ENTRY 

7940 

GOSUB  ' 

101 

(1,1, 1,0) 

: REM 

PUS I I ION  CUSOK 

7944 

PRINT 

“Enter  Symbol  Number  > “ 

: REM 

PRINT  PROMPT 

7948 

GOSUB  ' 

104 

<4, "N“ , M3* ) 

: REM 

INPUT  SSL  NUMBR 

7953 

L3  = R3 

: REM 

SAVE  SBL  NUMBR 

7956 

CONVERT 

R3  TO  M3*,  <####) 

: REM 

CONV  SSL  NUMBR 

7960 

COSUB  * 

101 

( 16,1,0,0) 

: REM 

POSITION  CUSUR 

7964 

PRINT 

"Sbl  * > “JM3* 

: REM 

PRINT  SSL  NUMBR 

7968 

N3*  = “SI-TNAME" 

: REM 

SET  NEXT  COMMAND 

7973 

RETURN 

: REM 

EXIT 

7976  RtM  ** 
7980  RtM  ** 
7984  HEM  ** 
7988  RtM  ** 
7992  RtM  ** 
79-96  RtM  ** 
8000  RtM  ** 
8004  RtM  ** 
8008  RtM  ** 
8012  RtM  ** 
8016  RtM  *-* 
8020  RtM  ***- 
8024  D6FFN 
8028  GOSUB 
8032  GOSUB 
8036.  GOSUB 
8040 

8044  RtTURN 


Subroutine  it**#*********-*-***-********#*****-******-* 
Abstract  > 

This  routine  will  print  the  current  symbol 

set  name  after  verifying  that  a valid  set  number 

and  symbol  number  have  been  entered. 

Variables  > 

LI  > set  number  ! L2  > symbol  number 

N2*  > next  command  indx  ! 


RtM  ENTRY 
REM  VERIF1Y  ID 
REM  INSRi  HEADER 
REM  INSRI  SET  NAME 
REM  SET  NXT  COMMAND 
RtM  EXIT 


REFERENCE  NUMBER 


AUTHOR  Sy&t  em  = P ha  & c- 


— ATHciLST  S - 3 O 3 


8048 

8055 

8056 
8060 
8064 
8068 

8075 

8076 
8080 
8084 
8088 
80-35 
8036 
8100 
8104 
8108 
8112 
8116 
8120 


RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  *+ 
RtM  ** 
RtM  *•* 
RtM  ** 
RtM 
DEEEN 


GOSUB 


RtTLJRN 


Subroutine 
Abstract  > 

This  routine  will  load  the 
and  symbol  number  into  the 
Variables  > 

H8*<>  > header  buffer 
N2*  > next  command  indx 
Q1  > pag  bufr  line  index 


2 0 9 


209 

STR(H8*< 18) , 17,  3) 
S1R(H8*<18>,37,4> 
106  <Q1,2,0,H8*<18>) 
Q1  = Q1  + 1 
N2*  = " SYMBOL* 


Ml* 

M2* 


symbol  set  number 
page  buffer. 

! Ml*  > set  number  <display> 
! M2*  > sbl  number  <display> 

i 


: RtM  ENTRY 
: RtM  1NSRT  SET  NUMBH 
: REM  INSRT  SbL  NUMBR 
: REM  INSRI  HEADING 
: REM  INCH  Lite  INDX 
: REM  SET  NEXT  COMMAND 
: RtM  EXIT 


AU 

8124 

8158 

8135 

8136 
8140 
8144 
8148 

8155 

8156 
8160 
8164 
8168 

8175 

8176 
8180 
8184 
8188 

8195 

8196 
8500 
8504 
8508 

8515 

8516 
8550 
8554 


I HClht  System:  Phase  2 


ATH2L  S I E» 


-2  10 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
RE.M 
REM 
REM 
DEFFN 
IF 

GOSUB 
REM  ** 


Subroutine 
Abstract  > 

This  routine  will  load  the  symbol  and  the 
symbol  reference  code  into  the  page  buffer. 
Variables  > 

RO  > disk  lookup  flag 
Q8*()  > disk  index  buffer 
Q1  > page  bufr  line  index 
H8*< ) > heading  buffer 
Ml*  > symbol  set  number 


5 1 O 


RO*  > beging  disk  location 
D5  > index  buffer  index 
QS*()  > page  buffer 
M4*  > symbol  graphic  code 
M2*  > symbol  number 


210  (RO, R0*> 

RO  = O 
130  (FNl (2) ) 

RO*  = <38*  <05+1 ) 


: REM  ENTRY 

THEN  8500  : REM  II-  NULL  LOOKUP 

: REM  PERf-OHM  DSK  LOKUP 
: REM  S I OR  BEG  LOCATION 


GOSUB  ' 131  <RO*,RO,FNi (2) , 1 > 

STR(H8*< 19) ,53,5)  = "00“ 

GOSUB  ' 106  <Q1,2,0,H8*< 19) ) 

MAT  COPY  Rl*< ) <1 , R0>  TO  Q2*( )<S6+S3+2,R0> 
Q1  = Q1  + 1 
N5*  = "DEFINITION* 

RETURN 


REM  FETCH  SYMBOL. 

REM  INSRT  SSL  CQUE 
REM  INSR1  HEADING 
REM  INSR1  SYMBOL 
REM  I NCR  LINE  INDX 
REM  SET  NEXT  COMMAND 
REM  EXIT 
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AUTHOR  S/st  ern 


P ha Be  S 


ATHaLST b 


ail 


REM  *-* 
HEM  ** 
REM  ** 
REM  *+ 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-*-* 
DEFFN 
IF 

GOSUB 


Abstract  > 

This  routine  will  load  either  the  definition 
or  mnemonic  into  the  page  buffer. 

Variables  > 

II  > item  ID  ! H8  > heading  bufr  index 

RO  > disk  lookup  index  ! ROS  > beging  disk  location 


2 1 1 


b£*  > next  command  index  ! D2  > index  buffer  index 


Q8*()  > disk  indx  bufr 


' 211  (I1,H8,R0,R0*,N2*) 
RO  = 0 
' 130  (ID 

RO*  = Q8*(D2+1) 


Q1  > page  bufr  line  indx 


: REM  ENTRY 

THEN  8300  : REM  IF  NUL  DSK  LOKUP 
: REM  PERFORM  DSK  LOKUP 
: REM  SI  OR  bEG  LOCATION 


8300 

GOSUB  ' 

131 

(RO*, RO, 11,1) 

8304 

GOSUB  ' 

106 

(Q1,2,0,H8*(HS) ) 

8308 

01  = Q1  + 1 

8312 

GOSUB  ' 

132 

(01,20, 70, RO*,0) 

8316 

01  = 01  + 1 

8320 

RETURN 

REM  FETCH  DATA  HEM 
REM  INSRf  HEADING 
REM  INCH  LINE  INDX 
REM  INSRT  DATA  ITEM 
REM  I NCR  LINE  INDX 
REM  EXIT 


I 


( 


ALJ1  HOR  S y 5 t em  : Phase 


— ATHSL-STS  — a 


8324 

8328 

8332 

8336 

8340 

8344 

8348 

8352 

8356 

836.0 

836.4 

8368 

8372 

8376 

8380 

8384 

8388 

8332 

8396 

8400 

8404 

8408 

8412 

8416 

8420 

8424 

8428 

8432 

8436 

8440 

8444 

8448 

8452 

8456 

8460 

8464 

8468 

8472 

8476 

8480 

8484 


REM  ** 
RtM  ** 
HEM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
RtM  ** 
RtM  *•* 
REM  ** 
REM  *•* 
RtM  ** 
RtM  ** 
RtM 

DEFFN 

IP 

GOSUB 


Subroutine 
Abstract  > 

This  routine  will  load  the  similar  symbols  into 
the  page  buffer. 

Variables  > 

RO  > disk  lookup  index 


2 1 2 


08*  ( ) 
M2*  > 
H8*(  ) 
R9*<  ) 


> disk  indx  bufr 
next  command  index 

> heading  buffer 

> temp  text  buffer 


RO* 

D2 

01 

T1 


begining  disk  location 
index  buffer  index 
page  bufr  line  index 
similar  sbl  item  index 


212 


130 


REM  ** 

GOSUB 

GOSUB 


131 

106. 


RtM  *+ 
FOR 

INIT  (20) 
MAT  COPY 
IF 
IF 


GOTO 
RtM  * 


REM  ** 
CONVERi 


GOSUB  ' 
NEXT 
REM  ** 


106 


RETURN 


(RO,RO*) 

RO  = O 
(FN1 ( 5) ) 

RO*  = Q8*(D2+1> 


THEN  8400 


(RO*, RO, FN1 ( 5) , 1 ) 
(Q1,2,0,H8*<22>> 
01  = 01  + 1 


T1  = 1 TO  I NT (RO/7) 
R9*( ) 

Rl*( ><(Tl-l)*7+4,4> 


STR(R9*( 1 ) , 5, 4) 
T1  = 1 

T1  = I NT (RO/7) 
8468 


<> 


TO  R9*( ) <5, 
9999*  THEN 
THEN 


4> 

8456 

8448 


STR ( R9* ( 1 ) , 5,  4 ) * "NONE" 


T1  TO  STR ( R‘3* (1),1,4),  (##.#) 
STR  (R9*(  1 ) , 4,  1 ) =■•  " 

(01, (Tl-1 )*13+20, 13,R9*( 1 ) ) 

T1 


01  = 01  ♦ 4 
N2*  = "NEXT" 


REM  ENTRY 

RtM  It  NUL  DSK  LOKUP 
RtM  PERFORM  DSK  LOKUP 
RtM  STOR  DSK  LOCATION 


REM  FETCH  DATA  ITEM 
RtM  INSRT  HEADING 
REM  I NCR  LINE  INDX 


RtM  BEG  DISPLAY  LOOP 
REM  CLR  TEMP  BUFFER 
RtM  LOAD  TEMP  BUFFER 
RtM  NOT  END  OF  LIST 
RtM  NO  SIM  SYMBOLS 
REM  SET  TO  LOOP  END 
RtM  BRANCH  END  OF  LOOP 


REM  SET  END  MSG 


RtM  INSRT  ITEM  NUMBR 
RtM  INSRT  SPACE 
REM  INSRT  DATA  ITEM 
REM  END  OF  DISPLY  LOOP 


REM  INCH  LINE  INDX 
RtM  SET  NEXT  COMMAND 
REM  EXIT 


c 
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AUTHOR  Syst  e-m 


P ha &e  2 


ATH2LST 5 


**  MAP 


7160 

- 

7184 

7500 

- 

7175 

7508 

- 

7164 

7358 

- 

7364 

7368 

7375 

7376  7380  7384  7388  7395  7396 

7364 

- 

7340 

7368 

- 

7340 

7375 

7340 

7376 

- 

7340 

7380 

- 

7340 

7384 

- 

7340 

7388 

- 

7340 

7395 

7340 

7396 

- 

7340 

7400 

- 

7340 

7408 

- 

7356 

7400 

7535 

- 

7535 

7548 

7464 

7555 

7468 

7556 

- 

7475 

7560 

- 

7476 

7484 

7495 

7508 

7564 

7480 

7568 

- 

7488 

7575 

7496 

7576 

- 

7500 

7580 

- 

7504 

7584 

- 

7516 

7595 

- 

7535 

7760 

- 

7748 

7875 

- 

7864 

8500 

- 

8184 

8300 

- 

8584 

8400 

8384 

8448 

- 

8435 

8456 

- 

8458 

8468 

8440 

V MAP 


AU'I  IIOR  Sy  s-t  e^m  Z Phase' 


— ATH2L.STG 


8292  8392 
8304 

8104  8108  8204  8208  8304  8404 
8288  8300 

7320  7364  7372  7816  7848  8024  8028 

7324  7368  7372  7936  7952  8024  8028 

7236  7844  7864  7872  8100 

7300  7868  7948  7956  7964  8104 

7304 
7308 

7636  7640  7644  7648  7652  7656  7660  7664  7668  7672  7676 
7876  7968  8040  8116  8220  8280  8480 

8108  8112  8208  8216  8304  8308  8312  8316  8404  8408  8464  8476 
7108  8212 
7316  7880 
82-32  8392 

7340  8180  8184  8200  8212  8280  8284  8300  8380  8384  8400  8416  8436 

7384  7388  7392  8036  8180  8192  8200  8280  8232  8300  8312  8380  8392 


8424 

7852  7952  7956 
7860  7864  7872 
7176  7528  7760  7832 

7832  8420  8424  8428  8448  8456  8460  8464 


8424  8432  8436  8456  8464  8468 


i 


AUTHOR  S y s "t  em : Phase  2 — ATH2I — S f !=»  — ' 

????  DEFFN'  101 

- 7168  7180  7824  7836  7866  7840  7960 
????  DEFFN'  104 

- 7844  7948 
????  DEFFN'  106. 

- 7068  7072  7076  7080  7084  7088  7092  70-36  8108  8208  8304  8404  8464 
????  DEFFN'  108 

- 7104  7744  7762 
????  DEFFN'  130 

- 8188  8288  8388 
????  DEFFN'  131 

- 8200  8300  8400 
????  DEFFN'  132 

- 8312 

????  DEFFN'  134 

- 7632  7636  7640  7644  7648  7662  7656  7660  7664  7668  7672  7676 
7048  DEFFN'  200 

7156  DEFFN'  201 
7288  DEFFN'  202 
7452  DEFFN'  203 
7628  DEFFN'  204 
7740  DEFFN'  205 

- 7684 

7816  DEFFN'  206 

- 7364 

7936  DEFFN'  207 

- 7368 

80 DEFFN'  208 

- 7372 

8096  DEFFN'  20-3 

- 7376 

8180  DEFFN'  210 

- 7380 

8280  DEFFN'  211 

- 7384  7388 
8380  DEFFN'  212 

- 7392 

????  DEFFN'  213 

- 7396 

????  DEFFN'  214 

- 7400  7680 
????  DEFFN'  215 

- 8028 

????  DEFFN'  217 

- 8032 

????  DEFFN'  218 

- 8036 

????  DEFFN'  219 

- 7328 


MAfJ 
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TAEG  Report  No.  59 


4.7.6  ATH2LST6 

This  section  of  the  'ATH2LSTP'  program  contains  subroutines 
213  to  219. 

The  remainder  of  this  section  presents  the  'ATH2LST6' 
program  listing  and  reference  maps. 
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3 


/MJ 

9000 

9004 

9008 

•3015 

'3016 

9050 

9054 
9058 
9035 
3036 
9040 
9044 
•3048 

9055 
3056 
'3060 
906.4 
9068 
■3075 
•3076 
•3080 


1 HQR 

Xtttf 

Pr 

REM 

REM 

REM 

REM 

*-* 

REM 

REM 

REM 

REM 

REM 

*•# 

REM 

REM 

-a--*-*- 

UEFFN 

Syr>-t  E'm z 
gram  > AUTHOR /5 


P ha  & t? 


— /STI-I53t_£3  t €1. 


(ATH51.ST6)  Version  > 5.0  5500  T AT  780351 


Subroutine 
Abstract  > 

To  Increment  symbol  counter 
Variables  > 

LI  > set  number 

Ml*  > set  number  <display> 

N5*  > next  command  index 


513 


CONVERT 


IN1T (50) 


RETURN 


L5  = LS  + 1 

L5  TO  M5*,  <####) 

LI  =0 

L5  =0 

NS*  ~ * SETNUM8ER " 
Q4*<  ) 

Q4*<9>  - HEX ( 5A ) 


L5  > symbol  number 

MS*  > symbol  number  <display> 

Q4*<)  > commands  used  flags 


REM  ENTRY 

REM  I NCR  SBL  It  INDX 
REM  CONV  TO  DISPLY 
REM  RESET  INDEX 
REM  RESET  INDEX 
REM  SET  NEXT  COMMAND 
REM  CL.R  ITEM  FLG  BUFR 
REM  SET  ITEM  FLG-NEXT 
REM  EXIT 
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/MJ  VHQR  Sy  &ttMn 


P ha &c  2 


ATH2L.ST€ 


3 3 


9084  REM  ** 
9088  REM  ** 
9092  REM  ** 


Subroutine  ******************************************* ****  £ 


4 


9096 

REM  ** 

Abstract  > 

9100 

REM  ** 

This  routine  will  list  all  symbols  in 

the 

9104 

REM  ** 

symbol  table. 

9108 

REM  ** 

Varialbes  > 

9112 

REM  +* 

Q0(  ) > special  symbol  counts  ! Q3$(> 

> symbol 

table 

9116 

REM  ** 

T2  > symbol  index  ! 

9120 

REM  ** 

9124 

REM  *•** 

**************************************** 

** 

9128 

DEFEN 

' 214 

: REM 

ENTRY 

9132 

REM  *+ 

9136 

FOR 

T2  - 1 TO  Q0<2> 

: REM 

BEG  PRINT  LOUP 

9140 

COSUB 

' 216  <Q3*<T2,1)> 

: REM 

CMPUT 

REFRNC  #'S 

9144 

GOSUB 

' 217 

: REM 

PRINT 

HEADING 

9148 

GOSUB 

' 218  (0,Q3*(T2,2) ) 

: REM 

INSRT 

SET  NAME 

9152 

GOSUB 

' 209 

: REM 

INSRT 

REFRNC  it 

9156 

GOSUB 

' 210  (0,Q34(T2, 3) ) 

: REM 

INSRT 

SYMBOL 

9160 

GOSUB 

' 211  <I1,20,0,Q3*<T2,4),N2*> 

: REM 

INSRT 

DEFINITION 

9164 

GOSUB 

' 211  <I1,21,0,Q3*(T2,5>,N2*> 

: REM 

INSRT 

MNEMONIC 

9168 

GOSUB 

' 212  <0,Q3*<T2,6) > 

: REM 

INSRT 

SIM  SYMBOLS 

9172 

NEXT 

T2 

: REM 

CONT  PI 'I  NT  LOUP 

9176  REM  •*-* 
9180  RETURN 


REM  EX II 


AUTHUH  S x s.  -t  cm 


P ha se  S 


ATHSLSTS 


a*  1 5 


9186 

9188 

9192 

9196 

9200 

9206 

9208 

9212 

9216 

9220 

9226 

9228 

9232 

9236. 

9260 

•9266 

9268 

9252 

•9256 

9260 

9266 

9268 


REM  *■» 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM  ** 
REM  ** 
RfcM  ** 
HEM  ** 
REM  ** 
REM 
DEFFN  ' 
GOSUB 
IF 

GOSUB  ■ 
GOSUB  ' 
GOTO 
REM  ** 
GOSUB  ' 
RETURN 


Subroutine  ■ihhhhhhhhhhhhhi«»-»-i»'<hhhhhhhhhhhhhh>»«»»*-<hhh>»-»»  2 15 
Abstract  > 

This  routine  will  perform  a disk  lookup  of 
the  current  symbol  IU.  If  found  will  return. 

If  not  found  will  ask  to  re-enter  IL). 

Variables  > 

LI  > set  number  ! L2  > symbol  number 

16  > return  lookup  flag  ! Q8*()  > disk  index  buffer 

D2  > index  buffer  index  ! 


215 

130 

206 

207 


(L1,L2) 
(FNI(O) ) 
16  <>  O 
(LI) 

<L2) 

9260 


216  <Q8*(D2+1>> 


I REM  ENTRY 

: REM  PERFORM  DSK  LOKUP 
THEN  9266  : REM  ID  IS  OK 

I REM  ENTER  SET  NUMBER 
: REM  ENTER  SUL  NUMBER 
: REM  RE-CHECK  ID 

: REM  FETCH  REFRNt  NUMBR 
I REM  EXIT 


P h-a  ss  d 2 


ATHaLSTt. 


a i e 


r 


Tiriiwaww  ihin  y 1 1 v 1 1 urn 


i 


AUTHOR  Syst om Z 


9575  REM 

9576  RtM 
9580  RtM 
9584  RtM 
9588  RtM 

9595  RtM 

9596  RtM 
9900  RtM 
9904  RtM 
9308  RtM 

9315  RtM 

9316  REM 
9350  REM 


compute 
from  the 


Subroutine 
Abstract  > 

This  routine  will 
and  symbol  mrnber 
Variables  > 

LI  > symbol  set  number 
L5  > symbol  number 
RO*  > beging  dsk  location 
RO  > size  of  data  item 


5 1 6 


the  symbol  set  number 
symbol  reference  number 


! Ml*  > symbol  set  number 
! MS*  > symbol  number 
! M4*  > symbol  graphic  code 
! R9*< ) > temp  data  buffer 


9354 

DEFFN  ' 516 

(RO* 

9358 

GOSUB  ' 131 

(RO* 

9335 

MAT  CORY 

Rl*( 

9336 

M4* 

9340 

Ml*  ' 

9344 

MS* 

9348 

CONVERT 

Ml* 

9355 

CONVERT 

MS* 

9356 

RETURN 

. R0> 


- STR  < R9*  ( 1 ) , 1 , 1 ) 
= STR  ( R9*  ( 1 ) , 5,  3 ) 
= STR  < R9*  ( 1 ) , 5,  4 ) 
TO  LI 


: REM  ENTRY 

: REM  FETCH  RtFENC  NUMBR 
: REM  LOAD  TEMP  BUFR 
: RtM  STUR  GRAPHIC  COOt 
: REM  ST  OR  SET  NUMBR 
: REM  STOR  SSL  NUMBR 
: REM  CMPUT  SET  NUMBH 
: REM  CI*PUT  SSL  NUMBR 
! RtM  EXIT 


c 
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I 


I 1 


I i 


AU'IHOR  Sy&ti 


P ha  s-  e 


— ATHaLSTt  — 


9360  hem  *♦ 
9364  RtM  *+ 
9368  RtM  ** 
9372  HtM  ** 
9376  RtM  ** 
9380  RtM  ** 
9384  HtM  ** 
9388  RtM  ** 
9392  HtM  ** 
9396  RtM  *♦ 
9400  HtM  ** 
9404  HtM  ** 
9408  HtM  ** 
9412  RtM  ** 
9416  RtM  *** 


Abstract  > 

This  routine  will  test  current  line  indx 
and  if  enough  space  is  remaining  on  page  the 
symbol  description  heading  will  be  inserted  into 
page  buffer,  else  the  page  will  be  printed  and 
the  title  inserted  on  next  page. 

Variables  > 

Q1  > page  bufr  line  index  ! 02* < ) > page  buffer 

H8*()  > heading  buffer  ! Ml*  > set  number 

M2*  > symbol  number  ! 


2 1 7 


9420 

UEFFN  ' 

217 

REM 

ENTRY 

9424 

IK 

Q1  =•  14 

THEN 

9448 

HtM 

SPACE  AVAIABLt 

942R 

If- 

Q1  * 1 

THEN 

9448 

REM 

SPACE  AVAIABLt 

9432 

GOSUB  ' 

108 

(3) 

REM 

PRINT  PAGE 

9436 

INI!  <20) 

Q2*<  ) 

RtM 

CLH  PAGE  BUFFER 

9440 

01  = 1 

REM 

RESET  LINE  INDX 

9444 

REM  *•* 

9448 

STR(H8*<16>,30,3>  - Ml* 

RfcM 

INSRT  SET  NUMBR 

9452 

STR (H8*< 16) , 34, 4)  = M2* 

REM 

1NSRI  S8L  NUMBH 

9456 

Gosue  ' 

106 

(01, 1, 1,HEX<0E) ) 

REM 

INSRT  EXPAND  FLAG 

' 

9460 

GOSUB  ' 

106 

(Q1,2,0,H8*< 16) ) 

REM 

INSRT  HEADING 

9464 

01  = 01  + 1 

REM 

I NCR  LINE  INDX 

9468 

RETURN 

REM 

EXIT 

AUTHOR  Sy&tcm:  Phase 


— ATH2LSlfc  - 


9472 

9476 

9480 

9484 

9488 

9492 

9496 

9600 

9904 

9908 

9512 

9516 

9520 

9524 

9528 

9532 

9536 

9540 

9544 

9548 

9552 

9556 

9560 


RtM  ** 
REM  ** 
HEM  ** 
HtM  ** 
REM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  *+ 
RtM  ** 
RtM  *+ 
REM  *-* 
RtM  *+* 
UtFFN 
IK 

Gosue 


Abstract  > 

This  routine  will  load  the  name  of  the  symbol 
set  into  the  page  buffer. 

Variables  > 

RO  > disk  index  lookup  flag  ! RO*  > begimng 
08*0  > disk  index  buffer  ! D2  > index  buff 

Q2*<)  > page  buffer  ! Rl*<>  > storage 

Q1  > page  buffer  line  indx  ! H8*()  > heading 


2 1 8 


disk  location 
er  index 
buffer 
buffer 


218  <RO,HO*> 

RO  = O 
130  (FN1 < 1 > > 

RO*  = 08*<D2+1> 


THEN  9544 


RtM  ** 
GOSUB  ' 
GOSUB  ' 
MAT  COHV 

RtTURN 


131  <RO*,RO,KNl<l),l> 

106  <Q1,2,0,H8*< 17) ) 

Rl*<Xl,HO>  TO  02* (Xb6+S3+2,R0> 
01  *■  01  ♦ 1 


ENTRY 

NUL  DISK  LOKUP 
PERKORM  OSK  LOKUP 
SI  OR  BEG  LOCATION 

FETCH  SET  NAME 
INSRT  HEADING 
INSRT  SET  NAME 
INCH  LINE  JN3X 
FXIT 


331 


/NU  ! HQR  S/b  tem:  Ph«3EE* 


— ATHaLSTfc  — 


9S64  REM  ** 
9568  REM  *+ 
3S72  RtM  *•* 
9576  RtM  ** 
9bS0  RtM  ** 
9584  RtM  ** 
9588  RtM  ** 
9592  RtM  ** 
9596  RtM  ** 
•9600  RtM  ** 
9604  RtM 


Subroutine 
Abstract  > 

To  display  menu  for  symbol 
Var iables  > 

item  memory  flags 
return  i-tem  value 
input  return  value 


2 1 9 


description  input 


04*( ) 

RO 

R2* 


QS*(  > > item  key  buffer 
R2*()  > srch  Veturn  bufr 


9608 

DEFFN  ' 219 

(RO) 

REM 

ENTRY 

•3612 

GOSUB  ' 101 

(1,1, 

13,0) 

REM 

CLR  CRT  SCREEN 

9616 

SELECT 

PRINT 

005 

REM 

SEL  CONSOLE 

DEV 

•3620 

PNINTUSINC 

97b6, 

M U 

REM 

PRINT  MENU 

9624 

PRINTUSING 

9760, 

N II 

9628 

PKINTUSING 

9764 , 

04*  ( 1 ) , 

04* ( 6 ) 

9632 

PRINTUSING 

9768, 

04* ( 2 ) , 

04* (7) 

•3696 

PRINTUSINC 

9772, 

04* (3) , 

04* ( 8 ) 

9640 

PRINTUSING 

9776, 

04*  ( 4 ) , 

04* (9) 

9644 

PRINTUSING 

9780, 

04* ( 5 ) , 

Q4*( 10) 

•3648 

PRINTUSING 

9784, 

N H 

9652 

SELECT 

PRINT 

405 

: 

REM 

SEL  CONSOLE 

DEV 

9656 

REM  ** 

9660 

GOSUB  ' 101 

(10, 1 

,0,0) 

• 

RtM 

POSITION  CUSOR 

9664 
9668 
•9672 
9676 
'9680 
9684 
9688 
'9692 
•9696 
9700 
9704 
9708 
9712 
9716 
9720 
9724 
9728 
9792 
9796 
9740 
9744 
9748 
97  b2 
9756 
9760 
9764 
9768 
9772 
9776 
9780 
9784 
9/88 
9792 


PRINT 

GOSUB 


IF 


"Enter  Command  > " 

104  (lb, “A",N2*> 

RO  ~ LEN  < R2* ) 

RO  <=  6 
RO  - 6 

(STR(R2*,1,R0),DF) 

Q5*( >,=STR(R2*, 1,R0)  10 
R2*(2)  <>  HEX < OOOO) 
R2*(l)  <>  HEX (0000) 

101  (10,98,0,0) 

“RE-ENTER* 

*G 10  TUNE  /005  (R8*(4) ,R8*(9) ) 

GOSUB  ' 101  (10,38,1,0) 

9660 


THEN  9684 


AND 

MAT  SEARCH 
li- 
lt 

GOSUB 
PRINT 


R2*( ) STEP  6 
THEN  9700 
THEN  9724 


GOTO 

RtM 


REM  PRINT  INSTRUCT N 
REM  INPUT  INSTRUCIN 
REM  C.MPUT  CMD  LEN 
REM  WI  T HEN  RANGE 
REM  SET  TO  MAX  LEN 
REM  MASK  OUT  LWR  CASE 
RtM  SRCH  ID  TABLE 
RtM  INVALID  COMMAND 
RtM  KEY  IS  FOUND 
RtM  POSIT  ION  CUSUK 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  ERASE  ERR  MSG 
REM  RE-ENTER  CMMND 


IF 


GOSUB  ' 
REM  ** 
REM  ** 
REM  ** 
X # 


101 


RO  = I NT ( FNR ( VAL ( R2* ( 1 ) ) 
RO  <>  12 
RO  = 10 

Q4*(R0)  = HEX ( 2A ) 

(1,1,12,0) 


)/6)  + 1 
THEN  9736 


REM  CMPUT  ITEM  INDX 
REM  NOT  SPL  COMMAND 
REM  RESET  CMND  INDX 
REM  SET  MENU  FLAG 
REM  ERASE  MENU 


OUTPUT  IMAGE  FORMATS 


X # - 

X 

X 

X 

X 

X 

X 

REM  ** 
RETURN 


Command  Summary 


SETNUMBER 

SBLNUMBLR 

SETNAME 

REFERENCE  NUMBER 
SYMBOL 


# 

ft 

# 

« 

# 

# 


DEFINITION 

MNEMONIC 

SIMILAR  SYMBOLS 

NEXT 

LIST 

EXIT 


REM  EXIT 
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**  MAH 


AUI HQR  Syst 


/NUI  HUH  Sy&t  Dm 


P ha se  2 


ATH2L.STfc. 


V MAP 


D2 
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11 

- 

9160 
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14 

- 
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L2 
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9064 
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Ml* 
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- 
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- 
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QO< 

- 
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Q1 

- 
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9428 
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9548 
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02*  < 

- 
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03*  ( 

- 

9140 

9148 

9156 

9160 

9164 

9168 

04*  ( 

- 

9072 

9076 

9628 

•3632 

9636 

9640 

■3644 

9736 

05*  < 

- 

9688 

08*  ( 

- 

9264 

9536 

R0 

- 

9328 

9332 

9524 

9528 

9544 

9552 

9608 

9672  9676  9680  9684  9688  9724  9728 

9732 

9736 

RO* 

- 

9324 

9328 

9524 

9536 

9544 

R 1*  ( 

- 

9332 

9552 

R2* 

- 

•3672 

9684 

9688 

R2*< 

- 

9688 

9692 

9696 

9724 

R8*( 

- 

9708 

R9*( 

“ 

9332 

9336 

9340 

9344 

S3 

- 
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S6 

- 

9552 

T2 

- 
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9148 

9156 
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9164 

9168 

9172 
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5.0  LEARNING  MODULE  MAINTENANCE  PROGRAMS 

The  purpose  of  this  program  is  to  create  and  maintain  the  learning 
module.  This  program  will  create  a learning  module  based  on  the 
data  base  and  the  module  formats.  Once  the  module  has  been  created 
and  stored  on  disk  the  program  will  allow  the  user  to  list  and/or 
edit  the  learning  module  in  much  the  same  fashion  as  the  data  base. 

The  name  of  this  program  is  'AUTHOR/3'.  For  operating  instructions 
see  section  5.0  in  Volume  I. 

5.1  PROGRAM  FLOWCHARTS 

Figures  5.1  through  5.11  present  program  flowcharts  which  show  the 
major  steps  of  the  learning  module  maintenance  program.  Figure  5.1 
is  the  high  level  flow  diagram  listing  the  major  steps.  Each  major 
step  is  then  described  in  greater  detail  in  the  subsequent  flow 
diagrams. 

When  appropriate  the  subroutine  name  or  overlay  name  will  be  shown 
in  the  lower  portion  of  the  flowchart  element.  This  indicates  that 
the  named  routine  will  perform  the  function  described. 

5.2  AUTHOR/ 3 

The  'AUTHOR/3'  program  is  presented  in  three  parts.  The  'AUTHOR/3' 
program  contains  all  utility  programs  used  to  create  the  learning 
module.  The  routines  contained  in  the  'AUTHOR/3'  program  remain  in 
memory  throughout  the  construction  process. 

5.2.1  ATH1/III 

This  section  of  the  'AUTHOR/3'  program  contains  the  main 
control  logic  for  creating  the  learning  module  along  with 
program  interrupt  points.  Also  contained  in  this  section 
are  subroutines  000  to  104. 

The  remainder  of  this  section  presents  the  'ATH1/1 1 1 ' pro- 
gram listing  and  reference  maps. 
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FIGURE  5.2.  * ATH3INIT*  PROGRAM  TO  INITIALIZE  LEARNING  MODULE  MAINTENANCE 
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FIGURE  5.4.  'ATH3VTAB'  PROGRAM  TO  LOAD  SYMBOL  SORT  PROGRAM 
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FIGURE  5.5.  'ATH3SRTS'  PROGRAM  TO  LOAD  AND  SORT  SYMBOL  TABLE 


340 
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FIGURE  5.6.  1 ATH3AUT0 1 PROGRAM  TO  CONTROL  THE 

CONSTRUCTION  OF  THE  LEARNING  MODULE 
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' ATH3INUX'  PROGRAM  TO  INDEX  THE  LEARNING  MODULE 
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FIGURE  b.7.  'ATH3INDX'  PROGRAM  TO  INDEX  THE  LEARNING  MODULE  (CONTINUED) 
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FIGURE  5.8.  1 ATH3LIST'  PROGRAM  TO  INITIALIZE  LIST  PROCESSING 

BY  LOADING  NECESSARY  COMMON  VARIABLES 
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FIGURE  5.11.  ’ ' ATH3LSTP'  ROUTINE  203-PROGRAM  ROUTINE  FOR  THE  RECALL  AND  EDIT  OF  LEARNING  MODULE 
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P hci  e u 3 


ATH 1 / X X 1 


CrslTfVL 


/MJTHOR  Sys-t:  em  Z 


lOO 
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11a 

116 
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140 
144 
148 
185 
156 
160 
164 
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180 
184 
188 

195 

196 
500 
504 
508 

515 

516 
550 

554 
558 
535 
536. 
540 
544 
548 

555 

556 
560 
56.4 
568 

575 

576 
580 
584 
588 
595 
5'36 
300 


HtM  *+  Program  > AUTH0H/3  (ATHl/III)  Version  > 5.0  5500  T /VP  780351 
HEM  **  Abstract  *HHtHHf*<HHHHHt*#HHHHHHHHHHHt**»*<H!-******'»****#*#****HHHf****Ht 


REM  **  ** 
HtM  -*■*  Phase  III  will  construct  from  the  Phase  11  Data  ** 
REM  Base  a Learning  Package  suitable  for  output  to  ** 
HEM  **  Microfiche.  The  Learning  Package  to  be  ** 
REM  **  Constructed  is  for  Symbol  Learning.  ■** 
HEM  *■*  ** 
HEM  Program  Logic  ** 
HEM  **  Phase  III  will  alow  for  three  modes  of  operation  *■* 
HEM  **  - Construction;  ** 
REM  **  - Edit  Processing;  ** 
HEM  **  - List  Processing.  ** 
REM  **  ** 
REM  **  l.  The  Construction  Phase  will  construct  the  +* 
REM  *■*  entire  Symbol  Learning  Package  and  *■* 
REM  *•*  automatically  dispose  a copy  of  the  output  ** 
HEM  file  to  the  high  speed  line  printer.  *•* 
HEM  ii.  The  Edit  Phase  alows  the  editing  of  any  ** 
REM  **  frame  Df  output.  ** 
REM  **  iii.  The  List  Phase  alows  the  output  disk  to  be  ** 
HEM  **  disposed  to  one  of  several  output  devices.  ** 
HEM  **  current  capabilites  alow  for  output  to  - ** 
REM  TTY  - high  quailty  output  writer  DEV  <51 1> 

REM  *•*  CRT  - cathode  ray  device  DEV  <40S>  ** 
REM  **  LPT  - high  speed  line  printer  DEV  <515>  ** 
REM  **  ** 


HEM  ** 
REM 
REM  ** 


DEFINE  PROG  STROAGE 


COM 

CUM 

COM 

COM 

COM 

CUM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

CUM 

COM 

CUM 

COM 

DIM 

xm 


R4*<50)16,H5*< 10)1, R6t  <16)1, R7* ( 64 ) 1 

R8*< 10)54, R9*< 1 )64 

BO,  81 , B5, 83,84,88,  89,  81*1, Bl*( 50)  1 

D1 , D5,D3, D4,U5, 04*4 , U545 

D6*5 , D7*4 , 08*5 , 09*5 

K1,K5,K3,K4,K5*< 1 )6-.4 

L1*55,L5*8,L3*4 

W1,W5,W3,W4,W5,W6,W1*5 

Ul*< 15) 1 , U0,U1 

RO, H 1 , R5, H3, H4 , H5, R6, R7, R8, R9 

R0*5, R 1*50, H 5*64, H 3*5, H4*5, R5*5 

R6*64 , H7*64 , H8*5 , R9*64 , E 1 *4 

R0*( 1)1 ,R5*(5)a,H3*< 1 )64 

SI , S5, S3, S4 , S5, S4*< 1 )64 , S8*  <1)4, 89* <1)4 

00, Ql, 05, Q3,Q4, 05,06,07,08,09 

00 (15) , QO*< 10)1, Ql*< 158)5,05*  < 16,64 ) 1 

04*  < 50 ) 5 , 05*  < 1 0 ) 3 , 064  < 1 0 ) 5 

07* <75, 5) 1 

094  < 64 > 4, H 1*  < 1 ) 1 

END  OF  COMMON  STORAGE  AREA 


HEM  GENERAL  REGISTERS 
REM  GENERAL  REGISTERS 
REM  BIT  CONTROL 
REM  OUTPUT  PAC  INDX 
REM  OUTPUT  PAG  INDX 
HEM  CUSOR  CONTROL 
REM  PROGRAM  LOADING 
REM  FICHE  PAG  INDX 
HEM  SYMBOL  INDX INC 
REM  CENERAL  REGISTERS 
REM  GENERAL  BUFFERS 
REM  GENERAL  BUFFERS 
REM  GENERAL  BUFFERS 
HEM  BUFR  STORAGE  INDX 
REM  GENERAL  REGISTERS 
HEM  GENERAL  BUFFERS 
HEM  GENERAL  BUFFERS 
REM  GENERAL  BUFFERS 
REM  SCRATCH  BUFFER 


CtN I I F?l_ 


AUTHOR  Syst  e=-rn : Phase  3 — ATH 1 XT  T I — 


304 

308 

31a 

316 

3ao 

354 

358 

335 

336 
340 
344 
348 
350 
356 
360 
364 
368 
375 


INI  I <0A)R6*<)  : R6*<1>  = HEX <01 ) 

INI  I <03>R7*()  : R7*<1>  = HEXIOLU 

DEFFN  R<R>  = 3S6*R  ♦ VA! . < S f R < R0'4>  ( 1 > , 5,  1 ) ) 

DEFFN  W(W)=  356*W  + VAL  < SIR  < W1  *,  3, 1 > > 

REM  **  » 

REF.  **************-ft***********4***^**->P&  *•«•*-**•»•&* 


REM  ** 
SELECT 

PRINT 

400 

DEFFN  ' 

001 

GOOUB  ' 

100 

< " Initializing"  , "ATH3INU  " , "4000"  > 

DEFFN  ' 

OOO 

GOLUB  ' 

100 

< "Construction" , “ATH3AUTU" , "4000" ) 

DEFFN  ' 

003 

GOCUB  ' 

100 

<"  Indexing*  , " ATH3INDX"  , "4000“  > 

DEFFN  ' 

004 

GOODS  ' 

100 

< "Listing" , "A1H3LIST" , “ 1500" ) 

DEFFN  ' 

oor. 

GOOUB  ' 

100 

< " Ed  i t i ng “ , " A1 H3L I ST " , " 1 500"  ) 

: REM  INTAi  7 E CUCQR  CTL 
: RFM  INTAi  ZE  CU3UR  CTL 
: REM  FIJNCliON  R <R  ) 

: RFM  FUNCTION  W<W) 

PROGRAM  OVERLAY  CONTROL. 

: REM  DEFLT  OUTPUT  DEV 
: REM  ENTRY  POINT  001 
: REM  LOAD  PROGRAM 
: REM  ENTRY  POINT  000 
; REM  LOAD  PROGRAM 
: REM  ENTRY  POINT  003 
: REM  LOAD  PROGRAM 
: REM  ENTRY  POINT  004 
: REM  LOAD  PROGRAM 
: REM  ENTRY  POINT  005 
: REM  LOAD  PROGRAM 


rtU I HOK  System 


376  RtM  ** 

380  RtM  ** 

3H4  RtM  Subroutine  ♦■IHHHHHHfr'IHHHHHHHt-fr-IHHUHHHHHHHHH*" 

388  RtM  *■*  Function  > 

392  RtM  **  Program  Interrupt  / Error  Recovery 
396  RtM  **  Variables  > 

400  HLM  **  R0*()  > entry  buffer  ! R8$  > error  code 

404  RtM  **  ! R'7*  > line  number 

/,  08  RtM 

412  DtFFN  ' OOO  : 

416  ON  tRROR  E1*,RY*  GOTO  420  : 

420  GOSUB  ' 101  (13,1,2,40)  : 

424  PRINT  HEX (OOOA)  : 

428  PRINT  “Error  > El*; HEX (OOOA)  : 

432  PRINT  "Occured  > “;R7*;  : 

436  II  R8*  = "93“  THEN  448  : 

440  GOSUB  ' 101  (16,1,1,40)  : 

444  PRINT  "ERROR  CORRECTION  REQUESTED"  : 

448  COSUB  ' 101  (1,1,5,40) 

462  PRINT  "AUTHOR  SYSTEM  III"  : 

456  PRINT  HEX (OOOA);" END  PROGRAM  EXECUTION"  : 

460  PRINT  HEX (OOOC ) : 

464  *GIO  TONE  /0O5  (R8* < 4 > , R8* (9) > : 

468  END  : 


RtM  ENTRY  NORMAL 
RtM  ENTRY  ERROR 
RtM  POSITION  CUSUR 
RtM  POSITION  CUSOR 
REM  PRINT  ERR  MODE 
RtM  PRINT  LOCATION 
RtM  ERR  MESSAGE  1 YPLD 
REM  POSIl ION  CUSUR 
RtM  ERR  MESSAGE 
REM  POSITION  CUSUR 
RtM  TITLE  LINE 
REM  SUBllL.E  LINE 
REM  POSIl ION  CUSOR 
REM  PAUSE  TONE 
RtM  END  PROGRAM 


/SV-J  1 HQR  Q Y E.  -t  EL-TTl 


P h-a  & e 3 


ATH  1 . X-  I I X 


0-3  1 


1 


4 va 

REM  ** 

476 

REM  ** 

'♦80 

REM  ** 

Subroutine  0 9 1 

'♦84 

REM  ** 

Abstract  > 

488 

REM  ** 

To 

Wait  for  an 

Input  Responce. 

498 

REM  »* 

496 

500 

DEFFN  ' 

0-91 

REM 

ENTRY 

504 

COSUB  ' 

101 

<15, 1, 1,0) 

REM 

POSITION  CUSOR 

508 

PRINTUSING 

560,  " “ 

REM 

PRINT  INSTRUCT  NS 

518 

REM  ** 

516 

KEY1N 

R0*<1),  538, 

598 

REM 

keyboa.ro  INPUT 

580 

*610  TONE 

/005  <R8*<4> 

,R8*<9) ) 

REM 

PAUSE  TONE 

584 

GOTO 

516 

REM 

CONTINUE  WAIT 

588 

REM  ** 

598 

KEYIN 

R0*<1),  544, 

544 

REM 

KEYBOARD  INPUT 

596 

*GIU  WAIT 

/005  <R8*<1) 

,R8*<9) ) 

REM 

CHAR  WAIT 

540 

GOTO 

538 

REM 

CONTINUE  WAIT 

544 

COSUB  ' 

101 

<15, 1, 1,0) 

REM 

ERASE  PROMPT 

548 

REM  ** 

558 

REM  ** 

OUTPUT  IMAGE  FORMATS 

556 

REM  ** 

560 

% Touch  'RETURN'  -to  Stop 

Tone. .. Second  'RETURN' 

to  Continue  It 

564 

REM  ** 

568 

RETURN 

I 

REM 

EXIT 

c 


mm  -1 


588  RtM  **  To  load  a string  into  the  page  buffer  and 

595  REM  **  display  the  string  on  the  CRT 

596  RtM  *■*  Variables  > 


600 

RLM  ** 

SI 

> row  position  ! 

S2  > col  position 

604 

REM  ** 

S3 

> string  length  ! 

S4*<)>  string 

608 

RtM  *-* 

Sb 

> print  flag  ! 

Q2*<)>  page  buffer 

612 

RtM  ** 

K 1 

> crt  row  pos  ! 

K2  > crt  col  pos 

616 

RtM  ** 

620 

HbM  ■*•*•*•**•■**  *****-*HHfr*-^****^^******  *•******•**•**•-«••* 

624 

DEFFN  ' 

100 

(Sl,S2,S3,S4«(l),Sb) 

: RtM 

ENTRY 

628 

IF 

S3  <>  0 

THEN  636  : RtM 

SIR  LEN  NOT  0 

692 

S3  = LEN  < S4*  <1)1 

: RtM 

SLT  SIR  LEN 

626 

S6  « (Sl-1 >*64  + S2 

: RtM 

SCALE  ROW  & COL 

640 

MAT  COPY 

S4«<)  < 1 , S3>  10  Q2$<> 

<SS,S3>  : REM 

LOAD  INTO  BUFR 

644 

K1  = SI  - INT( (Sl-l )/16>*16  : RtM 

SCALE  CRT  ROW  # 

648 

IF 

S5  > 0 

THEN  660  : REM 

NO  OUTPUT  TO  CRl 

652 

GOSUB  ' 

101 

(K1 , S2,  0,0) 

: REM 

POSITION  CUSUR 

656 

*GIO  PRINT 

/005<A000,R8*<9> >S4$< ><1,S3>  : RtM 

OUTPUT  TO  CRT 

660 

RtTURN 

: REM 

EXIT 

AU 

1 1 IUR 

Sri  y >3-  -t:  ern  z 

F’  ha  &e>  3 — ATI 

FI  i/IIl  — 1 o 

664 

RtM 

** 

668 

RtM 

*•* 

€•  /3 

RtM 

Subroutine  > j n i 

676 

Rt.M 

Function  > 

680 

REM 

Cusor  Address 

and  Screen  erase 

684 

RtM 

Varaibles  > 

688 

REM 

K1  > row  position  ! K3  > lines 

t( 

d erase 

695 

RtM 

K5  > col  position  ! K4  > chart 

s) 

erase 

696 

REM 

R6*()  > cusor 

vert  ! R7*()  > cusor 

horz 

700 

RtM 

K5,K5*0  > line  ers  ! R8*<  ) > micro 

cmnd  bufr 

704 

708 

OtFFN  ' 

101  <K1,K8,K3, 

K4 ) 

REM 

ENTRY 

7ia 

IF 

K3  - 0 

TFIEN  756 

REM 

ERASE  NO  LINE 

716 

IF 

K4  <>  0 

THEN  754 

RtM 

CHAR  TO  tRS  SPCFD 

780 

K4  = 65  - 

K5 

RtM 

ERS  REST  OF  LINE 

754 

FOR 

Kb  = 1 TO 

K3 

RtM 

BtCIN  l OOF  K5 

788 

IF 

K5  <>  1 

THEN  740 

RtM 

NO  1 FIRST  LINE 

738 

*610 

ROW 

/005  < AOOO 

,R8*<9) )R6*<  > < 1 , K 1 > 

REM 

POSITION  CUSUR 

736 

GOTO  744 

REM 

BRANCH  TO  POS  COL 

740 

*GI0 

ROW 

/OOb  < AOOO 

,R8*<9)  )RC-.*<  ><5,  1> 

RtM 

POSIT  ION  CUSOR  LF 

744 

*CIO 

COL 

/005  < AOOO 

,R8*(9) >R7*( ><1,K5> 

RLM 

POSI l ION  CUSUR 

748 

*GIO 

ERAbt  /OOL)  < AOOO 

, R8* (9) )K5*<  ><1,K4> 

RLM 

ERASE  TEX1 

7b5 

NEXT 

K5 

REM 

CONTINUE  LOUP  K5 

756 

*G  10 

ROW 

/ 005  < AOOO 

,R8*<9) >R6*< ) < 1 , K 1 > 

REM 

RtPOSHIUN  CUSOR 

760 

*G  10 

COL 

/005 ( AOOO 

,R8*(9) )R7*< ) <1 , K5> 

RtM 

REPOS i 1 ION  CUSUR 

764 

RETURN 

RtM 

Exn 

/MJ  t HCIR  System:  3 — ATH1/III  — 1 O 


768 

RbM  ** 

77c! 

RbM  ** 

776 

RbM 

Subroutine  > ******-^**-^*****************************+-*  l 

0 2 

780 

Rt-M 

Function  > 

784 

RbM 

To 

load  an  over  lay  Routine. 

788 

RbM 

Variables  > 

793 

RbM 

Rl*  > description  ! 

R3  > begining  line 

796 

RbM  . 

K2$  > overlay  name  ! 

800 

804 

DEFFN  ' 

102 

(L.1*,L2*,L3*) 

: 

RbM 

ENTRY 

808 

PRINT 

HEX (03) 

• 

RbM 

CLEAR 

CRT 

812 

PRINT 

"AUTHOR  SYST 

E 

M" 

z 

RbM 

PRINT 

TITLE 

816 

PRINT 

HEX(ODOA); “ P H A 

S 

E III" 

z 

RbM 

PRINT 

SUB  1 1 T Lb 

820 

GOSUB  ' 

101 

(5, 10,0,0) 

z 

RF.M 

POSIT  1CIN  CUSOR 

824 

PRINT 

"System  Now  Loading  »>  “;L1*; 

" Routine" 

z 

RbM 

PRINT 

DESCRIPT  ION 

828 

GOSUB  ' 

101 

(7, 10,0,0) 

z 

RbM 

POSITION  CUSUR 

832 

PRINT 

"Program  being  Loaded 

>>> 

”;L2* 

z 

RbM 

PRINT 

PROG  NAME 

836 

IF 

L3*  <>  “0100“ 

THEN 

844 

z 

RbM 

LOAD 

AT 

LINE 

OlOO 

840 

LOAD 

DC  T #1,  L2*f  -100 

844 

IF 

L3$  <>  "1500“ 

THEN 

852 

z 

RbM 

LOAD 

AT 

LINE 

1500 

848 

LOAD 

DC  T #1,  L2*  1500 

852 

IF 

L3*  <>  "4000“ 

THEN 

860 

z 

RbM 

LOAD 

AT 

LINE 

4000 

256 

LOAD 

DC  T #1,  L2*  4000 

860 

IF 

L.3*  <>  "6000" 

THEN 

868 

z 

REM 

LOAD 

AT 

LINE 

6000 

864 

LOAD 

DC  T #1,  L2*  6000 

868 

IF 

L3*  <>  "7000“ 

THEN 

876 

z 

RbM 

LOAD 

AT 

LINE 

7000 

872 

LOAD 

DC  T #1,  L2$  7000 

876 

IF 

L3*  <>  "9000“ 

THEN 

884 

z 

RbM 

LOAD 

AT 

LINE 

9000 

880 

LOAD 

DC  T #1,  L2*  9000 

824 

R8*  = “00“ 

2 

RbM 

SET  ERR 

MODE 

288 

R7$  ~ “Subroutine  102" 

: 

REM 

SET  ERR 

SOURCE 

8-92 

GOSUB  ' 

OOO 

a 

REM 

ERR  PROCESSING 

896 

RETURN 

■ 

RbM 

EXIT 

/NLJ  I HOR  Sy  E-tom:  h'haB-E'  3 


ATH 1 / I 1 I — 


RtM  >* 

RtM  ** 

RtM 
RtM 
RtM 

RtM  -<dec>  -to  <hex>  page  numbers  < 01  > 

RtM  -<hex>  to  <dec>  page  numbers  < OS  > 

RtM  -add  n pages  -to  <hex>  number  < 03  > 

RtM  -add  n pages  to  <dec>  number  < 04  > 

RtM  Varaibles  > 

RtM  Wl*  > <hex>  page  number  ! W1  > <dec>  fch  pag  tt 

RtM  W5  > <dec.>  fiche  row  # ! W3  > <dec>  fch  col  It 

RtM  W4  > num  of  pags  to  add!  WS  > converison  indx 

RtM  00(6)  > max  num  of  rows  ! 00(7)  > max  num  cols 

RtM  00(5)  > max  num  of  pages! 

DEFFN  ' 103  (Wl*,Wi,W2,W3,W4,WS)  : REM  ENTRY 


Subroutine  > ^**^*-*“IHf#*************^****-*-»-*-*-lf--H-**-#-*-l>-**  10  3 

Function  > 

To  perform  the  following  conversions; 


RtM  *■* 

REM  *■* 

RtM  *+ 

ON  W5  GOTO 
RtM  ** 

REM  *+ 


COSUB  ' 
GOTO 
RtM  ** 


DEC -> HEX  ! HEX->DtC  ! ADO  HEX  ! ADD  DEC 


RtM  BRANCH 


GOTO 
RtM  ** 


GOTU 
REM  ** 
COSUB 
COSUB 
GOSUB 
G010 
RtM  ** 
IF 


R8*  = "00“ 

R7*  = “Subroutine  103" 


W5  - Wl*10000  + Wa*100  + W3 
BIN(STR(W1«, 1, 1 ) >-  1NT < W5/B56) 


RtM  StT  ERR  MODE 
RtM  StT  ERH  SOURCE 
: RtM  ERR  PROCESSING 
RtM  BRANCH  TO  EX  I I 

: RtM  PACK  PAG  ADKS 
: RtM  CCJNV  FRS I BYTE 


BIN(STR (Wit, 5,1)) ~W5- 1NT ( WS/db6)*556:  RtM  CONV  SCND  BYTE 


W5  = FNW(VAL(W1*) > 

W1  - I NT ( W5/ lOOOO ) 

W5  = 1NT ( ( WS- ( Ml *10000 ) ) / 10O ) 

W3  ~ W5  - (Wl*10000>  - (Wa*100) 


W3  + W4  > 00(7) 

W3  * W3  + W4 
1136 

Wa  + 1 > G0(6) 

wa  - wa  + l 

M3  =■  W4  + W3  - Q0(7) 
1136 

W1  + 1 > 00(5) 

Ml  « W1  ♦ 1 

wa  = i 

M3  = M4  ♦ M3  - 00(7) 
1136. 

R8*  * "00“ 

R7*  = "Subroutine  103“ 


THEN  108B 


THEN  1 104 


THEN  lia4 


GOSUB  ' 000 
RETURN 


REM  BRANCH  TO  EXIT 

REM  CMPUT  DEC  VAL 
RtM  CMPUT  PAGE  ft 
RtM  CMPUT  ROM  # 

RtM  CMPUT  COL.  # 

RtM  BRANCH  TO  EXIT 

REM  CONV  TO  DEC 
REM  ADD  TO  DEC 
REM  CONV  TO  HEX 
REM  BRANCH  TO  EXIT 

RtM  NO  SPACE  ON  ROW 
RtM  I NCR  COL  INDX 
REM  BRANCH  TO  EXIT 
RtM  NO  SPACE  ON  FICI-IE 
RtM  I NCR  ROW  INDX 
REM  ADJUST  COL  INDX 
RtM  BRANCH  TO  EXIT 
REM  NO  SPACE  ON  DISK 
REM  I NCR  PAGE.  INDX 
REM  StT  ROW  INDX 
RtM  ADJUST  COL  INDX 
RtM  BRANCH  TO  EXIT 
REM  SET  ERR  CODE 
REM  SET  SOURCE 
REM  ERR  PROCESSING 
RtM  EXIT 


9 & 


AU  I'HQR  S y r>  t c m 


ha  *r>  e 3 


ATIH  1 / I 1 I 


1 O A 


11  AO 

HEM  ** 

1 1 AA 

HfcM  ** 

HAS 

REM 

Subroutine  > *****^***************************,**-***,*-*‘**  10^ 

115c! 

HEM 

Ab 

stract  > 

1156 

RfcM 

To 

perform  Index  LooRup 

for  the  desired  item. 

1160 

HEM 

Variables  > 

1 16A 

HEM 

R 1 

> item  id  ! 

QO*< ) > index  buffer 

1168 

REM 

R2 

> rtrn  sctr  flag  ! 

R3*  > search  id 

1172 

REM 

R8 

> indx  sctr  indx  ! 

R2*< ) > srch  results 

1176 

REM 

R9 

> scrch  indx  sctr  ! 

1 180 

RLM  *++w**#*W*Ht#^*M*+^-w*+**'*+#**'*++*~*’*#**** 

118A 

OEFFN  ' 

10A 

<R1 , R2) 

: REM  ENTRY 

1188 

MAT  REDIM 

09*  < 6A ) A 

: REM  SET  1/0  BUFR 

1192 

R2  = 0 

: REM  SET  SBSCIR  INDX 

1196 

BIN<STR<R3*, 1,1))  = 

1NT<R 1/256)  : HEM  DECDE  ITEM  ID 

1200 

E)IN(STR<R3*,2, 1 ) )-=-Rl 

- INT < R 1 /2S6 ) *256:  HEM  DECDE  ITEM  ID 

120A 

FOR 

R8  = 1 TO  10 

: REM  BEGIN  LOOP  H8 

1208 

DATA  LOAD 

E)A  T #2,  <R8,R9)Q9*<>  : REM  LOAD  INDX  SCTR 

1212 

MAT  SEARCH 

09* < >,-STR<R3*, 1,2) 

TO  RE*< ) STEP  A:  HEM  SHCH  INDX 

1216 

IF 

R2*<  1 ) -•  HEX  (0000) 

THEN  1228  : REM  ID  NOi  FOUND 

1220 

RE  --  I NT  < ENR  i VAL  ( RE*  ( 1 ) ) > / A ) + 1 : REM  CMPUT  SB  SCTR  INDX 

• 

122A 

R8  = 10 

: REM  SET  END  OF  LOOP 

1228 

NEXT 

R8 

: REM  CONTINUE  LOUP  R8 

1232 

RETURN 

: REM  EXIT 

O 
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AU  l HtJfV  System 


H ha  se-  3 


ATH  1 ✓"  I X I 


+t 


01  oo 

- 

0840 

0620 

- 

0416 

0448 

- 

0436 

0516 

- 

0524 

0532 

- 

0516 

0540 

0544 

- 

0532 

0560 

0508 

0636 

- 

0628 

0660 

- 

0648 

0724 

- 

0716 

0740 

- 

0728 

0744 

0736 

0756 

- 

0712 

0844 

- 

0836 

0852 

- 

0844 

0860 

- 

0852 

0868 

- 

0860 

0876 

- 

0868 

0884 

- 

0876 

1012 

- 

0980 

1064 

1032 

- 

0-380 

1056 

1056 

- 

0980 

1076 

- 

0-380 

106.0 

1088 

- 

1076 

1104 

- 

1088 

1124 

- 

1104 

1136 

- 

1004 

1024  1048  1068  1084  1100  1120 

1228 

- 

1216 

(1500) 

- 

0848 

(4000) 

- 

0856 

(6000) 

- 

0864 

(7000) 

- 

0872 

(■3000) 

- 

0880 

i 


r 


AUTHOR 


S y s-  t em  : Ph-ase 


3 - A XU 1 / I 1 I 


— V 


BO  - 0033 

B1  - 0333 

Bl*  - 0333 

Bl*<  - 0333 

B3  - 0333 

B3  - 0333 

B4  - 0333 

B8  - 0333 

B'3  - 0333 

01  - 0336 

03  - 0336. 

D3  - 0336. 

D4  - 0336. 

04*  - 0336. 

D5  - 0336 

05*  - 0336 

06*  - 0340 

D7*  - 0340 

08*  - 0340 

09*  - 0340 


El* 

- 

0368 

0416 

0438 

K 1 

- 

0344 

0644 

0653 

0708 

0733 

0756 

K3 

- 

0344 

0708 

0730 

0744 

0760 

K3 

- 

0344 

0708 

0713 

0734 

K4 

- 

0344 

0708 

0716 

0730 

0748 

K5 

- 

0734 

0738 

0753 

K5*( 

- 

0344 

0748 

LI* 

- 

0348 

0804 

0834 

L3* 

- 

0348 

0804 

083 3 

0840 

0848 

0856 

0864 

0873  0880 

L3* 

- 

0348 

0804 

0836 

0844 

0853 

086-0 

0868 

087G 

00 

- 

0380 

00  < 

0384 

1076 

1088 

1096 

1104 

1116 

00* ( - 0384 

01  - 0380 

Ql*<  - 0384 
03  - 0380 

03* ( - 0384  0640 

03  - 0380 

04  - 0380 

Q4* ( - 0388 

05  - 0380 

05* ( - 0388 

06  - 0380 

06* ( - 0388 

07  - 0380 

07*  < - 03-33 

08  - 0380 

09  - 0380 

09* ( - 0396  1188  1308  1313 

R - 0313 

R0  - 0360 

R0*  - 0364 

R0*<  - 0373  0516  0533 

R 1 - 0360  1184  1196  1300 

Rl*  - 0364 

R 1 * ( - 0396 

R3  - 0360  1184  1193  1330 
R3*  - 0364 


MAI  ’ 


O 


359 


Ra*< 

oa7a 

0313 

iaia 

1316 

1330 

R3 

- 

oaeo 

R3* 

- 

oa64 

1 196 

laoo 

1313 

R3*< 

- 

0373 

R4 

- 

oaeo 

R4* 

- 

oa64 

R4*t 

- 

oaaA 

R5 

oaeo 

R5* 

- 

oat.4 

R5*( 

- 

oaaA 

R6 

- 

oaeo 

R6* 

- 

oaea 

R6*< 

- 

oaaA 

0304 

0/33 

0740 

0756. 

R7 

- 

oaeo 

R7* 

- 

0368 

0416 

04 3a 

0888 

0996. 

1138 

R7*< 

- 

oaaA 

0308 

0744 

0760 

R8 

- 

oaeo 

1304 

1308 

1334 

1338 

R8* 

- 

oaea 

0436 

0884 

0993 

1134 

R8*( 

oaas 

0464 

osao 

0S36 

0656 

0733  0740  0744  0748  0756  0760 

R9 

- 

oaeo 

1308 

R9* 

- 

oae8 

R9*< 

- 

oaaa 

SI 

- 

0376 

0634 

0636 

0644 

sa 

- 

oa7t 

0634 

0636 

0653 

S3 

- 

0376 

0634 

0638 

0633 

0640 

06  SG 

S4 

0376 

SA*  < 

- 

0376 

0634 

0633 

0640 

06  St. 

SS 

- 

0376 

0634 

0648 

St. 

- 

0636 

0640 

S8*(  - 0376 

S9*<  - 0376 

U0  - oast. 

ui  - oast. 
ui*<  - oast. 

W - 0316 


Ml 

- oasa 

0964 

1013 

1036 

1040 

1044 

1104 

1108 

Ml* 

- 0353 

0316 

0964 

1016 

1030 

1033 

M3 

- 0353 

0964 

1013 

1040 

1044 

1088 

1093 

1113 

M3 

- 0353 

0964 

1013 

1044 

1076 

1080 

1096 

1116 

M4 

- 0353 

0964 

1076 

1080 

1096 

1116 

MS 

- 03  S3 

0964 

0980 

1013 

1016 

1030 

1033 

1036  1040  1044 

we  - oasa 


360 


AU 

1 HOR 

Sy &t em : 

F>  ha 3 — /*TH  1/111 

— 

' M/M-' 

0412 

DfcFFN' 

0 

- 0832  1000  1132 

0336 

DfcFFN ' 

1 

0344 

DfcFFN ' 

2 

0362 

UfcFFN' 

3 

036.0 

OfcFFN' 

4 

0368 

DtFFN' 

5 

0500 

DtFFN' 

31 

0624 

UfcFFN' 

100 

0708 

DfcFFN' 

101 

, 

- 0420  0440  0448  0504 

0544  0652  0820  0828 

0804 

DEFFN' 

102 

- 0340  0348  0356  036.4 

0372 

0-364 

UfcFFN' 

103 

00 

DfcFFN' 

104 

TAE6  Report  No.  59 


ATH2/III 

This  section  of  the  'AUTHOR/3'  program  contains  subroutines 
105  to  109. 

The  remainder  of  this  section  presents  the  * ATH2/1 1 1 * 
program  listing  and  reference  maps. 


MaAWHttbfi  - .< : 


mSsbsh)  mps 


AUTHOR 

&t:cin:  F' Piai b c 3 — 

ATH2 XXII  — X O 

1500 

%#1t  Program 

> AUTHOR / 3 (ATH2/I I I ) Version 

> 2.0 

2200 

T/VP  780321 

lSO^: 

REM 

Subroutine  > 10b 

1508 

REM 

Function  > 

1512 

REM 

Load  storage  bufer  from  disk 

1516 

REM 

Variables  > 

1520 

REM 

R0$  > begning  sctr  adrs!  RO  > bufr  indx 

1524 

REM 

R3$  > scrtch  indx  adrs  ! R2  > indx  item  f] 

g 

1528 

REM 

QO$()  > -transfer  buffer  ! Q6<  ) > 

bufr 

flag 

1532 

REM 

Rl$<)  > storage  buffer  ! R2$()> 

sr  ch 

rsul ts 

1536. 

REM 

R1  > item  id  1 

1540 

REM 

1544 

REM 

1548 

DEFEN  ' 

105 

<R0$,R0,R1 ) 

REM 

ENTRY 

1552 

MAT  REDIM 

09$  <64)4 

REM 

SET  I/O  BUFR 

1556 

IF 

Q0$<1>  <>  “1"  THEN 

1576 

REM 

LOAD  AT  BEG1NING 

1560 

STR<09$( 1 ) , 3,2)  = R0$ 

REM 

SET  BEG  SCTR  ADRS 

1564 

R2  = 1 

REM 

SET  SBSCTR  INDX 

1568 

QO$(l>  = "0" 

REM 

RESET  FLAG 

1572 

GOTO 

1608 

REM 

BENCH  TO  LOAD 

1576 

G0SU8  ' 

104 

<R1,R2> 

REM 

LOCATE  ITEM  INDX 

1580 

IF 

R2  <>  0 THEN 

1608 

REM 

ITEM  POUND 

1584 

COSUB  ' 

101 

< 16, 1. 1,0) 

REM 

POSITION  CUSUR 

1580 

PRINT 

“ ITEM  DOES  NO  1 EX  IS  I " 

RP.M 

PENT  ERR  MSG 

1592 

R8$  = "99" 

REM 

SET  ERR  CODE 

15-36. 

R7$  = "Subroutine  105" 

REM 

SET  LRR  SOURCE 

1600 

COSUB  ' 

OOO 

REM 

ERR  PROCESSING 

1604 

COTO 

16-36. 

REM 

BRNCI-I  TO  EXIT 

1608 

R0$  ~ STR  ( Q9$  < R2 ) , 3, 2 ) 

REM 

ST  OR  BEG  ADRS 

1612 

RO  = 1 

REM 

SET  BUFR  INDX 

1616 

IN1T 

<20)  Rl$< ) 

REM 

CLR  BUFR 

16.20 

DATA  LOAD 

BA  1 #2,  ( K0$, R3$ ) 09$ ( ) 

REM 

LOAD  DATA 

1624 

MAT  COPY 

09$  < ) < 1 , 252>  TO  R 1 $ ( ) <R0, 252> 

REM 

LOAD  BUFFR 

1628 

IP 

0-3$  (64)  <>  HEX(FFFFFFFF)  THEN 

1676 

REM 

NOT  END  OF  BUFR 

1632 

MAT  SEARCH 

Rl$< ) , = R5$ < 2 ) TO  KH$< ) 

REM 

SRCH  FOR  EDI 

1636 

IP 

R2$< 1 ) <>  HEX (OOOO)  THEN 

1664 

REM 

EOI  POUND 

1640 

COSL9  ' 

101 

(16, 1, 1,0) 

REM 

POSITION  CUSUR 

1644 

PRINT 

“ DATA  IMPROPERLY  STORED" 

REM 

PRNT  ERR  MSC 

1648 

R8$  = *9-3" 

RLM 

SET  ERH  COUE 

1652 

R7$  = "Subroutine  105" 

REM 

SET  ERR  SOURCE 

1656 

GOSUB  ' 

OOO 

REM 

ERR  PROCESSING 

1660 

GOTO 

16-36. 

REM 

BENCH  TO  EXIT 

1664 

RO  = f NR  ( VA1_  ( R2$  ( 1 ) ) ) 

REM 

CMPUTE  BYTE  STORED 

1668 

MAT  COPY 

R5$( ) <1,1>  TO  Rl$< ) <R0, 1 > 

REM 

CLR  EOI  BYTE 

1672 

GO  10 

1696. 

REM 

BENCH  TO  EXIT 

1676 

RO  * HO  + 252 

REM 

I NCR  BUFR  INDX 

1680 

R0$  * STR  < Q‘3$  < 64 ) , 3, 2 ) 

REM 

Si  OR  NXT  ADRS 

1684 

IP 

RO  < 2016  THEN 

1620 

REM 

BUFR  NOl  FULL 

1688 

00$ ( 1 ) = “1* 

REM 

SET  FLAG 

1692 

RO  = 2016 

REM 

SET  TO  BUR  MAX 

1696 

RETURN 

REM 

EXIT 

c 
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AUTHOR 


i y e-  -t  pm : F*  hasp  — ATHS/I  II  — 


1700 

1704 

1708 

1712 

1716. 

1720 

1724 

1728 

1732 

1736. 

1740 

1744 

1748 

1752 

1756. 

176.0 

176.4 

1763 

1772 

1776. 

1780 

1784 

1788 

1782 

1786 

1800 

1804 

1808 

1812 

1816 

1820 


HEM  *+ 

REM  ** 

REM 
HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN 
MAT  RE.D1M 
DA  I A LOAD 


Subroutine  ***«♦***«*#**«**««*«*****#♦«*«**♦******  10  6 

Function  > 

To  verify  that  proper  output  disk 

volume  is  mounted.  Initial  new  output  disfs. 

Variables  > 


00*0  > index  buffer 

Ql*( ) > out  indx  buf r 
R0*( ) > input  buf r 
R2*()  > sctr  adrs  sav 
Q6*()  > program  flags 


R9  > verify  mode 
R8  > out  indx  pos 
sctr  adrs 
sctr  adrs  msk 


! R3* 

! R8*> 


AND 
If 

REM  ** 

REM  ** 

REM  ** 

ON  R9  GOSUB 
REM  ** 

REM  ** 


AND 

RETURN 


106  <R3*,R9> 

08* (64) 4 

BA  T #3,  (0,R8)Q9*() 
R8*  = HEX (FOOD) 

R2* ( 1 ) = R34 
<R34,R8*) 


REM  ENTRY 
REM  SET  1/0  BUFR 
REM  LOAD  O SECTOR 
REM  CREATE  MASK 
REM  SAVE  SCTR  ADRS 
REM  MASK  SCTR  ADHD 


STR ( R 3*, 1,1) =STR ( 09* ( 1 3 ) , 1 , 1 ) THEN  1808:  REM  COMPARE  VOL  IDS 
! NEW  OUTPUT  DISK  ! NEXT  OUTPUT  DISK  ! 


18S2 


2096. 


REM  BRANCH 


R3*  = R2* ( 1 ) 

R8*  = HEX (Of FF ) 

(R3*,R8») 


REM  FETCH  ADORES 
REM  CREATE  MASK 
REM  MASK  SCTR  ADRS 
REM  EXIT 


o 
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AU  1 1 KJR  System:  Phase 

3 

— 

ATI 

155  / I I I 1 O ( 

18.24 

REM  ** 

1858 

REM  ** 

1835 

REM  Subroutine  **^^^^^**^****^************^****-*HHfr  1 0 G.  1 

1836 

REM  **  Abstract  > 

1840 

REM  **  To 

initialize  a new  Phase 

III 

output  Disk. 

1844 

REM  ** 

1848 

REM  IHUHHHHHHHHHHHHHt 

1855 

GOSUB  ' 101 

(1,1,16,0) 

REM 

ENTRYZERASE  CRT 

1856 

GOSUB  ' 101 

(3, 1,0,0) 

REM 

POSH  ION  CUSOR 

1860 

PRINTUSING 

5040,  “ “ 

REM 

PRINT  INSTRUCTIONS 

1864 

GOSUB  ' 101 

(6, 1,0,0) 

REM 

POSITION  CUSOR 

1868 

PRINTUSING 

5044,  “ " 

1875 

REM  ** 

1876 

GOSUB  ' 091 

REM 

RESPUNCE  WAIT 

1880 

DATA  LOAD 

BA  T #4,  (0,R8)Q9*() 

REM 

LOAD  SYS  SCTK 

1884 

IF 

Q9*(l>  = HE  X ( OOOOOOOO  > 

THEN 

1916  : 

REM 

IF  ZERO  DISK 

1888 

GOSUB  ' 101 

( 10,1,0,0) 

REM 

POSITION  CUSOR 

1895 

PRINTUSING 

5048,  " " 

REM 

PRINT  ERR  MSG 

1896 

$G  10  TONE 

/005  (R8*(4),R8*(9> ) 

REM 

PAUSE  TONE 

1900 

*GIU  TUNE 

/005  (R8*(4),R8*(9) ) 

REM 

PAUSE  TONE 

1904 

GOSUB  ' 101 

(10,1,1,0) 

REM 

ERASE  EPR  MSG 

1908 

GOTO 

1876 

REM 

BRANCH  TO  WAIT 

1915 

REM  ** 

1916 

FOR 

R9  = 15  TO  0 STEP  -1 

REM 

BEG  COPY  LOOP 

1950 

OATA  LOAD 

BA  T #3,  (R9,R8)  G9*(  ) 

REM 

LOAD  1DX  SCTR 

1954 

DATA  SAVE 

BA  T #4,  <R9,R8)  G9*() 

REM 

SAVE  IDX  SCTR 

1958 

NEXT 

R3 

REM 

CONT  COPY  LOOP 

1935 

REM  ** 

1936 

ADO 

(STR(G9*< 13) , 1,  1 ) , 10) 

REM 

INCR  VOL  ID 

1'940 

RS*<5)  = STR ( 09$ ( 13), 1, 

5) 

REM 

SAVE  VOL  ID 

1-944 

DATA  SAVE 

BA  T #4,  (0, R8 ) G9*( ) 

REM 

SAVE  SYS  SCTR 

1948 

GOSUB  ' 101 

(6,1, 1,0) 

REM 

ERASE  SCREEN 

1955 

PRINTUS1NG 

5055,  " M 

REM 

PRINT  INSTRUCTNS 

1956 

REM  ** 

1960 

GOSUB  ' 091 

REM 

RESPUNCE  WAIT 

1-964 

DATA  LOAD 

BA  T #3,  (0,R8>  Q9»() 

REM 

LOAD  SYS  SCTR 

1-968 

IF 

STR ( Q9$ (13), 1,5)  = R5*<5> 

THEN 

5000  : 

REM 

ID'S  MATCH 

1975 

G0SU8  ' 101 

( 10,1,0,0) 

REM 

POSITION  CUSOR 

1976 

PRINTUSING 

5056,  " " 

REM 

PRINT  ERR  MSG 

1980 

*GIO  TONE 

ZOOS,  <R8*(4),R8*(9) ) 

REM 

PAUSE  TONE 

1984 

*GIO  TONE 

ZOOS,  (R8*(4),R8*(9) ) 

REM 

PAUSE  TONE 

1988 

GOSUB  ' 101 

< 10,1,1,0) 

REM 

ERASE  ERR  MSG 

1995 

GOTO 

1855 

REM 

BRANCH  TO  START 

1-9-96 

REM  ** 

5000 

PRINT 

HEX ( 03 ) 

REM 

CLR  CONSOLE  DEV 

5004 

Q0*<5>  = -l" 

REM 

SET  INDX  RESET  FLG 

5008 

R3*  = HEX (5105) 

REM 

SET  PACK  INSTRUCTS 

5015 

FOR 

R9  = 1 TO  16 

REM 

BEG  OUTPUT  LOOP 

5016 

tPACK 

(F=R8t)STR(R8*(9)  ,7,5) 

FROM  R9 

REM 

PACK  LINE  INDX 

5050 

TG10  Z0D5 

(R8t(6),R8*(9) )Q5*( )<<R9  1 >*64+1, 64>: 

REM 

OUTPUT  PAG  QUFR 

5054 

NEXT 

R9 

; 

REM 

CONT  OUTPUT  LOOP 

C 


365 


OUTPUT  IMAGE  FORMATS 


2058  REM  ** 

2032  REM  ** 

2036  REM  ** 

2040  X # ******  OUTPUT  DISK  OVERFLOW  ****** 

2044  X # Mount  a FORMATTED  Disk  into  SECONDARY  Output  Drive... 
2048  X # **  DISK  IN  FORMAT  DRIVE  NOT  FORMATTED  ** 

20S2  X # Replace  Output  Disk  with  New  Output  Disk. 

2056  X # **  NEW  DISK  DOES  NOT  VERIFY  ** 

2060  REM  ** 

2064  RETURN  : REM  EXIT 
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AU  » HOR  Gy&t  E>rn 


P ha  is  e 3 


ATt  123  Sill 


l O 7 


2204 
2203 
2212 
2210 
2220 
2224 
2222 
2232 
2236 
2240 
2244 
2248 
22b2 
2256 
2260 
2264 
226.8 
2272 
22  76 
2220 
2284 
2222 
22-32 
22-36 
2300 
2304 
2308 
2312 
2316 
2320 
2324 
2.328 
2332 
2336 
2340 
2344 
2348 
2352 
2356 
236.0 


REM  ** 

REM  *•* 

REM 
REM 
HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM  ^-fr*****^-*********-#-****************-*-*-*'*-*-*-***** 


OEFFN  ' 107 

<R3,R4,RS,R04, 10) 

REM 

ENTRY 

R6  = 1 

REM 

1N1T  BUFR  INDX 

R7  = 0 

REM 

IN1T  WORD  LENGTH 

Q1  - R3 

REM 

IN1T  LINE  INDX 

02  = R4 

REM 

INI  1 COL.  INDX 

MAT  SEARCH 

R14<  ><R6,201fc-R6+l>,  < 

>R54< 1 ) TO 

R24  < ) 

REM 

SRCH  FOR  CHAR 

IF 

R24<1>  <>  HEX(OOOO) 

THEM 

2312 

REM 

IF  BUFR  NOT  EMPTY 

IF 

004(1)  <>  "1“ 

THEN 

2360 

REM 

BLOCK  DONE 

GOSUB  ' 105 

<R04,R0,R1) 

REM 

LOAD  RES1  UF  ITEM 

R6  = 1 

REM 

RESET  BUFR  INDX 

GOlO 

2288 

REM 

BRNCH  TO  SRCH 

R6  = FNR<VAL(R24<1)>> 

+ R6.  - 1 

REM 

CMPUT  BUFR  PUS 

MAT  SEARCH 

R 1 * ( ) <R6 , 20 1 6-R6+ 1 > , =R54< 1 ) TO 

R24  ( ) 

REM 

SRCH  FDR  WORD  END 

R7  = FNR<VAL(R24(i>) ) 

RLM 

WORD  LENGTH 

MAT  COPY 

R14< )<R6,R7>  TO  R34< > 

< 1 , R7> 

REM 

EXTRACT  WORD 

MAT  COPY 

R 34  ( XI,  1 > TO  ROK) 

<1,1  > 

REM 

EX'IRACl  1ST  BYTE 

IF 

R04 ( 1 ) <>  R 54 ( 6 ) 

THEN 

2348 

REM 

NUT  KEYWORD 

COSUB  ' 108 

<R6,R7,H34< 1 ), 10) 

REM 

PROCESS  KEYWORD 

R6  - R6  + R7  - 1 

REM 

INCH  BUFR  INDX 

GOTO 

2288 

REM 

BRNCH  TO  WRU  SRCH 

GOSUB  ' 109 

< 01 , R4, Rfa, R7, R34 ( 1 ) , 10) 

REM 

LOiAD  WORD  ONTO  PAG 

R6  = R6  + R7  - 1 

REM 

INCH  uUFR  INDX 

GOTO 

2288 

REM 

RRNC  TO  WRD  SRCH 

RETURN 

REM 

EXIT 

Subroutine  > ■*■«■******■*•*****■*■'<■ ****#****♦*#*♦♦«*****♦♦***#  10  7 

Function  > 

To  create  a block  of  text  from  storage 
to  Page  buffer. 

Variables  > 


R14<  ) 

> 

storage  bufer  ! 

R3  > begin  line 

R24  ( ) 

> 

search  buffer  ! 

R4  > dflt  left  mrgn 

R54<  ) 

X, 

search  id's  ! 

R5  > dflt  right  mrgn 

Q6<  ) 

> 

flags  ! 

R6  > buffer  pointer 

024  ( ) 

> 

page  buffer  ! 

R7  > length  of  word 

R04 

> 

begin  setr  adrs  ! 

R 1 > item  id 

10 

> 

spaces  to  indent! 
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AU  1 

1 HOR 

E-tem:  P hd  s c 

3 — 

ATH2*  /III 

1 O 

2364 

REM 

2368 

REM 

4* 

2372 

HEM 

44 

Subroutine  <hhhhhh t-w**-^*#**********-*-*****--*-*-*-*-*-***-**--*-*-**-  \ 0 E 

2376 

REM 

Abstract  > 

a 380 

REM 

-*■* 

To 

execute  a formating  command  by 

positioning 

5384 

REM 

44 

the  buffer  pointer. 

2388 

REM 

Variables  > 

2 3-D  2 

REM 

R6 

> begining  bufr  pos  ! 

R7 

> length  of 

word 

2396 

REM 

R3$()  > word  ! 

R8 

> command  indx 

2400 

REM 

•** 

R5 

> new  right  margin  ! 

R4 

> new 

left  ma  r g i n 

2404 

REM 

06$  < ) > cmmnd  indx  tbl  ! 

10 

> spaces  to 

indent 

2408 

REM 

44 

2412 

REM 

2416 

DEFFN  ' 

108 

<R6,Ri',R3*(l),I0> 

: 

REM 

ENTRY 

2420 

MAT 

SEARCH 

06*<),=S1R<R3$<1),2,2)TU 

R2$< ) STEP  2: 

REM 

SRCH  KEYWRU  TBL 

2424 

If 

R2$  < 1 ) = HEX  < 0000 ) 

THEN 

2460  : 

REM 

INVALID 

KEYWORD 

2428 

R8  = 1NT<FNR<VAL<R2$< 1 ) ) )/2)+l 

l 

REM 

COMPUTE 

INDX 

2432 

REM 

** 

2436 

REM 

+* 

! TEXT  ! WORD  ! LINE 

1 

CAPS  • 

TABL  ! 

2440 

REM 

44 

1 1 - - 1 

- 1 - 

1 - 

1 

2444 

ON  R8  GOSUB 

2482  , 2568  , 2644 

9 

26.88  , 

2732  , 

2916  , 2956  , 3012 

9 

3076  , 

2460  : 

REM 

BRANCH 

2448 

REM 

- ! - 

1 . 

2452 

REM 

! SBTITL!  PAGE  ! LINE 

i 

SPACE ! 

NULL  ! 

2456 

REM 

2460 

RETURN 

1 

REM 

EXIT 

& 5 


/M_I  1 

! HOR 

24S4 

REM 

*-* 

24  es 

REM 

2472 

REM 

*”fr 

247E 

REM 

**■ 

2480 

REM 

*"* 

2484 

REM 

*”fr 

2488 

REM 

2432 

243C 

MAT 

SEAI 

2b00 

IF 

2b04 

2b08 

2bl2 

2b  16 

♦UNPACK 

2b20 

IF 

2b24 

CONVERl 

2b28 

CONVERT 

2S32 

2b3fc. 

RETURN 

G/stem:  Phai 


• o 


3 — ATH2/I  X X 


o is  . l 


Subprogram  10  8.1 


Abs-trac-t  > To  execute  the  '<text> 


command. 


R&  = R&  + F<7  - 1 

ri*< )<Re,aoie-Re+i>, =RB*<eno  R2$< ) 
R2*<1)  = HEX < OOOO ) THEN  253G 

Re  * FNR  < VAL  ( Reft  < 1 ) ) ) + Re  - 1 

r7  = g 

R8*  = HEX ( 032C ) 

<D=R8«>  Rl*< ><RS+l,H7-3>  TO  H4$,Rb* 
NUM<R4*)-NUM<Rb*)  <>  O THEN  253E 
R4*  TO  R4 
R5*  TO  R5 
Q2  * R4 


REM  ENTRY 

HEM  SHCH  FOR  NX!  KEY 
REM  KEY  NOT  FOUND 
REM  COMPUTE  POS 
REM  SET  WORD  LEN 
REM  SET  UNPACK  I NOT. 
REM  UNPACK  F'RAMS 
REM  INVALID  NUMBERS 
REM  SET  LEFT  MARC  IN 
REM  SET  RIGHT  MARGIN 
REM  SET  LEFT  MARGIN 
REM  EX  I I 


AUTHUR  Syst  e-rr> : P ha  & c 3 — ATHZ!/1  I I 


REM 
REM  ** 

REM  **  Suhp 
REM  ** 

REM  **  Abs-t 
REM  ** 

RtM  »«■»»♦»■»♦ 
GOSUB 

MAT  SEARCH 
IF 

IF 

<TRAN 

MAT  SEARCH 

GOTO 

RETURN 


r o g r am  ■•Hf-**-*-***-**-*-****-*-********-*-******-#-*-**-#-*-**^*-***  10  8.5 

ract  > To  execute  thr  '<word>'  command. 


R8  = R6  + 6 
3168 

R9  = R8  + R9  - 1 

Rl<< ) <R8, 5016- R8+ 1>, <>R5< < 1 ) TO  R5*< ) 
R5*(l)  = HEX ( OOOO ) THEN  5615 

R8  = FNR<VAL<R5<<D  ))  + R8  - 1 
R8  = R9  THEN  5615 

<R1<<KR8,1>,  R4«<)<1,64>>  R 
Rl<<  ) <R8, 5016-R8+1 > , ~ R5<<1)TQ  R5»<  ) 
R8  = FNR<VAL<R5<< 1 )) ) + R8  - 1 
5580 


ENTRY 

COMPUTE  BUFFR  L.EN 
LSI  VALID  BUF  POS 
SRCH  FOR  WORD 
BUFR  EMPTY 
COMPUTE  BUF  POS 
END  C6  BUFFER 
CASE  CONVERSION 
SRCH  FOR  END  OF  WRD 
COMPUTE  BUF  POS 
BHNCH  TO  NXT  WRU 
EXIT 


r 
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AUlHOR  System:  Phase 


ATI  15  /III  1 o a 


26.16  REM  ** 

2620  REM  •** 

2624  REM  *■*  Subprogram  hhhhm  h > » * » »*hhiihhhhhhhhhhhhhi»«*w««hhhhhhhk  10  8.3 
26-28  REM  ** 

2632  REM  *■*  Abstract  > To  execute  the  '<lower>'  command. 

2636  REM  ** 

2640  REM  *******HHHHHHHHHHHHHHHHHHHHHHt*HHHHHHHHHHHHHH» 


2644 

R8  " R6  + 7 

REM 

ENTRY 

2648 

GOSUB 

3168 

REM 

COMPUTE  QUFR  LEN 

26.52 

♦TRAN 

<R1*< )<R8,R9>,  R4$ ( ) <65, 64> )R 

REM 

CASE  CONVERSION 

26.56 

RETURN 

REM 

EXIT 

c 
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AUTHOR  S/stem 


Phase  3 


ATHS/I  I I 


1 O EJ 


2660 

REM  ** 

2664 

REM  ** 

ae.6s 

REM  ** 

Subprogram  ********************************************  108. 

2672 

REM  ** 

26/6 

REM  ** 

Abstract  > To  execute  the  '<caps>' 

command. 

2680 

REM  *•* 

2684 

26.88 

R8  = R6  + 6 

: REM 

ENTRY 

2692 

cosub 

3168 

: REM 

COMPUTE  BUFR  LEN 

2696 

UTRAN 

<R1*<KR8,R9>,  R4*<  ><1,64>)R 

: REM 

CASE  CONVERSION 

2/00 

RETURN 

: REM 

EX  II 

1 


372 


F->  ha  e-  c 


3 


ATh  IcU  y I I X 


1 


o s 


/MJ  l HOR  S y & -t  t>m  : 


ay  oa 
a/os 
ana 
a7it. 
avao 
a/34 
ay  as 

3733 

ay  36 

3740 

3744 

3748 

a/ 5a 

3756 

3760 

3764 

3768 

377a 


REM 

KEM 

HEM 

REM 

KEM 

KEM 

KEM 


■** 

*•* 

** 

*■» 


Subprogram  «nm************Hnnnnt»**********-»**ii*«****» 
Abstract  > lo  execute  the  XtableV  command. 


R6  = R6  + 7 


: REM  ENTRY 


0 8 . 


MAT  SEARCH 
IE 


^UNPACK 

IE 

CONVERl 

CONVERl 


Rl*( )<R6,a016-R6+l>,=  R5S < 6) TO  R3$(): 
R3*<1)  = EtEX  <0000)  THEN  3884  : 
R6  = FNR  ( VAL  ( R3*  < 1 ) ) ) + R6  - 1 : 

py  - g - 

R8*  ^ HEX  (033C  ) : 
<D=R8t)  Rl*(XR6+l,R7-3>  TO  R4*,R5*  : 
NUM<R4*)-NUM<R5*)  <>  O THEN  3884  : 
R4*  TO  R4  : 
R5*  TO  R5  : 
R6  = R6  + 7 


KEM  SRCH  F OK  KEYt'JRL) 
KEM  KEYWRO  NOT  ruUND 
REM  COMPUTE  BUFR  POC 
REM  BET  WRD  LENCtH 
REM  SET  UNPACK  INST. 
KEM  UPACK  PAR AMS 
REM  INVALID  NtJM  E'MT 
KEM  SET  L.EFT  MARGIN 
REM  SET  LINES  IN  TBL 


5 


3776 

R7*-  " <*>• 

3/80 

IF 

R5  > 14  THEN 

3884 

REM 

3784 

IF 

R5  <*  16- <Q1+1 ) THEN 

3808 

REM 

3788 

COSUB  ' 100< 16,41,33, “To  continue  Go  to  : nx tO" , 00 ( 13) ) 

3793 

COSUB  ' 110 

<D1,D3,D3,D4*,D5) 

REM 

3796 

GOSUB  ' 101 

<3, 1, 15,0) 

REM 

3800 

$TRAN 

< 03* ( > <65 , 960 > , R4*  < ) <177, 4> )00  R 

REM 

3804 

Q1  * 1 

REM 

3808 

01  - 01  + 1 

REM 

3813 

Q3  - R4 

REM 

3816 

FOR 

R8  = 1 TO  R5 

REM 

3830 

MAT  SEARCH 

Rl*  ( ) <R6, 3016-R6+ 1 > , - R7*  TO  R3*l  ) 

REM 

3834 

R6  - FNR<VAL<R3*< 1 ) > ) + R6  + 3 

REM 

3838 

R9  - 64 

REM 

3893 

IP 

3016-R6+1  > 63  THEN 

ru 

00 

c 

KEM 

3836 

R9  = 3016-R6+1 

REM 

3840 

MAT  COPY 

R1*(XR6,R9>  TO  B4*(X1,64> 

REM 

3844 

MAT  SEARCH 

S4*<),  = K 5* < 6 ) TOR3*() 

REM 

3848 

R7  - FNR  ( VAI.  < R3*  ( 1 ) ) ) 

REM 

3853 

IP 

R7  <>  0 THEN 

3860 

KEM 

3856 

R7  = 64 

REM 

3860 

MAT  COPY 

R5*(X1,1>  70  S4*(XR7,64-R7  + 1 

REM 

3864 

GOSUB  ' 100 

(Q1 , 03, 64-R4+1 , S4* ( 1 ) , QO< 13) ) 

REM 

3868 

01  = 01  + 1 

REM 

3873 

R6  = R6  + R7  - 3 

REM 

3876 

NEXT 

R8 

REM 

3880 

R7  - 5 

REM 

3884 

HLTURN 

rp:m 

MAX  l.INES  EXCEEDED 
BE’ ACE  AVAIA8L.E 


SI  OR  PAC  ON  DISK 
CLK  CKT  SCREEN 
CLK  PAG  BUFR 
SET  BUFR  LIN  INDX 
I NCR  BUFR  LIN  IDX 
RESET  LEFT  MARGIN 
PKOCE5  ALL  LINES 
SRCH  STORAGE  BUFR 
COMPUTE  POSITION 
SET  7 0 MAX  LENGTH 
NOT  END  OF  BUFFR 
SET  TO  MAX  LEGNTH 
LOAD  LIN  TO  BUFR 
SRCH  FOR  END 
COMPUTE  P0S1UDN 
EDI  FOUND 
SET  TO  MAX  LENGTH 
CLR  END  OF  BUFR 
LOAD  PAG  BUFR 
1NCR  BUFR  LIN  IUX 
INCH  STOK  BUF  IDX 
C.ONT  PROCESSING 
SET  LAST  KEY  LEN 
EXIT 


2928  rem  ** 

2932  RtM  ** 

2936  REM  **  Subprogram  *•**■*•*  x «»««  * x ■***-*«  » a • » 10  8 

2940  REM  ** 

SS 44  REM  **  Abstract  > To  execute  -the  ' <page>'  command. 

2948  REM  ** 

29S2  REM  ♦HHHHHHHHHHHHHHHHHHMHHHMHHHMHHHHHHHMHHHHHHHHHf 

2956  Q1  = 2 : RtM  ENTRY 

2960  02  *=  R4  +10  ! REM  SET  LEFT  MARGIN 

2964  GOSUB  ' 100<  16, 41  , 23,  "To  continue  Co  to  :nxtO"  ,Q0(  12)  ) 

2968  GOSUB  ' 110  <D1,D2,U3,D4*,D5)  : REM  STOW  PAG  ON  DISK 

2972  GOSUB  ' 101  (2, l,lb,0> 

2976  4 TRAN  <02*<  K6S,  960>,  R4*0<177,4>>00  R .*  REM  CLR  PAG  BUFR 

2980  RETURN  : REM  EXIT 


AUTHOR 

sx 

2-384 

REM  ** 

2988 

REM  ** 

2992 

REM  ** 

Subp 

2996. 

REM  +-* 

3000 

REM  ** 

Abst 

3004 

REM  ** 

3008 

REM 

3012 

3016 

3020 

IF 

3024 

GOSUB  ' 

100 

3028 

GOSUB  ' 

110 

3032 

GOSUB  ' 

101 

3036 

♦TRAN 

3040 

3044 

RETURN 

■tem:  Ph3i 


— ATHS/I  1 I 


O 43 


1 0 8 .8 


> To  execute  the  /<line>/  command. 


Q1  = Q1  + 1 
02  = R4 
01  < 16 


THEN  3044 


REM  ENTRY 

REM  RESET  LEFT  MARGIN 
REM  NOT  LAST  LINE 


< 16,41,23, -To  continue  Go  to  :nxtO" ,00( 12) ) 
(01 , D2,03, 04$, Ob) 

(2,1,15,0) 

( 02* ( ) <65, 960> , R4*( )<177,4>)00  R 
01  = 2 


REM  SI  OR  PAG  ON  DISK 
REM  CLR  CRT  SCREEN 
REM  CLR  PAG  DUFR 
REM  RESLT  LINE  INDX 
REM  EX 1 1 


- *=*  L. 


376 


3048  REM  ** 

3052  HEM  *-* 

3056  REM  **  Subroutine 
3060  RtM  ** 

3064  RtM  *■*  Abstract  > 

3068  RtM  ** 

3072  RtM 

3076  R6  = R6  + R7  - 1 

3080  MAT  SEARCH  Rl*< ) <R6, 2016-R6+1>, = 
3084  II-  R2*<1>  = HEX(OOOO) 

3088  R6  = FNR<VAL(R2*<1> ) > 

3092  R7  = 5 

30*36  R8*  = HEX  (A0o2) 

3100  ^UNPACK  <F=R8*>  Rl*< )<R6+l,R7-3 

3104  II-  NUM<R4*)  <>  2 

3108  CONVERT  R4*  TO  R9 

3112  02  = 02  ♦ R9 

3116  IF  02  < R5 

3120  GOSUB  3012 
3124  RETURN 


c onKnan  d 


REM  ENTRY 

RtM  SRCH  RSI  OF  CMND 
RtM  INVALID  CMND  SEO 
RtM  I NCR  POSITION 
RtM  STOR  RtSULT 
RtM  StT  UNPAK  FORMAT 
REM  FETCH  TAB 
RtM  INVALID  FORMAT 
REM  CMPUT  TOTAL  MOVE 
RtM  UPDATE  INDEX 
REM  W1THEN  MARGIN 
RtM  INCR  LINE  INOX 
REM  EXIT 


R5*(6)  TO  R2«() 
THEN  3124 
+ R6  - 1 


10  R4* 

THEN  3124 


THEN  3124 


AU  I I IQR  SystBin 


P hia  &e?  il 


ATHii  / I X X 


1 O fcs 


X 


u 


3138 

REM 

*-* 

313 3 

REM 

*»* 

31 36 

REM 

Subprogram 

3140 

REM 

*■* 

Abstract  > 

3144 

REM 

*•* 

3148 

REM 

*■* 

3183 

REM 

Note  > 

3156 

REM 

*"* 

3160 

REM 

*•«* 

3164 

REM 

WWH.MMMWMUMM 

R 'lMTirir  Jr  Tr'Jc 

3168 

MAT 

SEARCH  Rl*() 

3173 

IF 

R3«(l 

3176 

3180 

G010 

R9  = , 
3188 

3184 

3188 

RETURN 

R9  = 1 

To  compute  the  length  of  the  buffer 
to  which  modifications  are  to  be 
performed  on. 
special  computations... 

> R8+R9-3  last  valid  char  position 

> R8+R9-1  position  of  nxt  command 


<>  HEX (OOOO) 
life  - R8  + 1 


THEN  3184 


: REM  KEYWRD  FOUND 
: REM  SET  10  BUFR  MAX 
: REM  BHNCH  TO  EX 11 
: REM  COMPUTE  BUFR  LEN 
: REM  EXIT 


AUTHOR  3y  b t em 


Pha&E-  3 


ATH2/I I I 


1 O ’■=) 


REM  ** 

REM  ** 

KtiM  **  Sub routine  *HH********^***^******************-s>-*-*-<,--''-*-,,*-<<--«--i’--s-  10  9 

REM  ■»*  Abstract  > 

REM  **  To  format  the  input  word  wither  margins  and 
REM  **  to  control  page  formatting  and  storage  control. 

REM  **  Variables  > 

REM  **  Q1  > current  row  indx  ! 02  > current  col  indx 

REM  **  R4  > left  margin  ! RS  > right  margin 

REM  **  10  > spaces  to  indent  ! 

REM  ** 

Rt-_M  *^***+*+^^**-^*-»  ■IHt'-fr'fr-X-* 

DEFFN  ' 10-9  (Q1,R4,H5,R?,R3*(1>,10>  : REM  ENTRY 

IK  Q2+R7-1  <=  R5  THEN  3280  : REM  WORD  K ITS  ON  LINE 

Q1  ” Q1  + 1 : REM  I NCR  LINE  INDX 

02  = R4  + 10  : REM  SET  LEFT  MAR1CN 

IF  01  < 16  THEN  3280  : REM  NO"!  LAST  LINE 


01  < 16 
01  = 2 


REM  ENTRY 

REM  WORD  FITS  ON  LINE 
REM  I NCR  LINE  INDX 
REM  SET  LEFT  MAR1CN 
REM  NO  "I  LAST  LINE 
REM  SET  TO  T-O-R 


GOSUB  ' 
GOSUB  ' 
GOSUB  ' 
STRAN 
GOSUB  ' 

RETURN 


100< 16, 41 , 23,  "To  continue  Go  to  :nxtO" ,QO( 12) ) 

110  <D1,D2,D3,D4*,D5)  : REM  SAVE  CURNT  PAG 

101  (2,1,15,0)  : REM  ERASE  CRT  TEXT 

(Q2*( )<65,960>,  R4$( ) <177, 4> )00  R : REM  ERAS  BUFFER 
100  (01 , 02, R7, R3$( 1 > , 00 ( 12) ) : REM  WRITE  WORD 

02  = 02  +R7  : REM  INCR  COL  INDX 

: REM  EXIT 


/"»LJ  I HOI  < S x s-  “t  em  = 


1576  - 1 55€. 

1 &08  - 1572  1580 

1630  - 1684 

1664  - 1636 

1676  - 1638 

1696  - 1604  1660  167a 

1808  - 1780 

1853  - 1796  1993 

1876  - 1908 

1916  - 1884 

3000  - 1968 

3040  - 1860 

3044  - 1868 

3048  - 18-93 

3053  - 1953 

3056  - 1976 

3096  - 17-96 

3134  - 3168 

3148  - 3140 

3134  - 3108 

3188  - 3116 

3193  - 3153 

3300  - 3144 

3388  - 3308  3344  3356 

3313  - 3393 

3348  - 3333 

3360  - 3396 

3460  - 3434  3444 

3493  - 3444 

3536  - 3500  3530 

3568  - 3444 

3580  - 3608 

3613  - 3584  3593 

3644  - 3444 

3688  - 3444 

3733  - 3444 

3808  - 3784 

3840  - 3833 

3860  - 3853 

3884  - 3740  3760  3780 

3916  - 3444 

39S6  - 3444 

3M3  - 3444  3130 

3044  - 3030 

3076  - 3444 

3134  - 3084  3104  3116 

3168  - 35  (-3  3648  3693 

3184  - 3173 

3188  - 3180 

3380  - 3344  3356 


I ' E.  !=• 


AD-A061  611  TRAINING  ANALYSIS  AND  EVALUATION  GROUP  (NAVY)  ORLANDO  FLA  F/G  5/2 

COMPUTER-AIDED  AUTHORING  SYSTEM  (AUTHOR)  USER'S  GUIDE.  VOLUME  I— ETC(U) 

JUN  78  C R GUITARD 

UNCLASSIFIED  TAEG-59-V0L-2  NL 

5 >0  n ihh  m bh  mu  ibw  bw  mm  ^mi 


0616  I 


7 


AUTHOR 

Syst  [?m  : 

P ha  E>  1 

E>  3 

1 — 

ATHc2 . 

H 

H 

I 

- V 

' MAP 

01 

_ 

2792 

2-36.8 

3028 

326.8 

oe 

- 

2792 

2-36.8 

3028 

3268 

D3 

- 

2792 

2-36-8 

3028 

3268 

D4* 

- 

2792 

2-368 

3028 

3268 

D5 

- 

27'32 

2968 

3028 

3268 

10 

- 

2268 

2336. 

2348 

2416 

2960 

3240 

3252 

00  ( 

- 

2788 

2864 

2-364 

3024 

3264 

3280 

00*  ( 

- 

1556 

1568 

1688 

2004 

2296 

01 

- 

2280 

2348 

2784 

2804 

2808 

2864 

2868 

2956 

3012 

3020 

3040 

3240 

3248 

3256 

3260 

3280 

02 

- 

2284 

2532 

2812 

2864 

2960 

3016 

3112 

3116 

3244 

3252 

3280 

3284 

02*  ( 

- 

2020 

2800 

2-376 

3036 

3276 

06*  < 

- 

2420 

09*  ( 

- 

1552 

1560 

166)8 

1620 

1624 

1628 

1680 

1760 

1764 

1780 

1880 

1884 

1920 

1924 

1936 

1940 

1944 

1964 

1968 

2128 

2132 

2140 

2144 

2152 

R0 

- 

1548 

1612 

1624 

1664 

1668 

1676 

1684 

1692 

2300 

R0* 

- 

1548 

1560 

1608 

1620 

1680 

2268 

2300 

R0*( 

- 

2328 

2332 

R1 

- 

1548 

1576 

2300 

Rl*< 

- 

1616 

1624 

1632 

1668 

2288 

2316 

2324 

2496 

2516 

2580 

2596 

2600 

2652 

2696. 

2736 

2756 

2820 

2840 

3080 

3100 

3168 

R2 

- 

1564 

1576 

1580 

1608 

R2*( 

1632 

1636 

1664 

1772 

1808 

1940 

1968 

2288 

2292 

2312 

2316 

2320 

2420 

2424 

2428 

2496 

2500 

2504 

2580 

2584 

2588 

2600 

2604 

2736 

2740 

2744 

2820 

2824 

2844 

2848 

3080 

3084 

3088 

3168 

3172 

3184 

R3 

- 

2268 

2280 

R3* 

- 

1620 

1756 

1772 

1776 

1780 

1808 

1816 

2096 

2108 

2140 

2152 

R3*< 

- 

2324 

2328 

2336 

2348 

2416 

2420 

3240 

3280 

R4 

- 

2268 

2284 

2348 

2524 

2532 

2764 

2812 

2864 

2916 

2960 

3016 

3240 

3252 

R4* 

- 

2516 

2520 

2524 

2756 

2760 

2764 

3100 

3104 

3108 

R4*< 

- 

2596. 

2652 

26-36 

2800 

2976 

3036 

3276 

R5 

- 

2268 

2348 

2528 

2768 

2780 

2784 

2816 

2920 

3116 

3240 

3244 

R5* 

- 

2516 

2520 

2528 

2756 

2760 

2768 

R5*< 

- 

1632 

1668 

2288 

2316 

2332 

2496 

2580 

260  J 

2736 

2844 

2860 

3080 

3168 

R6 

- 

2272 

2288 

2304 

2312 

2316 

2324 

2336. 

2340 

2352 

2416 

2492 

2496 

2504 

2516 

2568 

2644 

2688 

2732 

2736 

2744 

2756 

2772 

2820 

2824 

2832 

2836 

2840 

2872 

3076 

3080 

3088 

3100 

R7 

- 

2276 

2320 

2324 

2336 

2340 

2348 

2352 

2416 

2492 

2508 

2516 

2748 

2756 

2848 

2852 

2856 

2860 

2872 

2880 

3076 

3092 

3100 

3240 

3244 

3280 

3284 

R7* 

- 

1596 

1652 

2776 

2820 

R8 

- 

1764 

1880 

1920 

1924 

1944 

1 964 

2128 

2428 

2444 

2568 

2576 

2580 

2588 

2592 

2596. 

2600 

2604 

2644 

2652 

2688 

26-36 

2816 

2876 

3168 

3176 

R8* 

- 

1592 

1648 

1768 

1776 

1812 

1816 

2008 

2016 

2512 

2516 

2752 

2756 

3096. 

3100 

R8*( 

- 

18-36. 

1-300 

1980 

1984 

2016 

2020 

2156 

2160 

R9 

- 

1756 

1796 

1916 

1920 

1924 

1928 

2012 

2016 

2026) 

2024 

2576 

2592 

2652 

2696 

2828 

2036 

2840 

3108 

3112 

3176 

3184 

S4*( 

- 

2840 

2844 

2860 

2864 

i 


. 

AU  VHaR  Sys-tem:  Pha&e  3 — ATH3/I  I 1 — ' MAP 

????  UfcFFN'  0 

- 1600  1656 
????  DfcFFN'  01 

- 1876  196.0  51  24 
????  DfcFFN'  100 

- 2788  2864  296.4  3024  3264  3280 
????  DfcFFN'  101 

- 1584  1640  1852  1856  1864  1888  1904  1948  1972  1988  2100  2104  2112  2148 
2164  2796  2972  3032  3272 

????  DEFFN'  104 

- 1576 

1548  UfcFFN'  105 

- 2300 

1756  DfcFFN'  106 
2268  DfcFFN'  107 
2416  DfcFFN'  108 

- 2336 

3240  DfcFFN'  109 

- 2348 

????  DfcFFN'  110 

- 2792  2968  3028  3268 


TAEG  Report  No.  59 


5.2.3  ATH3/III 

}fjs-tr  of  the  'AUTHOR/ 3'  program  contains  subroutines 

The  remainder  of  this  section  presents  the  'ATH3/Iir 
program  listing  and  reference  maps. 
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o 


AUTHOR  S/&tDm:  Phase  13  — ATH3  / 1 II  — 


3400 

340c? 

3404 

3406 

3408 

3410 

3412 

3414 

3416 

3418 

3420 

3422 


X#it  Program  > AUTHOR/3 
REM  *+  Subroutine 


(ATH3/III)  Version  >2.0  2200  T/VP  780321 


1 0 


REM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
REM  ** 
REM  ■** 
REM  ** 
REM  *•* 
RtM 


Abstract  > 

To  Output  the  page  buffer  to  the  disk. 
Assigning  a page  address  and  evaluating 
any  references  to  the  next  page. 
Variables  > 


D1  > indx  sctr  adrs 
L)3  > page  flag 
D5  > indexing  mode 


02  > sub  sctr  indx 
D4<  > previous  pag 


indx 


3424 

DEFFN  ' 

110  <D1,D2, 03,04*, Ob) 

REM 

ENTRY 

3426 

GOSUB  ' 

111 

REM 

FTCH  NXT  INDX  SL01 

3428 

GOSUB  ' 

112 

REM 

COMPUTE  PAGE  INDEX 

3430 

GOSUB  ' 

113 

REM 

RESERVE  INDX  SPACE 

3432 

GOSUB  4 

114 

RtM 

CHECK  FUR  r-AC  RLF 

3434 

GOSUB  ' 

11S 

RtM 

STURE  PAG  ON  DSK 

3436 

RETURN 

RtM 

feXIT 

u 


384 


AUIHUK  System: 


Phoso  3 — ATH3/I  X I — 


REM  ** 

REM  ** 

HEM  **  Subroutine 


1 1 1 


REM  **  A 

REM 

REM  ** 

REM  **  v 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

R£Jy|  *•*■»■*•*•#■* 

DEFEN  ' 111 


GOSUB  ' 1C 
PRINT 
GOSUB  ' OC 
DATA  LOAD 


RETURN 


Abstract  > 

To  locate  next  ir.dex  slot 
page  address. 

Variables  > 

D2  > indx  sub  sctr  adrs 
DA*  > previous  page  adrs 
D5*  > current  page  adrs 
Ql*< ) > index  buffer 


D5*  « DA* 

D2  =•  D2  + 2 
D2  < 128 
D1  = D1  + 1 
D1  < 16 
R8*  = "xx" 

R9*  = "Subroutine  111" 
<16, 1, 1, AO) 

• INDEX  AREA  FULL ! ! • 

BA  T #3,  (D1 , D2)Q1*( ) 
D2  = 1 


and  load  previous 


D1  > indx  sctr  adrs 
R8*  > error  code 
R9*  > error  code 


THEN  3490 


THEN  3 ABE 


ENTRY 

INITIAL  PAG  ADRS 
INCRMNT  INDX 
IF  NO  I AT  END 
INCRMNT  SCTR  ADRS 
IF  INDX  NOT  FULL 
SET  ERR  MODE 
SET  ERR  SOURCE 
P0SI1 ION  CUSUR 
ERR  MESSAGE 
ERR  PROCESSING 
LOAD  NXT  SCTR 
INITIAL  INDX 
EXIT 


O 
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AU I HOR  Qyctem:  Phase 


ATH3/I II  — 


(J 


3493 

3494 
3496 
3498 
3500 

3505 
3504 

3506 
3b08 
3bl0 

3515 
3514 

3516 
3518 
3530 

3555 

3534 

3556 
3558 
3530 

3535 
3534 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ++ 
REM  ** 
REM  ** 
REM  ** 
REM 
UEFFN 
IK 


Subroutine 
Abstract  > 

To  compute  the  current  page  address 
Variables  > 

01  > indx  setr  adrs 
Ml  > fiche  page  # 

M3  > fiche  col  # 

05*  > currnt  pag  adrs 


1 1 5 


115 


GOSUB 

GOTO 

GOSUB 


103 

103 


D1+D5  <>  5 

Ml  = VAL  < QO* ( 6 ) ) 

M5  = VAL  < QO* ( 7 ) ) 

M3  = VAL  < QO*  < 8 ) ) 

<M1*,M1,M5,M3,0,1) 

3535 

<D5*,W1,M5,W3,1,3> 
D5*  = Ml* 


D5  > sub  setr  indx 
M5  > fiche  row  # 
Ml*  > page  address 


THEN  3530 


RETURN 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ROW 

COL 


ENTRY 

IF  NOT  FIRST  PAG 
SET  FICHE  PAGE 
SET  FICHE 
SET  FICHE 
CMPUT  PAG  ADRS 
BRANCH  TO  EXIT 
CMPUT  PAG  ADRS 
STORE  NEW  PAG  ADRS 
EXIT 


354 2 REM  **  Abstract  > 

3544  HEM  ■**  To  reserve  space  for  index  at  end  of  each 

3546  HEM  **  filled  fiche  if  a fiche  index  sequence  has 

3548  REM  **  been  requested. 

3550  HEM  **  Variables  > 

3555  HEM  **  D1  > indx  sctr  adrs  ! 05  > sub  sctr  indx 

3bb4  HEM  **  05  > sequening  mode  ! D4*  > previous  pag  adr 

3556  REM  **  D5*  > currnt  pag  adrs  ! D6*  > redefned  pag  adr 

355b  HEM  **  Gl*<>  > index  buffer  ! Wl*  > pag  addrs 

3560  REM  **  W1  > fiche  page  # ! WE  > fiche  row  # 

3565  HEM  **  W3  > fiche  col  # ! R84  > err  mode 

3564  HEM  **  Q0<  ) > register  stack  R9*  > err  source 

3566  HEM  ** 


3568  REM 


! \ 
, i 


3570 

DEFFN  ' 

113 

REM 

ENTRY 

3578 

IF 

D5  = 3 

THEN 

3615 

REM 

IF  SEGU  INDX  MODE 

3574 

IF 

W5  <>  Q0<6) 

THEN 

3615 

REM 

IF  NOT  LAST  ROW 

3576 

IF 

W3  <>  QO  < 7 ) - < GO ( 8 > - 1 ) 

THEN 

3615 

REM 

IF  NOT  LAS1  COL 

3578 

GOSUB  ' 

103 

<W1*,W1+1, 1, 1,0, 1 ) 

REM 

C.MPUT  NEW  PAG  REF 

3580 

D6*  = Wl* 

REM 

STORE  NEW  PAG  REF 

3585 

GOSUB  ' 

117 

<D4*,U5*,06*) 

REM 

CHANCE  PAG  REF 

3584 

Q1*<DS>  = 05* 

REM 

UPDATE  INDEX 

3586 

D5*  = 06* 

REM 

REDEFN  PAG  ADRS 

3588 

DATA  SAVE 

BA  T #3,  <01,00)01*0 

REM 

SAVE  INDX  SCTR 

3590 

05  * D5  + <S*GO<8>> 

REM 

INCH  SCTR  INDX 

3595 

IF 

D5  < 158 

THEN 

3615 

REM 

NOT  END  OF  SCTR 

3594 

01  =01+1 

REM 

INCH  SCTR  ADRS 

3596 

IF 

D1  < 16 

THEN 

3608 

HEM 

NOT  END  OF  INDX 

3598 

R8*  = "xx" 

REM 

SET  ERR  MODE 

3600 

R9*  = “Subroutine  1 13“ 

REM 

SET  ERR  SOURCE 

3605 

GOSUB  ' 

101 

<16, 1,1, '+0) 

REM 

POSITION  CUSUR 

3604 

PRINT 

"INDEX  AREA  FULL! ! " 

REM 

ERR  MESSAGE 

3606. 

GOSUB  ' 

OOO 

REM 

ERR  PROCESSING 

3608 

DATA  LOAD 

BA  T #3,  <D1  ,R0)  01*0 

REM 

LOAD  NXT  INDX  SCTR 

3610 

D5  = D5  - 158 

REM 

ADJUST  SCTR  INDX 

3615 

RETURN 

REM 

EXIT 

O i 
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AU I HQR  Sy Et em 


P ha ep  3 


ATH3/I I I 


1 1 A 


3614 
3616 
36  IB 
3620 
3€22 
3624 
3626 
362B 
3630 
3632 
3634 
3636 
3638 
3640 
3642 
3644 
3646 
3648 
3650 
3652 
3654 
3656 
3658 
3660 
3662 
3664 
3€66 
3668 
3670 
3672 
3674 
3676 
3678 


REM  ** 

REM  ** 

REM  **  Abstract  > 

REM  **  To  search  the  output  page  for  references 
REM  **  to  the  "nxt"  coimand. 

REM  **  Variables  > 

REM  **  06  > output  bufr  indx  ! D7*  > temp  search  id 

REM  **  Q2*(  > > output  bufr  ! R2*( > > srch  rslt  buf 

REM  **  RO*( ) > charactr  bufr  ! R0  > # of  sequintl  pag 
REM  **  05*  > current  pag  adrs  ! W1  > fiche  page  # 

REM  **  W2  > fiche  row  # ! W3  > fiche  col  # 

REM  **  Wl*  > page  address  ! D7*  > page  # string 

REM  **  SI  > output  buf  row  ! S2  > output  buf  col 

REM  ** 


DEFFN  ' 114 

D6  = 00(9) 

D7*  * “Znxt" 

MAT  SEARCH  02*  ( ) <06, 00 < 10)  -06+1  >,  =^D7*  TO  R2*<) 

IF  R2*( 1 ) = HEX (OOOO)  THEN  3678 

D6  = FNR  < VAI_  ( R2*  ( 1 ) ) ) + D6  - 1 
MAT  CORY  Q2*( KD6+4, 1>  TO  R0*()<1,1> 

CONVERT  RO*  < 1 ) TO  RO 

COSUB  ' 119  <R0) 

GOSUB  ' 103  (D5*,W1,W2,W3, 1,3) 

GOSUB  ' 118  <W1*,D7*) 

51  = I NT (D6/64)  + 1 

52  = D6  - I NT  (D6/64)*64 
GOSUB  ' 10O  (SI, S2, 5, 07*, 00) 

% 06  = D6  + 5 

IF  D6  < 00(10)  THEN  3650 

RETURN 


REM  ENTRY 
REM  OUT  BUFR  INDX 
REM  SEARCH  ID 
REM  SEARCH  BUFFER 
REM  NO  REFERENCE 
REM  I NCR  BUF  INDX 
REM  FECI H # OF  RAGS 
REM  CONVERT  TO  <OEC> 
REM  RESRV  SPACE 
REM  C.MPUT  PAGE  ADRS 
REM  CONST  RT  PAGE:  # 
REM  CMPUT  ROW  # 

REM  CMPUT  COL  # 

REM  WRITE  PAGE  # 

REM  I NCR  BUFR  INDX 
REM  NOT  END  OF  BUFR 
REM  EXIT 


AU  I HCJR  System:  Phase  3 — ATH3/I  II  — 1 1 

3080  REM  ** 

3083  REM  **  mm  x » » N it  mnt  x m m m m m m m m h h « h mk  « 11 « h m h k m m m m m m n h i \ 5 

3080  REM  **  Abstract  > 

3088  REM  **  To  update  index  and  index  pointers.  Insert 
3090  REM  **  current  page  address  and  save  page  on  disk. 

3093  REM  **  Variables  > 

3094  REM  **  01*0  > index  buffer  ! 02  > sub  sctr  indx 

3090  REM  **  09* < ) > i/o  transfer  buf  ! D1  > indx  sctr  adrs 

3098  HEM  **  RO  > scratch  sctr  adrs  ! D4*  > previous  pag 

3700  REM  **  D5*  > current  pag  adrs  ! D7*  > pag  # string 

3702  REM  **  R9  > scratch  indx  ! 04  > memory  buffer  indx 

3704  REM  *+  04* < ) > pag  adrs  mem  bufr! 

3700  REM  ** 


3710 

DEFFN  ' 

US 

REM 

ENTRY 

3712 

Q1*(D2)  = OS* 

REM 

UPDATE  INDX  TBL 

3714 

DATA  SAVE 

BA  T #3,  (D1,R0)Q1*(> 

REM 

SAVE  INDX  SCTR 

3710 

STR(D4*,  1,2)  * Q1*(D2) 

REM 

ST  OR  PAGE  ADRS 

3718 

STR (D4*, 3,2)  = Q1*(D2+1) 

REM 

STOP  BEG  SCTR 

3720 

COSUB  ' 

118 

< D5* , 07* ) 

REM 

CREATE  PAGE  # 

3722 

GOSUB  ' 

100 

<1,59, 5, D7*, 00) 

REM 

WRITE  PAGE  # 

3724 

B1N(D7* ) = D3 

RE-M 

CMPUT  PAG  INDX 

3720 

GOSUB  ' 

IOO 

<1,63, 1,D7*,01) 

REM 

WRITE  PAG  INDX 

3/28 

D3  = 32 

REM 

CLR  PAG  INDX 

3730 

GOSUB  ' 

<01*<D2+1 > , 1 ) 

REM 

MOUNT  OUT  DISK 

3732 

IF 

04  = 00  THEN  3738 

REM 

FURGET  PAG  ADRS 

3734 

04*  < 04 ) = D5* 

REM 

S i OR  IN  MEM  BUFR 

3730 

14  = 00 

REM 

CLR  MEMORY  FLAG 

3738 

POI 

R9  = 1 TO  4 

REM 

BEGIN  LOOP  R9 

3740 

M7 

Q2*<  )<<R9-1 ) *250+00  0)  ,2bO>TO  09*  < ) 

REM 

LOAD  I/O  BUFR 

3742 

DA  1 A SAVE 

BA  T #3,  < R 3* , R 3* ) 09*  < ) 

REM 

SAVE  I/O  BUFR 

3744 

NEXT 

R9 

REM 

CONTINUE  LOUP  R9 

3740 

HETURN 

REM 

EXIT 

r 
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3748 

3750 

3753 

3754 
3756 
3758 
3760 

3763 

3764 
3 /66 
3768 
3770 
3/73 

3 m 

3776 

3778 

3780 

3783 

3784 
3786 
3788 
3790 

3793 

3794 
3796 
3798 
3800 

3803 

3804 
3806 
3808 
3810 

3813 

3814 
3816 


REM 
RtM  ** 
RtM  ** 
REM  ** 
REM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
RtM  •** 
REM  ** 
RtM  ** 
REM  ** 
REM 
DEFFN 
GOSUB 

GQSUB 

GOSUB 


Subroutine  1 1 7 

Abstract  > 

To  search  a page  for  reference  to  a 
redefined 
Variables 


a page  for  reference 
page  number. 


S8*0 
08* 
05* 
D7* 
D9*  > 
R2*<  ) 


> search  id 
begining  sctr  adrs 
current  page  addrs 
page  number 

sctr  adrs  register 

> search  rslt  bufr 


S9SO  > subsitude  id 
D4*  > previous  pag  indx 
D6*  > redefined  pag  adrs 
R3*  > mashed  sctr  adrs 
G9* ( > > i/o  buffer 
DO  > buffer  indx 


117 

118 

118 

106 


FOR 

OATA 

MAT 

IF 


LOAD 


SEARCH 


MAT  CORY 
OATA  SAVE 

IF 

NEXT 

RETURN 


<D4*,D5*,D6*> 

<D5*,07*> 

S8*( 1 ) = D7* 

( D6* , 07* ) 

S9*<i>  = D7* 

(S1R(D4*,3,3),3) 

D8*  = R3* 

R9  = 1 TO  4 

BA  T #3,  ( D8* , D9* ) 094 ( ) 

DO  = 1 

09* ( ) <D0, 256-D0+ 1 >, =88* < 1 ) 10  R3*() 
R2* < 1 ) - HEX  <0000)  THEN  3813 

DO  = FNR  < VAL ( R3*  < 1 ) ) ) + DO  - 1 
S9*()<1,4>  TO  0-3*0  <00,  4> 

BA  T #3,  (D8*,D9*)  0-3*0 
DO  * DO  + 4 

DO  < 356  THEN  3798 

D8*  - D-3* 

R9 


RtM  ENTRY 
REM  CREATE  PAC  it 
REM  STORE  PAC  it  SRCH 
RtM  CREA'l  PAG  # 

REM  STORE  PAC  # NEW 
REM  MOUNT  DISK 
RtM  S I OR  SCTR  ADRS 
REM  BEGIN  LOOP  R9 
REM  LOAD  1/4  PAGE 
REM  BUFFER  INDX  STRT 
RtM  SEARCH  BUFR 
RtM  NO  REFERENCE 
REM  I NCR  BUFR  INDX 
RtM  INSRT  NEW  HAC  # 
RtM  SAVE  1/4  PAGE 
REM  I NCR  BUFR  INDX 
REM  NOT  END  OR  SCTR 
RtM  ASSIGN  NXT  ADRS 
REM  CONTINUE  LOOP  R9 
REM  EXIT 
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ATH 3 X III 


1 1 S3 


AU  THOR  System: 


3B18 

REM 

3«ao 

HEM 

3855 

HEM 

Subroutine  *****-^**^^****-^-^****^*-*HH****4Hfr********-*-*-**-*-*  i 

1 

3854 

HEM 

Abstract  > 

3856 

HEM 

To 

construct  a page  number  from  the 

page 

3858 

HEM 

address. 

3830 

HEM 

Variables  > 

3835 

REM 

08$  > page  address 

! D7$  > page 

number 

3834 

HEM 

W1 

> fiche  page  # 

! W5  > fiche 

row  # 

3836 

HEM 

W3 

> fiche  col  Tt 

! 05  > formatting  mode 

3838 

HEM 

W5 

> scale  index 

1 

3840 

REM 

■»* 

3845 

HEM 

*#+*+**w**wtt*****-**'*'*-**-*-*-*-**-*-*-*-*-*-**-***-*-*-* 

3844 

OEFFN  ' 

118 

( 08$, 07$ ) 

: REM 

ENTRY 

3846 

GOSUB  ' 

103 

<D8$,W1, W5,W3,0,5) 

: REM 

CONV  TO  <DEC> 

3848 

IF 

D5  <>  3 

THEN  3856  : REM 

NOT  SEGUNTL  FORM 

3850 

W5-1W1-1 )*G0(6)*G0<7)+<W5-1 >*QO(7)+W3:  REM  SCALE  TO  SEU  FORM 

3855 

CONVERT 

W5  TO  D7$, (####) 

: REM 

CONV  TO  DISHL.Y 

3854 

GOTO 

3864 

: REM 

BRANCH  TO  EXIT 

3856 

CONVERT 

W1  TO  STR(D7$, 1,1), 

<#) 

: REM 

CONV  FICHE  RAC 

# 

3858 

CONVERT 

W3  TO  STR ( D7$, 3, 5 ) , 

<tt#> 

: HEM 

CONV  FICHE  COL 

Tt 

3860 

BIN(STR(D7$,5,  1)  ) =• 

W5 

: REM 

CONV  FICHE  ROW 

# 

3865 

$TRAN 

( STR  < D7$, 5, 1 ) , R4$< ) 

<159, 18> ) 

: REM 

CONV  TO  LETTER 

3864 

RETURN 

: REM 

EXIT 

391 
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3866 
3868 
3870 
38  /2 
3874 
3876 
3878 
3880 
3882 
3884 
3886 
3888 
38-30 
38-32 
38-34 
38-36 
3898 
3-300 
3-302 
3-304 
3906 
3908 
3-310 
3912 
3914 
3-316 
3918 
3920 


REM  ** 
KhM  ++ 
REM  -»-* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-* 
HEM  ** 
REM  «■* 
REM  *■* 
REM  ** 
REM  ** 
REM 
DEFFN 
GOSUB 
IR 
IF 
IR 


GOSUB  ' 

GOlO 

IR 

GUSUB  7 
GOSUB  7 

RETURN 


Jy  & t c?m : Ph-as-o  3 — ATH3/I  XI  — 


Subroutine  •**■**■**■**■**•»* *-iH»**-iHt*-*'»*****-»-*-»-»*********-»*-»-***-**-»‘*  l l 9 
Abstract  > 

To  check  if  there  are  enough  pages  left  on  a 
row  of  fiche  to  insert  the  ordered  page 
formats. 

Variables  > 

RO  > pages  in  sequence  ! D5$  > current  pag  adrs 


W1 
W3 
Q6<  ) 


fiche 
f i che 


in  sequence 
page  # 
col  # 


register  stack 


D5*  3 
W2  > 
D5  > 


current  pag 
fiche  row  # 
formatting  mode 


119 

103 


<R0> 

(D5*,W1,W2,W3,0,2> 

05  = 3 
W2  <>  00(6) 

R0+W3  <=  00 ( 7 ) - ( 00 ( 8 ) - 
W2  = 00(6) 

W3  * 00 ( 7 > - ( 00  < 8 ) - 


THEN  3-320 
THEN  3912 
1)  THEN  3-320 


•1  ) 


113 


103 

117 


3920 

RO  +■  W3  <=  00(7)  THEN  3920 

(D5$,W1, W2,W3,Q0(7)-(W3-1 ) ,3) 
<D4*,U5*, Wl*) 

DS*  =-  D6$ 


REM  ENTRY 

REM  CONV  ADRS  TO  <DEC> 
REM  3LQUNTL  RORMAT 
REM  NOT  LAS1  ROW 
REM  ENOUGH  ROOM 
REM  SET  TO  1-ASi  ROW 
REM  SET  TO  INDX  ROS 
REM  RESERVE  INDX 
REM  BRANCH  TO  EX IT 
REM  ENOUGH  ROUM 
REM  I NCR  RAGE  ADRS 
REM  UPDA7  PAGL  REF 
REM  SION  PACE  ADDRS 
REM  EXIT 
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3486  - 3474 

3490  - 3470 

3530  - 3518 

353<3  - 3558 

3508  - 3595 

3615  - 3575  3574  3576  3595 

3650  - 3676 

3678  - 3654 

3738  - 3735 

3798  - 3810 

3815  - 3800 

3856  - 3848 

3864  - 3854 

3915  - 3-300 

3-350  - 3898  3-302  3910  3912 


AUTHOR 


-fcE>m=  Phaiie-  3 — ATH3/I  I I 


MAH' 


3808  3804 
3486  3518 
348b  3488 

3716  3718 
3898 

3588  3584 

3658  3668 
3778  3784 
3678  3780 
3868 

3818  3844 
3648  3668 
3608  3718 


3596  3608  3714 

35-30  3598  3610  3718  3716  3718  3730 


3718  3780  3734  3778  3780  3896.  3314 


3786  3780  3788  3784  3786  3844  3858 


3850  3300  3902  3304  3306  3918  3914 


3718  3730 


3798  3804  3806 
3714  3894  3908  3918 

3798  3800  3808 


3598 

3740  3744 

3600 

3678 

3678 

3798 

3804 

3586  3530 
3538  3578 
3586  3530 
3586  3530 
3858 


3798  3814 


3578  3664  3846  3850 
3580  3666  3916 
3574  3664  3846  3850 
3576  3664  3846  3850 


3856  3896.  3-314 

3860  38%.  3900  3904  3-914 
3858  38-96.  3908  3306.  3918  3914 


4> 


rtU I HQR  System:  Phase  3 — ATH 3/1 I I 

????  DEFFN ' 0 

- .34  8 A 360€' 

????  DEFFN ' 100 

- 3€.7a  3722  3726 
????  DEFFN ' 101 

- 3480  3602 
????  DEFFN'  103 

- 3526  3630  3678  3664  3846  3806  3014 
????  DEFFN'  106 

- 3730  3 /SU 
342*.  DEFFN'  110 
3464  DEFFN'  111 

- 3426 

3516  DEFFN'  112 

- 3428 

3670  DEFFN'  113 

- 3430  3008 
564€-  DkFFN ' 114 

, • 3432 

3710  DEFFN'  115 

- 3434 

3778  DEFFN'  117 

- 3582  3016 
3844  DEFFN'  118 

- 3666  3720  3780  3784 
389'  DEFFN'  110 

- 3662 


MAP 


o 
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5.3  ATH3INIT 

The  purpose  of  the  'ATH3INIT'  program  Is  to  Initialize  program 
variables  and  to  allow  the  operator  to  select  creation  options. 

The  'ATH3INIT'  program  is  presented  in  two  parts. 

5.3.1  ATH3INT1 

This  section  of  the  ' ATH3INIT ' program  contains  subroutines 
201  to  2)89. 

The  remainder  of  this  section  presents  the  'ATH3INT1 ' 
program  listing  and  reference  maps. 


r 


AUTHOR  S/  5 t E?m 


P h<a  si?  3 


ATHjJINI  1 


CNTKl- 


4000 

%##  Program  > AUTHOR/3  < ATH3INT1 ) Version  2.0  2200  T /VP  780321 

4004 

REM  ** 

Abstract 

*********SH*********  ***#•****•#•#■* **■•* #■ * * *+++++■*+*■*■*■■*•*■*■* *•*■* 

4008 

HEM  ** 

4012 

HEM  ■** 

Overlay 

ATH31N1T  will  initialize  all  program 

*■* 

4016 

HEM  ** 

variable  tables  including  the  initialing  of 

4020 

HEM  ** 

of  the 

Symbol  fable.  A1H3INIY  will  assign 

** 

4024 

HEM 

program 

dish  units  and  select  format  for  the 

** 

4028 

HEM  ** 

output 

formats. 

** 

4032 

HEM  ** 

1 M H M M H h M-- 

** 

4036 

REM 

TUMMUMTlfWIr 

• TC  ” n ■ TT  f 

4040 

DEFEN  ' 

200 

: REM 

ENTRY 

4044 

COSUB  ' 

201 

: REM 

INITIAL 

IZE  TABLES 

4048 

GOSUB  ' 

202 

: REM 

DISPLAY 

TIILE  PAG 

4052 

GOSU6  ' 

203 

: REM 

DISPLAY 

COMMANDS 

4056 

GOSUB  ' 

204 

: REM 

EXECUTE 

COMMANDS 

406.0 

RETURN 

: REM 

EXIT 

c 
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F " ha  s- 


ATFI31NT1 


£2  0 1 


4064  REM  ** 

4068  REM  ** 

4072  REM  **  Subroutine  *********^**********^***********-****-*-fr*****  £01 

4076  REM  **  Abstract  > 

4080  REM  **  To  initialize  program  Tables. 

4084  HEM  **  Variables  > 

4088  REM  **  R4*(  ) > conversion  tables 

409£  REM  **  (01)-(04)  > <1,64>  lower  case  to  upper  case  conv. 

4096  REM  **  (05)-(08)  > <65,64>  upper  case  to  lower  case  conv. 

4100  REM  **  (09)-(10)  > <123, 32>  conv  binary  indx  to  fiche  row  char. 

4104  REM  **  (11)  > <161, 16>  control  character  conversion  (input) 

4108  REM  **  (1£)  > <177, 16>  buffer  mode  character  conversions  - 

41 1£  REM  **  > <177, 4>  HEX (00)  to  HEX<£0) 

4116  REM  **  > <181, 4>  HEX(OO)  to  HEX(OO) 

4120  REM  **  > <185, 4>  HEX (30)  to  HEX(£0) 

41£4  REM  **  > <189, 4>  HEX(30)  to  HEX(OO)  j 

41£8  REM  **  (13)-<14)  > <193, 3£>  convert  mask  digits  to  normal  codes 

413£  REM  **  (15)-(16)  > <££5, 3£>  conv  fiche  row  char,  to  binary  indx 

4136  REM  **  (17)  > <257, 16>  input  char  conversion  (entry  mode) 

4140  REM  **  (lB)-(£0)  > <273, 48>  input  char  conversion  (edit  mode) 

4144  REM  **  R5*()  > single  character  search  ids 

4148  REM  **  (01)  > blank  (0£>  > HEX(FF) 

4152  REM  **  (03)  > HEX(80)  (04)  > HEX ( 5F ) <underscor>  1 

4156  REM  **  (05)  > HEX ( 3A) <coln>  (06)  > HEX(3C)  < < > 

4160  REM  **  (07)  > HEX(3£)<  > > (08)  > HEX(2E>  < . > 

4164  REM  **  (09)  > HEX ( 20 ) <b lnk>  (10)  > HEX(£3)  < # > 

4168  REM  **  R6*( ) > cusor  control  <vert.> 

4172  REM  **  R7*()  > cusor  control  <horz.> 

4176  REM  **  K5*( ) > cusor  con  tori  (erase) 

4180  REM  •*"*  R8*()  > micro  command  buffer  fit  output  sequences 

4184  REM  **  (01)  > cusor  blink  w/  overprint  char. 

4188  REM  **  (02)  > string  output  with  CRLF 

41-32  REM  **  (03)  > 

4196  REM  **  (04)  > warning  tone  w/  £ sec  wait 

4200  REM  **  (05)  > 

4204  REM  **  (06)  > output  16  line  buffer  to  crt 

4208  REM  **  (07)  > single  tone  no  wait 

4212  REM  **  (08)  > setup  register  for  CR  or  LF 

4216  REM  ■""fr  (0-3)  > command  register  buffer 

4220  REM  **  Q0( ) > special  register  stack 

4224  REM  **  (01)  > number  of  symbol  sets 

4228  REM  ■*•"*  (02)  > number  of  symbls 

4232  REM  **  (03)  > symbol  table  size  <rows> 

4236  REM  **  (04)  > symbol  tabel  size  <cols> 

4240  REM  **  (05)  > fiche  pages  <max> 

4244  REM  **  (06)  > fiche  rows  <max> 

4248  REM  **  (07)  > fiche  cols  <max> 

4252  REM  **  (08)  > number  of  reserve  index  pages 

4256  REM  **  (09)  > beging  of  output  buffer 

4260  REM  **  (10)  > size  of  output  buffer 

4264  REM  **  (11)  > number  of  criterion  tests  to  generate 

4268  REM  **  (12)  > flag  - null  crt  display  (O-clr  1-set) 


4272  REM  **  QO$( ) > special  program  flags 

427&  REM  **  (01)  > buffer  contains  incomplete  item 

42S0  REM  **  (02)  > update  output  indx  on  mutiple  volumes 

4284  REM  **  (03)  > attemp  to  find  smaller  symbol 

4288  REM  **  (04)  > current  column  of  test  page 

4232  REM  **  (05)  > 1st  page  of  sequence 

4296  REM  **  (06)  > fiche  page  index  (starting  reference) 

4300  REM  **  (07)  > fiche  row  index  (starting  reference) 

4304  REM  **  (08)  > fiche  col  index  (starting  reference) 

4308  REM  (09)  > auto  right  justify  option  (V  or  N> 

4312  REM  *+  (10)  > auto  left  justify  option  (1  - 9) 

4316  REM  **  Q4*< ) > page  address  memory  buffer 

4320  REM  Q5$<  ) > keyword  storage  buffer 

4324  REM  **  G6*()  > format  command  index  buffer 

4328  REM  ** 

4332  REM  *aHH»*asHH»iHHHe»*****************************'iHi’ 

4336  OEFFN  ' 201  : REM  ENTRY 

4340  R4*(01)=  HEX  (416142624363446445654666-476-74868 ) 

4344  R4*(02)=  HEX ( 49694A6A4B6B4C6C4D6D4E6E4F6F5070 ) 

4348  R4*(03)=  HEX ( 51715272537354745575567657775878 ) 

4352  R4*(04)=  HEX < 5979 5A7A202020202020202020202020 > 

4356  R4*(05)=  HEX (614162426 34 36444654 5664667476848) 

4360  R4«(06)=  HEX ( 69496A4A6B4B6C4C6D4D6E4E6F4F7050) 

4364  R4*<07)=  HEX < 71517252735374547555765677577858) 

436-8  R4*<08)=  HEX ( 79597A5A202020202020202020202020 ) 

4372  R4*(09)=  HEX <204 1424 34445464 748494A4B4C4D4E4F) 

4376  R4* ( 10 ) = HEX ( 20202020202020202020202020202020  > 

4380  R4* ( 1 1 ) = HEX <01 0802A7030D03E62020202020202020 ) 

4384  R4* ( 12 ) = HEX  < 20002020000020202030202000302020 ) 

4388  R4*(13)=  HEX ( 301031 1 1 3212331 3341 4351 536163717) 

43-32  R4*<14)=  HEX  (38 18 39 1 9200020202020202020202020  > 

43-3€-  R4*<15>=  HEX  < 000102030405060 708090A0B0C0D0E0F ) 

4400  R 4*  < 1 6 > = HE  X < 20202020202020202020202020202020 ) 

4404  R4*  < 17)=  HEX ( 010802A703E504E6050D202020202020 ) 

4408  R4*(18)=  HEX  < 01A001080BCB025E0CCA03280DC70429 ) 

4412  R4*<19>=  HEX  ( 0EC3052A05C2062D06C4072B07C6030D ) 

4416  R4*(20)=  HEX  < OAE5082F08CC02202020202020202020 ) 


4420 

RS*<01 )= 

HEX  < 20 ) 

R5* ( 02  > = 

HEX (FF ) 

4424 

R5*<03>= 

HEX (80) 

R5*(04 ) = 

HEX ( 5F ) 

4428 

R5*<05)= 

HEX  < 3A ) 

R5*  < 06  > = 

HEX(3C) 

4432 

R5*<07>= 

HEX(3E) 

R5*<08>= 

HEX (2E ) 

44 3G 

R5*<09)= 

HEX (20) 

R5*< 10)= 

HEX (23) 

4440 

INIT(OA) 

R6*<  ) 

R6*  < 01 ) = 

HEX (01 ) 

4444 

1NIT (09) 

R7*<  ) 

R7*  < 01 ) = 

HEX (OO) 

4448 

INIT(OO) 

Ul*<  ) 

U1 

1 

4452 

IN17 (20) 

K5*<  ) 

K5 

1 

4456 

IN1T  <FF ) 

Q4*<  ) 

Q4 

0 

4460 

R8*<01 >= 

HEX  < 400642604008 1211 42504008 113614541 608 1146) 

4464 

R8* ( 02 ) = 

HE  X < 4 006A0004 02 1 400Q400A2020 ) 

4468 

R8*<03>= 

HEX ( FFFF2020 ) 

4472 

R8*  < 04 ) = 

HE  X < 4007 1 22 1 4007 1 22 1 40072020 ) 

4476 

R8*<05>= 

HEX  < FFFF2020 ) 

4480 

R8*<06)= 

HEX  < A000400D1 427 1 608400A2020  > 

4484 

R8*<07)= 

HEX  < 400740072020 ) 

4488 

R8*<08>= 

HEX  < 0500 14671 708050A2020 ) 

4492 

R8*<09>= 

HEX (05163F20556677000000) 

4496 

QO  <01 )= 

OO 

QO  (02)= 

00 

4500 

QO  (03) * 

75 

QO  (04) = 

06 

4504 

QO  <05)= 

00 

QO  (06)= 

00 

4508 

QO  ( 07 ) = 

00 

QO  (08)= 

00 

4512 

QO  ( 09  > = 

01 

QO  <10)= 

1024 

4516 

QO  <11)= 

01 

QO  (12)= 

00 

4520 

GO* <01 )= 

HEX (30) 

QO*  < 02 ) = 

HEX (30) 

4524 

G0*<  03)  = 

HEX < 30) 

QO* ( 04 ) = 

HEX (31) 

4528 

QO*  < 05 ) = 

HEX  < 30 ) 

QO* ( 06 ) = 

HEX ( 01 ) 

4532 

QO*  < 07 ) = 

HEX  <01 ) 

QO* ( 08 ) = 

HEX  <01 ) 

4536 

QO*  < 09 ) = 

HEX  < 4E ) 

QO*  < 10)  = 

HEX (00) 

4540 

Q5*<  01 ) = 

" skbO" 

Q5* ( 02 ) = 

“ skfO" 

4544 

Q5* ( 03 ) = 

“ indx " 

Q5* ( 04 ) = 

“ clos" 

4548 

Qb*  < 05 ) = 

"prac“ 

Q5*  < 06 ) = 

"end*" 

4552 

Q5* < 07  > = 

" diaO“ 

Q5*  < 08 ) = 

4556 

Qb*  < 09 ) ■ 

“ <a<a<a<a 

Q5*< 10)= 

"<a<a<a<a“ 

4560 

06* (01)= 

"■text" 

06*  < 02 ) = 

“word" 

4564 

06*  < 03 ) = 

“ 1 owe  r ” 

Q6*  < 04 ) = 

" caps" 

4568 

Q6*  < 05 ) = 

“ Table'* 

06* ( 06 ) = 

"sub-t  itle" 

4572 

Q6* < 07 ) = 

"page" 

06*  < 08 ) = 

"line" 

4576 

06*  < 09 ) = 

" space" 

06* < 10)= 

"null" 

4580 

01 

0 

D2 

128 

4584 

RETURN 

: REM  EXIT 

400 
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ATH3IN1  1 


22  O 


4b8a 

REM  ** 

4b92 

REM  ** 

4596 

REM  ** 

Subroutine  *«****«***♦*»*****♦********■»♦■»♦»♦*#*#*♦****  2 0 2 

4600 

REM 

Function  > 

4604 

REM 

To  Print  Header 

4608 

REM 

Variables  > 

1 

4612 

REM 

R0$<)  > scratch  buffer  ! 

4616 

REM  •fr****^**^************^************^******-* 

4620 

DEFFN  ' 

202 

REM 

ENTRY 

4624 

SELECT 

PRINT  005(80) 

REM 

SLL  OUT  DSPLY 

4628 

PRINT 

HEX (03) 

REM 

CLH  SCREEN 

4632 

PRINT 

"Program 

> AUTHOR /3“ 

REM 

PRNT  PROC  NAME 

4636 

PRINT 

"Version 

> 2.0" 

REM 

PRNT  VERSION 

4640 

PRINT 

"Language 

> BASIC" 

REM 

PRNT  SOURCE  LANG 

4644 

PRINT 

“Machine 

> WANC  2000/1” 

REM 

PRNT  HARDWARE 

4648 

PRINT 

“Abstract 

\ M 

REM 

PRNT  SUBTITLE 

4652 

PRINTUSING  4676 

REM 

PRNT  AGSTRACl 

4656 

PHINTUSING  4680 

REM 

PRNT  ABSTRACT 

4660 

PRINTUSING  4684 

REM 

PRNT  ABSTRACT 

4664 

5ELEC1 

PRINT  405 

REM 

SEL  OUT  DSPLY 

4668 

C0SUB  ' 

20b  (16) 

REM 

WAII  FOR  R ESP ONCE 

4672 

REM  *•* 

REM 

IMAGE  FOR AMTS 

4676 

X 

AUTHOR/3  will  construct  from  the  Phase 

II 

Data 

Base  a 

4680 

X 

Learning  Module. 

The  Module  to  be 

Constructed 

is  for: 

4684 

X 

I D E N 

TIFING  SV 

M B 

0 

_ S 

4688 

RETURN 

REM 

Exn 

i 


c 
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AUTHOR 


! y es  "t  e>i 
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4695 

4696 
4700 

4704 

4 705 

4715 

4716 
4 750 
4754 


RLM 

REM  ** 

REM  **  Subroutine  »♦■»« ihhhhm  »■»»»■»»»»♦»■» »«»»'Ihhhhi  »♦•»•»■»♦■»»■»»»■»«»»  £.'0  3 
RLM  *-*  Abstract  > 

RLM  **  To  display  program  options  and  commando. 

RLM  +•*  Variables  > 

RLM  **  R2t  > input  command  ! RO  > command  indx 
RLM  *+ 

RLM  *******************************•*•«■•«•*■»•**■«••#■■«••«■*■&•#' 


4758 

DLFFN  ' 203 

REM 

ENTRY 

4735 

DIM 

Wit  ( 4)2, W7t (4)1 

RP.M 

CMMND  TABLE 

4736 

IF 

W7t(4)  = HEX ( 2A ) 

THEN  4760 

REM 

TABL.  INI  T I ZED 

4740 

IN1T  <20) 

W7t  ( ) 

REM 

INIT  TABLE 

4 744 

Wlt(l>  = “ AS" 

RLM 

INI 1 TABLE 

4 748 

Wlt(2>  - “FO" 

RPM 

INIT  TABLE 

47S5 

Wit  < 3 ) - “SL“ 

REM 

1N1T  TABLE 

4756 

Wit (4)  = "HE" 

RLM 

INIT  TABLE 

4760 

SELECT 

PRINT  005(80) 

RLM 

SLL  OUT  DISPLY 

4764 

PRINT 

HEX (03) 

REM 

CLR  SCREEN 

4768 

PRINTUSING 

4876 

RLM 

PRINT  MENU 

4775 

PRINTUSING 

4880,  W7t( 1 ) 

REM 

PRINT  MENU 

4776 

PRINTUSING 

4884,  W7t (5) 

REM 

PRINT  MENU 

4780 

PRINTUSING 

4888 

REM 

PRINT  MENU 

4784 

PRINTUSING 

4892,  W7t ( 3 ) 

RLM 

PRINT  MENU 

4788 

PRINTUSING 

4896. 

REM 

PRINT  MENU 

4792 

PRINTUSING 

4-900 

RLM 

PRINT  MENU 

4796 

SELEGT 

PRINT  405 

REM 

SEL  OUT  DSPLY 

4800 

COSUB  ' 101 

(15,1,1,0) 

RLM 

POSH  ION  CUSUR 

4 SO  4 

PRINT 

“Enter  Command  > " 

REM 

PRNT  PROMT 

4808 

GOSUB  ' 20€. 

(6, “A", "HELP" ) 

REM 

INPUT  COMMAND 

4815 

RO  =•  LEN  ( R2t ) 

RLM 

CMPUT  CMND  LEN 

4816 

IF 

RO  <»  2 

THEN  4824 

RLM 

W I THEN  RANGE 

4850 

RO  = 5 

RLM 

SET  TO  MAX  LEN 

4854 

AND 

( STR  < R5t , 1 , RO ) , DP ) 

RLM 

CONV  LC  TO  UC 

4858 

MAT  SLAHCH 

Wlt( ),^STR(R2t, 1,R0)  TO 

R2t ( ) S l EP  2 

REM 

SRCH  CMND  TBL 

4835 

IP 

R2t(5)  <>  HEX(OOOO) 

THEN  4840 

RLM 

INVALID  COMMAND 

4 836. 

IP 

R2t ( 1 ) <>  HEX (OOOO) 

THEN  4860 

RLM 

CMND  POUND 

4840 

GOSUB  ' 101 

(16,1,1,0) 

REM 

POSITION  CUSUR 

4844 

PRINT 

"INVALID  COMMAND  RE-ENTER" 

REM 

PRNT  ERR  MSG 

4848 

tGIO 

PAUSE  TUNE/005 (R8t( 4 ),R8t( 9) ) 

RLM 

PAUSE  TONE 

4855 

GOSUB  ' 101 

(16, 1,1,0) 

RLM 

POSITION  CUSOR 

4856 

GOTO 

4800 

REM 

RE-ENTER  CMND 

4860 

RO  - I NT  (PNR  ( VAl.  ( R2t  ( 1 ) ) ) /5 ) + 1 

RLM 

CMPUT  CMND  INDX 

4864 

W7t(R0)  * HEX (2A) 

REM 

Si  OR  ITEM  FLAG 

4868 

W7t ( 04 ) = HEX (2A) 

REM 

SET  INIT  FLAG 

4875 

RLM  ** 

REM 

IMAGE  FOR AMTS 

4876 

X Command  Summary; 

4880 

X # ASSIGN  - 

Assign  Program  and  Data 

Disk  units  to  the 

Program. 

4884 

X # FORMAT  - 

Select  the  formating  to 

be  used  in  Sequencing 

4888 

X 

the  the  learning  module. 

4895 

X # SELECT  - 

Select  the  Operation  of 

Program  (CRLATE/L 1ST /EDIT) 

48-96 

X HELP 

Display  text  describing 

the  Order  in 

which 

4900 

** 

* 

to  Execute  the  above  Commands. 

4904  RETURN  : RLM  EXIT 


3 


402 


1 

rtur hor 

Syctem:  P ha  & i?  3 

— ATH3INT1  — 33 

4908 

REM  ** 

491  a 

REM  ** 

4916 

REM  ** 

Subroutine  d o 

4930 

REM  ** 

Abstract  > 

i 

4934 

REM  ** 

Td  Process  tRe  inputted  Command. 

4938 

REM  ■»* 

Variables  > 

4933 

REM  ** 

RO  > command  index  ! 

4936 

REM  ** 

4940 

KfcM  *+*w+*##’^M**w+**+#***’*'*'*-*'*’*'*-***‘#'*+#***#’*+ 

4944 

UEFFN  ' 

304 

REM 

ENTRY 

49s-8 

REM 

<assign>  <format>  <select! 

> < help  > : 

REM 

CMND  E UNCTIONS 

4958 

CJN  RO  GOTO  4956,  4960,  4 '36.4 , 

4968  : 

REM 

BRANCH 

4956 

COSUB  ' 

307  : 

GOTO  4978  : 

REM 

ASSIGN  DISKS 

4960 

GOSUB  ' 

308  : 

GOTO  4973  : 

REM 

SEL  FMT  TYPE 

496.4 

GOSUB  ' 

303  : 

CQTU  4976  : 

REM 

SEE  MODE 

4968 

GOSUB  ' 

310  : 

GOTO  4973  : 

REM 

HELP 

4973 

GOSUB  ' 

303  : 

GOTO  4953  : 

REM 

NEW  CMND 

4976 

RETURN 

REM 

EXIT 

S O !b 


/NLJ  1 

I 

Q 

S3  y 

«=.  -fc  c?m  z F*  t~i-sa  e-  E"  3 — ATH3INT1  —SO 

4980 

REM  ** 

4984 

REM  ** 

4983 

REM  •** 

Subroutine  #^*+**+**************w*+***++’+'**# ’*+*-'*+++•*•*+  £•  o 5 

4932 

REM 

Abstract  > 

4996 

REM  ** 

To 

wait  for  operator  responce  displaying 

5000 

REM  ** 

el 

apsed  time  of  wait. 

5004 

REM  ** 

Variables  > 

b008 

REM  *•* 

SO*,  SO  > -time  hours  ! K1  > row  for 

display 

5012 

REM  ** 

SI*,  SI  > -time  mintues  ! 

5016 

REM  ** 

S2*,  S2  > -time  seconds  ! 

boao 

REM  ** 

S3*,  S3  > -time  adjustment! 

5024 

REM  ** 

boas 

HtM  *+*w#**+-^*****+**"****'**’*’*'**#*'*'*’*'***+-*'**‘*+*‘* 

5032 

DEFFN  ' 

20S 

<K1 ) 

REM 

ENTRY 

5036 

DIM 

S0*2 , S 1 *2 , S2*2 , S3*  3 

REM 

INITIALIZE 

b040 

COSUB  ' 

101 

<K1, 1, 1,0) 

REM 

POSIT  ION  CUSUK 

50 'l  4 

HR  I NT 

“ Touch  'RETURN'  to  Continue" 

REM 

PENT  INST. 

b040 

FOR 

SO  * 0 TO  2 

REM 

BEC  HOURS  LOOP 

S0S2 

CONVERT 

SO  TO  SO*,  (tt#) 

REM 

CONV  TO  D I SI  ■'LAY 

5056 

FOR 

SI  = 0 TO  B9 

REM 

BEC  MINS  LOOP 

5060 

CONVERT 

SI  TO  SI*,  (tttt) 

REM 

CONV  TO  D I SPLAY 

5064 

FOR 

S2  - 0 TO  S9 

REM 

BEC  SEC  LOOP 

b0€'8 

CONVERT 

S2  TO  S2*,  <##> 

REM 

CONV  TO  DISPLAY 

5072 

GOSUS  ' 

101 

<K1, b0,0,0) 

REM 

POSITION  CUSUR 

5076 

PRINT 

so*;  “ : " ; si*; " : “ ; S2*;  HEX  ( 0€. ) 

REM 

PR NT  CLOCK 

9080 

KEY  IN 

RO* ( 1 ) , 5084,  5084  : COiO  5083 

REM 

INPUT  EUW 

9084 

SO-2  : SI =59:  S2-59  ; GOTO  S096 

REM 

END  OF  LOUPS 

boas 

FOR 

S3  = 0 TO  2150 

REM 

BEC  TIMMNG  LOUP 

5092 

NEXT 

S3 

REM 

CUNT  TIM  CLOCK 

5096 

NEXT 

S2 

REM 

CONT  SEC  CLOCK 

5100 

NEXT 

SI 

REM 

CUNT  MIN  CLOCK 

5104 

NEXT 

SO 

REM 

CONT  HRS  CLOCK 

bl08 

GOSIJB  ' 

101 

<K1, 1, 1,0) 

REM 

POSITION  CUSUR 

51  12 

RETURN 

REM 

EXIT 

\ 


AUTHOR  System 


Phase  3 


ATHaiNTl 


rrj> 


O <_• 


REM  ** 
REM  ** 
REM  ** 


SUb  routine  iHHtiHi'**^^****^^**********************#*** 


5128 

REM  ** 

Abstract  > 

5132 

REM  ** 

Accept  ALPHA  and  NUMERIC  Input. 

5136 

REM  ** 

Varaibles 

> 

5140 

REM  ** 

R0»()  > 

entry  buffer  ! R1  > 

max  length 

5144 

REM  ** 

Rl*  > 

' A'  or  'N'  or  'L' ! R2  > 

return  <num> 

5148 

REM  ** 

R2*  > 

return  <alph>  ! R3  > 

char  pointer 

5i52 

REM  ** 

R6*  > 

initial  value  ! R9  > 

scratch  count 

5156 

REM  ** 

5160 

5164 

DEFFN  ' 

206  (R1,R1*,R6*> 

: REM 

ENTRY 

5168 

INIT (3F) 

R9*  ( ) 

: REM 

INI1 

CHAR  BUFR 

5172 

$GIO  PRINT  /005 

<A000,R8*(9) ) R9* ( ) < 1 , R 1 > 

: REM 

PRNT 

CUSUR  BKGRND 

5176 

INIT (08) 

R9*(  ) 

: REM 

INI  1 

CHAR  BUFR 

5180 

*GIO  PRINT  /0O5 

( AOOO, R8t < 9) >R9*< )<1,R1> 

: REM 

PRNT 

CUSOR  BKGRND 

5184 

*G10 

/005 

(1136,R8*<9> ) 

: REM 

INIT 

REGISTER 

5188 

R9  = 

1 

: REM 

PRNT 

POS  INDX 

5192 

R3  = 

1 

: REM 

BUFR 

POS  INDX 

5196 

INIT 

(20) 

R2* 

: REM 

CLR  BUFR 

REM  ** 
KEVIN 


KEVIN 
DG10 
GO  10 
REM  ** 
PRINT 
INPUT 


GOTO  5480 

REM  *•* 

IP  R0*(1> 

*TRAN  <R0*(>< 

IF  ROt ( 1 ) 

IF  RO*(l) 

IF  R0*(1> 

TG 10  TONE/OO! 

GOTO  5220 

REM  ** 

REM  ** 

REM  ** 

ON  VAL(H0*<1))  GOTO 
REM  ** 


R0$(1>,  5204,  5204 
STR(R8*<9>,5,  1)  = STR(R2*,R9,1) 

Rl*  <>  "E"  THEN  5220 

STR(R8*(9),S, 1)  = HEX (20) 

R0*<1>,  5260,  5236 

INPUT  WA1T/005(R8*(1),RB*<9)) 

5220 


HEX (0808); 
R2* 

R3  = 5 

STR(R2*,R3> 

5480 


= HEX (20) 


R0*(1>  < HEX (08)  THEN  5280 

(R0*<)<1,1>,  R4*(  K161, 10>)  R 
ROt ( 1 ) > HEX ( 7F ) THEN  5280 

ROt(l)  > HEX (IF)  THEN  5300 

R0UK1)  < HEX  (04)  THEN  5300 

TONE/OOb ( R8T ( 7 ) , R8*  < 9 ) ) 

5220 


: REM  CLR  INPUT  BUFR 
: REM  STOR  OUT  CHAR 
: REM  ECHO  CHAR AC TR 
: REM  SET  NO  ECHO 
: REM  1NPU1  CHAR 
: REM  PRNT  CUSOR 
: REM  CUNT  INPT  WAIT 

: REM  FNT  KEY  ENTRY 
: REM  REENTER  SPL  KEY 
: REM  SET  LENGTH 
: REM  CLR  BUFR  END 
: REM  CONV  IN  DATA 

: REM  INVALID  INPT 
: REM  CONV  CTL  CHARS 
: REM  INVALID  INP1 
: REM  VALID  CHAR 
: REM  VALID  CTL  CHAR 
; REM  SOUND  BELL 
: REM  RE-ENTER  CHAR 


RUBOUT 


UNDERSCORE  ! ESCAPE 


REM  BRANCH 


5308 

REM  ** 

5312 

Enter  Character 

53 16 

REM  ** 

5320 

IF 

R3  = R1  + 1 

THEN  5280 

: REM 

BUFR  F ULL 

5324 

STR(R£*,R3, 1 ) = R0*<1) 

: REM 

MOVE  TO  BUFR 

5328 

R3  = R3  + 1 

: REM 

I NCR  BUFR  INDX 

5332 

IF 

R3  = 2 

THEN  5344 

: REM 

NOT  f RST  CHAR 

5336 

R9  = R9  + 1 

: REM 

I NCR  DSPLY  INDX 

5340 

PRINT 

HEX (09); 

: REM 

POSITION  CUSOR 

5344 

IF 

Rl*  <>  "E“ 

THEN  5352 

: REM 

ECHO  CHARACTR 

53a8 

R0*<1>  = HEX (20) 

: REM 

SET  NO  ECHO 

5352 

PRINT 

R0*(1);HEX(08); 

: REM 

PRNT  CHAR 

5356 

GOTO 

5208 

: REM 

FECTH  NXT  CHAR 

5360 

REM  ** 

5364 

********************************************* 

Rubout  Character 

5368 

REM  ** 

5372 

IF 

R3  = 1 

THEN  5208 

: REM 

BUFR  EMPTY 

5376 

PRINT 

HEX ( 3F08 ) ; 

: REM 

POSITION  CUSOR 

5380 

R3  = R3  - 1 

: REM 

DCRMNT  BUF  INDX 

5384 

STR(R2*,R3, 1)  = HEX < 20) 

: REM 

CLR  TRM  BUFR 

5388 

IF 

R9  = 1 

THEN  5400 

: REM 

CUSOR  POSITIONED 

5392 

R9  = R9  - 1 

: REM 

DCRMNT  DSP  INDX 

5396 

PRINT 

HEX (08); 

: REM 

POSITION  CUSOR 

5400 

GOTO 

5208 

: REM 

FETCH  NXT  CHAR 

5404 

REM  ** 

5408 

REM  ********************************************* 

Underscore  char. 

5412 

REM  ** 

5416 

AND 

(STR(K2$,R9, 1 >,7F> 

: REM 

MASK  CHAR 

5420 

ADO 

(STR(R2*,R9, 1 ) , 80 ) 

: REM 

UNDERSCORE 

5424 

GOTO 

5208 

: REM 

FETCH  NXT  CHAR 

5428 

REM  ** 

5432 

REM  ********************************************* 

String  Entered 

5436 

REM  ** 

5440 

IF 

R3  <>  1 

THEN  5468 

: REM 

BUFR  NOT  EMPTY 

5444 

R2*  = R6* 

: REM 

INSRT  DFLT  VAL 

5448 

IF 

Rl*  <>  "E" 

THEN  5456. 

: REM 

EC  FID  DFLT  VAL 

5452 

R6*  = * “ 

: REM 

CLR  DFLT  VAL 

5456 

PRINT 

HEX(OS); 

: REM 

POSIT  ION  CUSOR 

5460 

GOTO 

5476 

: REM 

BRNCH  TO  PRNT 

5464 

KEM  ** 

| 

5468 

STR(R2*,R3)  = HEX (20) 

: REM 

CLR  REST  OF  BUF 

5472 

R6*  = R2* 

: REM 

MOVE  TO  PRNT  BUF 

5476 

PRINT 

HEX ( 09 ) ; STR ( R6», R 3, ABO ( R 1 -R  3 ) + 1 ) ; 

: REM 

PRNT  STRNG 

5430 

IF 

Rl*  <>  ”NM 

THEN  5516 

: REM 

RET  ALPHA  VAL 

5484 

IF 

NUM(R2*>  = 64 

THEN  5512 

: REM 

VALID  NUM  FMT 

5488 

R2  = R1 

: REM 

SET  CUSOR  INDX 

5492 

IF 

R3  <>  Rl+1 

THEN  5500 

: REM 

INOX  IS  OK 

5496 

R2  = Rl+2 

: REM 

RESET  INDX 

5500 

IN1T (08) 

R9*< ):  *GI0/005(A000,R8*<9) >R9*< ) < 1 . R2> 

: REM 

PRNT  CUSOR  BKGRND 

5504 

UGIO 

T0NE/005 ( R8* ( 7 ),R8t< 9) ) 

: REM 

ERR  TONE 

5508 

GOTO 

5168 

: REM 

REENTER  STRNG 

5512 

CONVERT 

R2*  TO  R2 

: REM 

SET  NUMERIC  VAL 

5516 

RETURN 

: REM 

EXIT 

I 


406 


AUTHOR 

System:  Phase  3 — 

ATH  3 1 fvJT  1 — 2?  O 

5520 

REM 

-*■* 

5524 

REM 

-** 

5528 

REM 

*-* 

Subroutine  *hh*-*hhh**************************hh**********-^  £ o 7 

5532 

REM 

Abstract  > 

5536 

REM 

To  assign  an  input  disk  device  to 

devi ce 

tabic 

5540 

REM 

*"* 

and  verify  disk  has  proppr  contents. 

5544 

REM 

Variables  > 

5548 

REM 

*"* 

RO  > eof  flag  ! 

5552 

REM 

5b5€. 

REM 

5560 

UEFFN  ' 

207 

REM 

ENTRY 

5564 

GOSUB  ' 

212 

REM 

INPUT  DEV  # 

5568 

GOSUB  ' 

213 

REM 

ASSIGN  DEVICE 

5572 

GCJSUB  ' 

214 

REM 

VERIEY  CONTENTS 

5576 

IE 

RO  <>  4 THEN 

5564  : 

REM 

NOT  END  Of  CMND 

bbHO 

IE 

R1  <>  €•  THEN 

5564  : 

REM 

NOT  END  OF  CMND 

5584 

RETURN 

REM 

EXIT 

r I 


AUTHOR 

byst em = P ha  & e 

3 

ATH31NT1  - 22  O 

5538 

REM  ** 

5592 

REM  ** 

5596 

REM  ** 

Subroutine  *********************************************  p o 8 

5600 

REM  ** 

Abstract  > 

5604 

REM  ** 

To 

display  formatting  menu  and  input  command 

5608 

REM  ** 

Variables  > 

5618 

REM  ** 

R24  > input  command  ! 

RO  > command  indx 

5616 

REM  ** 

5620 

REM  ********************************************* 

5624 

DEFFN  ' 

208 

REM 

ENTRY 

5628 

DIM 

W44(3>2 

REM 

CMMND  TABLE 

5632 

W44(l)  = “LI" 

REM 

IN11  TABLE 

5636 

W44<2>  = "24“ 

REM 

IN1T  TABLE 

5640 

W44<3)  = “48“ 

REM 

IN IT  TABLE 

5644 

SELECT 

PRINT  005(80) 

REM 

SCL  OUT  DISPLY 

5648 

PRINT 

HEX<03) 

REM 

CLR  SCREEN 

5652 

PRINTUSING 

5948 

REM 

PRINT  MENU 

5656 

PRINTUSING 

5952 

REM 

PRINT  MENU 

5660 

PRINTUSING 

5956 

REM 

PRINT  MENU 

5664 

PRINTUSING 

5960 

REM 

PRINT  MENU 

5668 

SELECT 

PRINT  405 

REM 

BEL  OUT  DSPLY 

5672 

GOSUB  ' 

101 

<15,1,1,0) 

REM 

POSITION  CUSOR 

5676 

PRINT 

"Enter  Format  > " 

REM 

PRNT  PROMT 

5680 

GOSUB  ' 

206 

<6, "A”, "24x" ) 

REM 

INPUT  COMMAND 

5684 

RO  = LENTR24) 

REM 

CMPUT  CMND  LEN 

5688 

IF 

RO  <=  2 

THEN 

5696 

REM 

W I THEN  RANGE 

5692 

RO  = 2 

REM 

SET  TO  MAX  LEN 

5696 

AND 

( STR ( R24 , 1 , RO ) , DF ) 

REM 

FORCE  UPPER  CAS C 

5700 

4TRAN 

< STR  < R24, 1 , RO ) , R44  < ) < 193,  24 > ) R 

REM 

MASK  DIGITS 

5704 

MAT  SEARCH 

W44< ),=STR(R24, 1,R0) 

TO  R 24 < ) STEP  2 

REM 

SRCH  CMND  TBL 

5708 

IF 

R24<2)  <>  HEX (0000) 

THEN 

5716 

REM 

INVALID  COMMAND 

5712 

IF 

R24<1)  <>  HEX (OOOO) 

THEN 

5736 

REM 

CMND  FOUND 

5716 

GOSUB  ' 

101 

<16, 1,1,0) 

REM 

POSITION  CUSOR 

5720 

PRINT 

“INVALID  COMMAND 

RE-ENTER'* 

REM 

PRNT  ERR  MSG 

5724 

4GIG 

PAUSE  T0NE/005  < R84 ( 4 ) 

,R84<9> ) 

REM 

PAUSE  TONE 

5728 

GOSUB  ' 

101 

<16, 1, 1,0) 

REM 

POSITION  CUSOR 

5732 

GOTO 

5672 

REM 

RE-ENTER  CMND 

5736 

RO  = INT<FNR<VAL<R24< 1 )) )/2)  + 

1 

REM 

CMPUT  CMND  INDX 

s 


n 
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r 


JU-, 


5740 

5744 

REM  ** 

REM  iHHt****************************************** 

PROCESS  COMMAND 

5748 

5755 

REM  ** 

REM 

<.linear>  <54x> 

<48x>  : 

REM  CMMND  DISCRPTN 

5756 

ON  RO  GOTO 

5760,  5780, 

5800  : 

REM  BRANCH 

5760 

D5  = 3 

REM  SET  INDX  MODE 

5/64 

00(5)  = 7 

REM  MAX  FICHE  PAG'S 

5768 

00(6)  = 7 

REM  MAX  riCHE  ROW'S 

5775 

00(7)  = 14 

REM  MAX  FICHE  COL'S 

5776 

GOTO 

5816 

REM  BRNCH  TO  NXT  STEP 

5780 

D5  = 1 

REM  SET  INOX  MODE 

5784 

00(5)  = 7 

REM  MAX  F I CHE  PAG'S 

5788 

00(6)  = 7 

REM  MAX  FICHE  RUW'S 

5735 

00(7)  = 14 

REM  MAX  FICHE  COL'S 

5736 

GOTO 

5816 

REM  BRNCH  TO  NXT  STEP 

5800 

D5  = 5 

REM  SET  INOX  MODE 

5804 

00(5)  = 4 

REM  MAX  FICHE  PAG'S 

5808 

00(6)  = 15 

REM  MAX  FICHE  ROW'S 

5815 

00(7)  = 18 

REM  MAX  FICHE  CUL'S 

5816 

GOSUB  ' 101 

(R0+l,3,0,0) 

REM  POSITION  CUSOR 

5850 

PRINT 

HEX (5A) 

REM  PRINT  ITEM  FLAG 

5854 

5858 

REM  ** 

REM  ** 

SELECT  BEGING  PAG  NUM 

5835 

5836 

REM  ** 

G05UB  ' 550 

; 

REM  ENTR  STRT  PAG  # 

5840 

5844 

REM  ** 

REM  ** 

SELECT  TEXT  OPTION  1 

5848 

5855 

REM  ** 

GOSUB  ' 101 

o 

>• 

o 

REM  POSITION  CUSOR 

5856 

PR INTUG I NG 

5368,  *> 

REM  PRINT  PROMPT 

5860 

GOSUB  ' 506 

(3,  “A", “No“ ) 

REM  INPUT  A REST ONCE 

5864 

AND 

(R5*,DF> 

REM  FORCE  UPPER  CASE 

5868 

QO*<3>  = R5* 

REM  STOR  RESrONCL 

5875 

5876 

REM  ** 

REM  ** 

SELECT  1 EXT  OPTION  5 

5880 

5884 

REM  ** 

GOSUB  ' 101 

(15. 1,0,0) 

REM  POSITION  CUSOR 

5888 

PRINTUSING 

5376,  “ “ ; 

REM  PRINT  PROMPT 

5835 

GOSUB  ' 101 

(11,  1,0,0) 

REM  POSITION  CUSOR 

5836 

PRINTUSING 

5375,  “> 

REM  PRINT  PROMPT 

5300 

GOSUB  ' 506 

( 1 , “N* , “0” ) 

REM  INPUT  A RESPONCE 

5-304 

BIN(Q0*(10> ) = R5 

REM  STOR  RESPONCE 

SELECT  NUMBR  OF  TESTS 


5308  REM  ** 
S3 12  REM  ** 
5316  REM  ** 


5320 

GOSUB  ' 101 

< 14,  l(0,i 

0) 

« 

• 

REM 

POSITION  CUSOR 

S3 24 

PRINTUSING 

5364,  "> 

II  a 

9 

REM 

PRNT 

PROMT 

5328 

GOSUB  ' 206 

<2, "N“ , “ 

01"  ) 

REM 

INPUT 

VALUE 

5332 

00(11)  = 

R2 

REM 

STOR 

VALUE 

5336 

REM  ** 

5340 

GOSUB  ' 205 

(16) 

• 

REM 

RSPONCE  WAIT 

5344 

REM  ** 

l 

REM 

IMAGE 

FORMATS 

5348 

X Command  Summary: 

5352 

X LINEAR 

Format 

Output  in 

a linear  foramt. 

535€. 

X 24  x 

Format 

Output  in 

a 24x  fiche  format. 

5360 

X 48  x 

Format 

Output  in 

a 48x  fiche  foramt. 

5364 

X Select  the 

Number  of 

Criterion 

Tests  to  Generate 

## 

5368 

X Select  Auto 

Right  Justification  Option  (Yes  or  NO) 

## 

5372 

X Select  Auto 

Left  Indention 

Option  (0  - 3) 

## 

5376 

X (O-off;  1- 

indent  1 

space;  2-indent  2 spaces;...) 

# 

5380 

RETURN 

m 

0 

REM 

EXIT 

T 

O 


r 


AUTHOR  System:  Phast? 


ATM  U X MT 1 


— 57  O 


5984  REM  ** 

5988  REM  ** 

5995  REM  ** 

5996  REM  ** 

6000  HEM  ** 

6004  HEM  ** 

6008  REM  ** 

6015  REM  ** 

6016  REM  ************************************************* 
6050  DEFFN  ' 509 


6168  X Command  Summary: 

6175  X CREATE 

6176  X EDI f 

6180  X LISl 

6184  RETURN 


Subroutine  ***************** ****************************  5 0 9 
Abstract  > 

To  display  Operational  menu  and  input  command. 

Variables  > 

R5*  > input  command  ! RO  > command  indx 


REM  ENTRY 
REM  CMMND  TABLE 
REM  I NTT  TABLE 
REM  INTI  TABLE 
REM  IN1T  TABLE 
REM  SLL  OUT  DISPLY 
REM  CLR  SCREEN 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  PRINT  MENU 
REM  SE.L  OUT  DSPLY 
REM  POSH  ION  CUSOR 
REM  PRNT  PROMT 
REM  INPUT  COMMAND 
REM  CMPUT  CMND  LEN 
REM  W I THEN  LIMITS 
REM  SET  TO  MAX  LEN 
REM  C.ONV  LC  TO  UC 
HEM  SRCH  CMND  TBL 
REM  INVALID  COMMAND 
REM  CMND  FOUND 
REM  POSITION  CUSUR 
REM  PHNT  ERR  MSG 
REM  PAUSE  TOI\E 
REM  POSIT  ION  CUSUR 
REM  RE-ENTER  CMND 
REM  CMPUT  CMND  INDX 

PROCESS  COMMAND 

REM  CMMND  DISCRPIN 
REM  BRANCH 
HEM  LOAD  PROC 
REM  LOAD  PROC. 

REM  LOAD  PROC 
REM  I MACE  FOHMATS 


Begin  Creation  of  the  Learning  Module. 

Begin  Editing  of  an  Existing  Learning  Module. 
Begin  Listing  of  an  Existing  Learning  Module. 

: REM  EXIT 


6054 

DIM 

W5*(3>5 

6058 

WS*(1>  *■  “CR" 

6035 

W5*(5>  = “ED" 

6036 

W5*(3>  = "LI* 

6040 

SELECT 

PRINT  005(80) 

6044 

PRINT 

HEX (03) 

6048 

PRINTUSING 

6168 

6055 

PRINTUSING 

6175 

6056 

PRINTUSING 

6176 

606.0 

PRINTUSING 

6180 

6064 

SELECT 

PRINT  405 

6068 

GOSUB  ' 101 

(15, 1, 1,0) 

6075 

PRINT 

“Enter  Command  > " 

6076 

GOSUB  ' 506. 

(6, "A", "CREATE") 

6080 

RO  * LEN(R5«) 

6084 

IF 

RO  O 5 

THEN  60-35 

6088 

RO  = 5 

60-35 

AND 

( STR  ( R5*> , 1 , RO ) , DP  ) 

6036. 

MAT  SEARCH 

W5*( ) , ~STR ( R5$, 1 , RO  > 

TO  R5*(>  STEP  i 

6100 

IF 

RS*(S>  <>  HEX (OOOO) 

THEN  6108 

6104 

IF 

R5*(l)  <>  HEX (OOOO) 

THEN  6158 

6108 

GOSUB  ' 101 

(16, 1, 1,0) 

6115 

PH  I NT 

"INVALID  COMMAND 

RE-ENTER “ 

6116 

HGIO 

PAUSE  T0NE/005(R8*(4) 

,R8*<9) ) 

6150 

GOSUB  ' 101 

(16,1,1,0) 

6154 

GOTO 

6068 

6158 

RO  = INT(FNR(VAL(R5*(1) >)/5)  ♦ 1 

6135 

6136. 

REM  ** 

REM  ******** 

*n  r H TC  H M TC  w TC  TC  1C  H 

6140 

REM  ** 

6144 

REM 

<create>  <edit> 

<1 ist> 

6148 

ON  RO  GOTO 

6155,  6156, 

6160 

615? 

GOSUB  ' 105 

( “ Symbol  Table"," ATH3STAB " , " 4000* ) 

6156 

GOSUB  ' 105 

("Edit"  , "ATH3LIST" , " 1500* ) 

6160 

GOSUB  ' 105 

("List"  , "ATH3LIST" , " 1500" ) 

6164 

REM  ** 

411 


1 


AUTI  <QR  S/st  e-m 


Phase  3 


A TH 3 I NT 1 


# MAK 


4676  - 4655 

4680  - 4656 

4684  - 4660 

4760  - 4736 

4800  - 4856. 

4854  - 4816 

4840  - 4835 

4860  - 4836 

4876  - 4768 

4880  - 4775 

4884  - 4776 

4888  - 4780 

4895  - 4784 

48-36  - 4788 

4900  - 4795 

4955  - 4975 

4956  - 4955 

4960  - 4955 

4364  - 4955 

4968  - 4955 

4975  - 4956  4360  4968 

4976  - 4'364 

5084  - 5080 

5088  - 5080 

5096  - 5084 

5168  - 5508 

5504  - 5504 

5508  - 5356-  5375  5400  5454 

5550  - 5515  5558  5584 

5536  - 5550 

S560  - 5550 

5580  - 5560  5568  5350 

5300  - 5575  5576 

5344  - 5335 

5355  - 5344 

5375  - 5300 

5400  - 5388 

5416  - 5300 

5440  - 5300 

5456.  - 5448 

5468  - 5440 

5476  - 5460 

5480  - 5555 

5500  - 5495 

5515  - 5484 

5516  - 5480 

5564  - 5576  5580 

5675  - 5735 

56-36  - 56.88 

5716  - 5708 

5736  - 5715 

5760  - 5756 

5780  - 5756 

5800  - 5756 

5816  - 5776  5796 

5348  - 5655 

5955  - 5656 

5956  - 56.60 


5960  - 5664 

5964  - 5924 

5968  - 5856. 

5972  - 5896 

5976  - 5888 

6068  - 6124 

6092  - 6084 

6108  - 6100 
6128  - 6104 

6152  - 6148 

6156.  - 6148 

6160  - 6148 

6168  - 6048 

6172  - 6052 

6176  - 6056 

6180  - 6060 


413 
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AU(  HOR  Syst  ts-m 


P ha &e  3 


ATH3INT1 


V MAM 


5780  5800 
5040  5072  5108 


4500  4504  4508  4518  4516  5764  5/68  5778  5784  5788 
5938 

4584  4588  4538  4536  5368  5904 


5792  5804  5808 


4860  4864  4952  5576  5684  5688 
6084  6088  6098  €096  6128  6148 
586.8  5878  58/6  S3CO  5384  5348 
5488  5498  5496.  5580 

5938 

5840  5848  5384  5384  5416  5420 
5704  5864  5868  6080  6098  6036 
5708  5718  5736  6096  6100  6104 
5388  5338  5378  5380  5384  5440 
4360  4364  4368  4372  4376  4380 
4416  5864  5700 


4464  4468  4472  4476  4480  4484  4488  4498  4848  5172 

5284  5880  5500  5504  5724  6116 

5808  5336  5388  5392  5416  5420 

5178  5176  5180  5500 

5052  5084  5104 

5058  5076 

5060  5084  5100 

5060  5076 

5068  5084  50*36. 

5068  5076 
5092 


5598  56.96  5700 


5444  5468  5478 
6128 

5468  5476  5498 
4384  4388  4 3*38 


5180  5184  5808 


4744  4748  4758  4756  4888 

5638  5636.  5640  5704 

6088  6038  6036  6096 

4736.  4740  4778  4776  4784  4864  4868 


i 


AUTHOR  System:  Phase  3 — ATH3INT1  — ' M/SI-' 

????  DfcFFN'  101 

- 4800  4840  4852  5040  5072  5108  5672  5716  5738  5815  5852  5884  5892  5920 
6068  6108  6120 

????  DfcFFN'  102 

- 6152  6156  6160 
4040  DfcFFN'  200 

4336  DfcFFN'  201 

- 4044 

4620  DEFFN ' 202 

- 4048 

4728  DEFFN'  203 

- 4052  4972 
4944  DEFFN'  204 

- 4056 

5032  DEFFN'  205 

- 4668  5940 
5164  DfcFFN'  206 

- 4808  5680  5860  5900  5928  6076 
5560  DEFFN'  207 

- 4956 

5624  DEFFN'  208 

- 4-360 

6020  DfcFFN'  209 
_ 

????  DEFFN'  210 

- 4968 

????  DEFFN'  212 

- 5564 

????  DfcFFN'  213 

- 5568 

????  DEFFN'  214  . 

- 5572 

????  DEFFN'  220 


TAEG  Report  No.  59 
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5.3.2  ATH3INT2 

This  section  of  the  1 ATH3INIT * program  contains  subroutines 
270  to  220. 

The  remainder  of  this  section  presents  the  'ATH3INT2' 
program  listing  and  reference  maps. 


1 


X * 


AUTHOR  Sy&tom 


\ ' ha 3 


ATHii  1 N l a 


S 1 O 


r 


6400 

Zlttt  Program 

> AUTflOR/3  ( ATH3INT8)  Vers 

ion  8.0  8800  T /VP  780381 

6404 

HEM  **  Subroutine  *****HHHH*******^**-iHHfr***-iHi’************-*Mf-*-**-*  p 

6408 

REM  **  Abstract  > 

6418 

REM  **  Provide  the  basic  sequence  for 

initiali zing 

6416 

REM  **  the  Data  Entry  Process. 

6480 

REM  **  Variables  > 

6484 

REM  **  ROt ( ) > input  char  bufr  ! 

6488 

REM  ** 

6438 

64  36 

UEFFN  ' 810 

REM 

ENTRY 

6440 

SELECT 

PRINT  005(80) 

REM 

SEE  OUT  DSPLY 

6444 

PRINT 

FEX (03) 

REM 

CLR  CRT  SCRN 

6448 

PRINTUSING 

6508 

REM 

PRINT 

MENU 

6458 

PRINTUSING 

6518 

REM 

PRINT 

MENU 

6456 

PRINTUSING 

6516 

REM 

PRINT 

MENU 

6460 

PRINTUSING 

6580 

REM 

PRINT 

MENU 

6464 

PRINTUSING 

6584 

REM 

PRINT 

MENU 

6468 

PRINTUSING 

6588 

REM 

PRINT 

MENU 

6478 

PRINTUSING 

6538 

REM 

PRINT 

MENU 

6476 

PRINTUSING 

6536 

REM 

PRINT 

MENU 

6480 

PR  1 NT USING 

6540 

REM 

PRINT 

MENU 

6484 

PRINTUSING 

6544 

RLM 

PRINT 

MENU 

648S 

PRINTUSING 

6548 

REM 

PRINT 

MENU 

6498 

PRINTUSING 

6558 

REM 

PRINT 

MENU 

6496 

PRINTUSING 

6556 

REM 

PRINT 

MENU 

6500 

GOSUB  ' 805 

(16) 

REM 

REPONCE  WAI l 

6b04 

REM 

REM 

IMAGE 

FORMAT  B 

6508 

Z Command 

When  To  Use 

6S18 

Z 

SSPSSS  =-a  = irrT=-rra:s-s=-!--sr  = sr=:srr:st=; 

=-=r=5r-s=tr  = =rrr 

t--rrrrr- 

-:-.=r  = rs^ 

6516 

Z ASSIGN 

This  command  MUST  be 

the  FIRST  command. 

1 0 


6580 

6584 

6588 

6538 

6536 

6540 

(>544 

"£•548 

5558 

oS56 

6560 


Its  purpose  is  to  assign 
Output  Devices. 


the  systems  Input  and 


FORMAT 


This  command  is  SECOND,  ONLY  IF  the  Mode  of 
Operation  is  to  be  CREATE.  Its  purpose  is  to 
establish  the  indexing  format  of  the  module. 


SELECT 


RETURN 


This  command  MUST  be  the  LAST  command.  Its 
purpose  is  to  begin  execution  of  the  system 
Overlay  Programs. 

: REM  EXIT 


417 


r 


AUTHOR 


! y s-  1 


ATH3INTa 


6564 

REM  ** 

6568 

REM  ** 

6S72 

REM  ** 

Subroutine  ********-»•*******«•«■**************#************  2 12 

6576 

REM  ** 

Abstract  > 

e.sao 

REM  ** 

To 

Input  the  device  structure  to  be  assigned. 

6584 

REM  ** 

Variables  > 

6^88 

REM  ** 

R2 

> input  numeric  val  ! R1  > device  tbl  indx 

6592 

REM  ** 

Device  Specifications  > 

6596 

REM  ** 

#1 

> AUTHOR  Source  Programs 

Ct-00 

REM  ** 

#2 

> AUTHOR  Phase  II  Data  Base 

6604 

REM  *+ 

*3 

> AUTHOR  Phase  III  Data  Base 

G&oa 

REM  ** 

#4 

> Flopy  Disk  Formatting  Drive 

66 12 

REM  ** 

6616 

REM  » »»  » * **++++*+**W^**lHHH*******-***#*****-**+-iHt 

6620 

DEFFN  ' 

212 

REM 

ENTRY 

6624 

DIM 

W2*(S)2,W6*(5,2)1 

REM 

CMMND  TABLE 

6628 

IF 

W6*<5, 1)  = HEX (00)  THEN  6640 

REM 

CHCK  FLG 

6632 

INIT (20) 

W6*<  ) 

REM 

CLR  ITEM  FLAGS 

6636. 

GOTO 

6644 

REM 

DISPLAY  MENU 

6640 

W6*(5, 1)  = HEX ( 20 ) 

REM 

CLR  FLG 

6644 

W2*<1>  = "PR" 

REM 

INIT  TABLE 

6648 

W2*<2>  = "P2" 

REM 

INIT  TABLE 

6652 

W2*(3)  = "P3“ 

REM 

INIT  TABLE 

6656 

W2*(4)  = “FO" 

REM 

INIT  TABLE 

6660 

W2*(5)  = "EX" 

REM 

INIT  TABLE 

666.4 

SELECT 

PRINT  005(80) 

REM 

SEL  OUT  DISF’LY 

6668 

PRINT 

HEX ( 03 ) 

REM 

CLR  CRT  SCREEN 

6672 

PRINTUSING 

6920,  " " 

REM 

PRINT  MENU 

6676 

PRINTUSING 

6924,  “ " 

REM 

PRINT  MENU 

6680 

PRINTUSING 

6928,  " " 

REM 

PRINT  MENU 

6684 

PRINTUSING 

6932,  W6*(l, 1),W6*<1,2) 

REM 

PRINT  MENU 

6688 

PRINTUSING 

6936.,  W6*(2,  1),W6*<2,2> 

REM 

PRINT  MENU 

6632 

PRINTUSING 

6940,  W6*(3, 1),W6*(3,2) 

REM 

PRINT  MENU 

6696 

PRINTUSING 

6944,  W6*<4, 1 ) ,W6*<4,2) 

REM 

PRINT  MENU 

6700 

PRINTUSING 

6948,  “ “ 

REM 

PRINT  MENU 

6704 

SELECT 

PRINT  405 

REM 

SEL  OUT  DSPLY 

6708 

IF 

W6»(5, 1)  <>  HEX (20)  THEN  6808 

REM 

CHCK  FLAG 

6712 

Gosue  ' 

101 

( 15, 1, 1,0) 

REM 

POSITION  CUSOR 

6716 

PRINT 

“Enter  Command  > " 

REM 

PRNT  PROMT 

6720 

GOSUB  ' 

206 

(8, "A", "EXIT" ) 

REM 

INPUT  COMMAND 

6724 

RO  = LEN(R2*> 

REM 

CMPUT  CMND  LEN 

6728 

IF 

RO  <=  2 THEN  6736 

REM 

WITHEN  LIMITS 

6732 

RO  = 2 

REM 

SET  TO  MAX  LEN 

6736 

AND 

( STR ( R2* , 1 , RO ) , DF ) 

REM 

FORCE  UPPER  CASE 

6740 

*TRAN 

(STR(R2*, 1,R0),R4*( ><193, 24>)  R 

REM 

RESET  DIGIT  CHARS 

6744 

MAT  SEARCH 

W2*( ),=STR(R2*, 1,R0>  TO  R2*( ) STEP  2 

REM 

SRCH  CMND  TBL 

6748 

IF 

R2*(2)  <>  HEX(OOOO)  THEN  67S6 

REM 

CMND  FOUND 

6752 

IF 

R2*(l)  <>  HEX ( 0000 ) THEN  6776 

REM 

CMND  FOUND 

6756 

GOSUB  ' 

101 

(16,1,1,0) 

REM 

POSITION  CUSOR 

6760 

PRINT 

"INVALID  COMMAND  RE-ENTER" 

REM 

PRNT  ERR  MSG 

6764 

SGIU 

PAUSE  T0NE/005 (R8*( 4 ),R8*< 9) > 

REM 

PAUSE  TONE 

6768 

GOSUB  ' 

101 

(16,1,1,0) 

REM 

POSITION  CUSOR 

6772 

GOTO 

6712 

REM 

RE-ENTER  CMND 

6776 

RO  = I NT ( FNR ( VAL ( R2* ( 1 ) > ) /2)  + 1 

REM 

CMPUT  DEV  TYPE 

418 


€.780 

REM  ** 

€784 

INPUT  DEV  NUMBER 

€788 

REM  ** 

€792 

W6*(R0,1>  = HEX ( 2A ) 

REM 

SET  ITEM  FLAG 

6796 

IF 

W6$(  5, 1 ) <>  HEX (20)  THEN  €808 

REM 

CHECK  FLAG 

€800 

W6*<5, 1)  = HEX (00) 

REM 

SET  f LAG 

€804 

GOTO 

6664 

REM 

REPRINT  MENU 

€808 

IF 

RO  <>  5 THEN  €824 

REM 

BRNCH  TO  EXIT 

€812 

RO  = 4 

REM 

SET  TO  EXIT  IUX 

€816 

R1  = 6 

REM 

SET  TO  NULL  BRNCH 

€820 

GOTO 

6952 

REM 

BRANCH  TO  EXIT 

€824 

GOSUB  ' 

101 

(10,1,1,0) 

REM 

POSITION  CUSOR 

€828 

SELECT 

PRINT  005(64) 

REM 

SEL  OUTPUT  DISPLV 

€832 

PRINT 

“ 1 - Flopy  Disk  Drive  #1  <310>“ 

€83€ 

PRINT 

“ 2 - Flopy  Disk  Drive  #2  <B10>“ 

€840 

PRINT 

“ 3 - Flopy  Disk  Drive  #3  <350>“ 

€844 

PRINT 

“ 4 - Fixed  Disk  Plater  <320>“ 

€848 

PRINT 

“ 5 - Removable  Disk  Plater  <B20>“ 

€852 

SELECT 

PRINT  405  : REM 

SEL  OUTPUT  D1SPLY 

6856 

GOSUB  ' 

101 

(16,1,1,0) 

€860 

PRINT 

“Enter  Disk  Device  to  Assign  > " 

€864 

CONVERT 

RO  TO  R0*(1>,  (#) 

REM 

CMPUT  DEFLT  DEV 

€868 

GOSUB  ' 

206 

( 1 , "N" , R0$( 1 ) ) 

REM 

INPUT  DEV  # 

€872 

IF 

R2  > 5 THEN  €880 

REM 

INVALID  INPUT 

€876 

IF 

R2  > 0 THEN  €900 

REM 

VALID  INPUT 

€880 

GOSUB  ' 

101 

(16,1,1,0) 

REM 

POSITION  CUSOR 

€884 

PRINT 

"INVALID  COMMAND  RE-ENTER" 

REM 

PRNT  ERR  MSG 

€888 

*GIO 

PAUSE  T0NE/005 (R8*( 4), R8*( 9) ) 

REM 

WARNING  TONE 

€892 

GOSUB  ' 

101 

(16,1,1,0) 

REM 

POSITION  CUSOR 

€896 

GOTO 

6856 

REM 

RE-ENTER  CMND 

€900 

R1  = R2 

REM 

STOR  DEV  # 

€■304 

R2  = RO 

REM 

STOR  DEV  TYPE 

€•308 

CONVERT 

R1  TO  W6*(RO,2),  (#) 

REM 

STOR  DEV  ASSIND 

€912 

GOSUB  ' 

101 

(10, 1,7,0) 

REM 

ERASE  DISK  MENU 

€916 

REM 

REM 

IMAGE  FORMATS 

6920  X Command  Summary;  # 


€324 

€928 

€932 

X# 

X# 

X# 

Command 

Device 

Assigned 

Function 

PROGRAM 

Disk; 

# 

Assign 

AUTHOR  Program  Disk 

€936 

X# 

P2 

Disk; 

# 

Assign 

INPUT  Data  Base  Disk 

€'340 

X# 

P3 

Disk; 

# 

Assign 

PRIMARY  OUTPUT  Disk 

€944 

X# 

FORMAT 

Disk; 

# 

Assign 

SECONDARY  OUTPUT  Disk 

€348 

X 

# EXIT 

Return  to  Command  Menu 

€952  RETURN  : REM  EX  II 


AU  I HQR  3y  stern 


P ha se  3 


ATHa  1 f'JTa? 


a i 3 


6‘356 

6360 

6*36.4 

6*36.8 

6372 

6-376 

6380 

6384 

6'388 

REM  +* 
REM  ** 
REM  *■* 
REM  ** 
REM  *4 
REM  ** 
REM  ** 
REM  ** 

Sub  routine 
Abstract  > 
To  assign 
Variables  > 
R2  > devi 

Kfc.P1 

r-irirw-inrwi 

fc.9-32 

L)EFFN  ' 

213 

REM  ** 

7000 

REM  ** 

! 310 

7004 

REM  ** 

1 

7008 

ON  R 1 GOTO 

7020 

7012 

REM  ** 

1 

7016 

REM  ** 

7U20 

ON  R2  GUTO 

7024, 

7024 

SELECT 

#1  310 

7028 

SELECT 

#2  310 

7032 

SELECT 

#3  310 

7036 

SELECT 

#4  310 

7040 

REM  44 

7044 

ON  R2  GOTO 

7048, 

7048 

SELECT 

#1  BIO 

7052 

SELECT 

«2  BIO 

7056 

SELECT 

#3  BIO 

7060 

SELECI 

#4  310 

7064 

REM  44 

7068 

ON  R2  GOTO 

7072, 

7072 

SELECT 

#1  350 

7076 

SELECI 

#2  350 

7080 

SELECT 

#3  350 

7084 

SELECT 

#4  310 

7088 

REM  44 

7032 

ON  R2  GOTO 

70-36., 

70-36. 

SELECT 

#1  320 

7100 

SELECT 

#2  320 

7104 

SELECT 

#3  320 

7108 

SELECT 

#4  310 

7112 

REM  44 

7116 

ON  R2  GOTO 

7120,  ' 

7120 

SELECT 

ttl  B20 

7124 

SELECT 

#2  B20 

7128 

SELECT 

#3  B20 

7132 

SELECT 

tt4  310 

7136 

REM  *4 

7140 

RETURN 

2 i 3 


device  -to  internal  table  slot. 


type 


BIO 


R1 


device  number 


3b0 


3<30 


B20 


7044 


7068  , 70*32 


, 7116  , 

i i 


: REM  ENTRY 
EXIT  ! 

i 

71 40  : REM  BRANCH 


7032,  7036 


7056,  7060 


7076,  7080,  7084 


7100,  7104,  7108 


7128,  7132 


REM 

BRNCH  TU  DEV 

GOTO 

7140 

REM 

ASSIGN 

#1 

GOTO 

7140 

REM 

ASSIGN 

#2 

GOTO 

7140 

REM 

ASSIGN 

#3 

GOTO 

7140 

REM 

ASSIGN 

#4 

REM 

BRNCH  TO  DEV 

GOTO 

7140 

REM 

ASSIGN 

itl 

GOTO 

7140 

REM 

ASSIGN 

#2 

GOTO 

7140 

REM 

ASSIGN 

*3 

GO  10 

7140 

REM 

ASSIGN 

#4 

REM 

BRNCH  TO  DEV 

GO  10 

7140 

REM 

ASSIGN 

ttl 

GOTO 

7140 

REM 

ASSIGN 

#2 

GO  1 0 

7140 

REM 

ASSIGN 

#3 

GO  l 0 

7140 

REM 

ASSIGN 

#4 

REM 

BRNCH  TU  DEV 

GOTO 

7140 

REM 

ASSIGN 

#1 

GOTO 

7140 

REM 

ASSIGN 

#2 

GO  10 

7140 

REM 

ASSIGN 

#3 

GOTO 

7140 

REM 

ASSIGN 

#4 

REM 

BRNCH  TO  DEV 

GO  1 0 

7140 

REM 

ASSIGN 

#1 

coro 

7140 

REM 

ASSIGN 

#2 

GOTO 

7140 

REM 

ASSIGN 

tt3 

GOTO 

7140 

REM 

ASSIGN 

It  4 

: 

REM 

EXIT 

420 


i 


P ha  s-  c*  3 


/%T»3^?  JL 


1 3 


■MmUMMI” 


AU  f HUN  Sy  & t ern  Z 


REM  ** 

REM  ** 

REM  **  Sub 
REM  **  Abs 
REM  **  T> 
REM  **  Var 
REM  **  R( 
REM  ** 

REM  *•»*****• 
L)EFFN  ' 214 
REM  ** 

REM 

ON  RO  GUTU 
REM  ** 

GOSUB  ' 21S 
GOSUB  ' 21B 
GOSUB  ' 217 
RETURN 


Sub  routine  #**-«-»-iHf****'»-»*****-*****-*-)H»-»-»-»-*-»*******-****-**-» 
Abstract  > 

To  verify  contents  of  mounted  disks. 

Variables  > 

RO  > disk  type  ! 


<program> 

7200, 


<phase2> 

7204, 


<phasc2i>  <null> 
720B,  7212  : 

: CO 10  7212  : 
: COi 0 7212  : 
: GOTU  7212  : 


REM  ENTRY 


REM  BRANCH 

REM  VRFY  PROG  DSK 
REM  VRFY  P2  DSK 
REM  VRPY  P3  DSK 
REM  EXIT 


c 


421 


AUTHOR 

S y 

ss-  "t  em  - I -'  haa  s i? 

3 — ATH5  X INIT22  - 

22 

7c!  16 

REM  ** 

7220 

HEM  ** 

722 4 

REM  ** 

Subroutine  »«»««*««»*»-ihhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh>'  ct  j 

7228 

HEM  ** 

Abstract  > 

723d 

REM 

To 

verify  that  a standard 

WANG  disk  is  mounted. 

7236 

REM  ** 

Variables  > 

7240 

HEM  ** 

Q9$(  ) > i/o  buffer  ! 

R9  > scratch  register 

7244 

REM  ** 

7248 

HtM  ***#***^www**^^^w**#’*#‘***+*#’*+*’*'**++# 

7252 

DEFFN  ' 

215 

: REM 

ENTRY 

725S 

MAT  REDIM 

Q9* (32)8 

: REM 

SET  i/0  BUFR 

7260 

DATA  LOAD 

BA  1 #1,  <0,R9)Q9«<> 

: REM 

LOAD  SYS 

SCTR 

7264 

IP 

Q9$ ( 2 ) =HEX ( OOOOOOOOOOOOOOOO ) THEN  7288:  REM 

SYS  SECTOR 

72.68 

GOSUB  ' 

101 

(15,1,1,0) 

: REM 

POSH  ION 

CUSUH 

7272 

PRINT 

“PROGRAM  DISK  IMPROPERLY  FORMATTED ! " : REM 

PRNT  ERR 

MSG 

7276 

TG  10 

T0NE/005 ( 4007, R8t ( 9 ) ) 

: REM 

ERR  TONE 

7280 

GOSUB  ' 

205 

(16) 

: REM 

RESPONDS 

WAli 

7284 

GOSUB  ' 

101 

(15,1,2,0) 

: REM 

POSITION 

CUSOR 

7288 

RETURN 

! 

: REM 

EXIT 

o 


o 


422 


[ 

<p 

AUTHOR 

System:  Phase  3 — • 

ATH 3 I NTS  - a 

7292 

REM  ** 

7296 

REM  ** 

B; 

7300 

REM  ** 

Subroutine  »«**»«  »<§  »»■»»»«  <m  mm  h n p 

7304 

PEM  ** 

Abstract  > 

7308 

REM  ** 

To 

verify  that  the  proper  Phase2  Data  Base 

7312 

REM  ** 

Disk  is  Mounted. 

7316 

REM  ** 

Variables  > 

7320 

REM  ** 

G9*<)  > transfer  bufr  ! R2  > adrs  register 

7324 

REM  ** 

R8*<  ) > micro  cmnd  bufr  ! R2*  > input  str  value 

7328 

REM  ** 

R9*< ) > scratch  bufr  ! 

7332 

REM  ** 

7336 

REM  ■*hhh 

HHHHH 

HHHHt 

7340 

DEFFN  ' 

216 

: REM 

ENTRY 

7344 

MAT  REDIM 

09* (64)4 

: REM 

SET  I/O  BUFR 

7348 

DATA  LOAD 

BA  T #2,  <0,R9)Q9*< ) 

: REM 

LOAD  0 SCTR 

7352 

IF 

Q9*(3)  = HEX ( EEEEEEEE  > THEN 

7392  : REM 

VALID  FORMAT 

7356 

GOSUB  ' 

101 

<15,1,1,0) 

: REM 

POSITION  CUSUR 

7360 

PRINT 

•INVALID  PHASE  2 DATA  BASE  FORMAT!"  : REM 

PRNT  ERR  MSG 

7364 

*GIO 

TONE/ 005 ( 4007 , R8* ( 9 ) ) 

: REM 

ERR  TONE 

7368 

GOSUB  ' 

205 

< 16) 

: REM 

RESPONCb  WAIT 

7372 

GOSUB  ' 

101 

(15,1,2,0) 

: REM 

POSITION  CUSOR 

7376 

GOTO 

7448 

: REM 

BRANCH  TO  EXIT 

7380 

REM  ** 

7384 

REM  **■*’ 

»»»»■ in 

IHHHHfr**^*******-  * CMPR 

PASSWORDS 

7388 

REM  ** 

7392 

MAT  COPY 

09*  < ) <65, 16>  TO  R9* < ) < 1 , 64 > 

: REM 

FETCH  TITLE 

7396 

GOSUB  ' 

101 

(14,1,2,0) 

: REM 

POSITION  CUSOR 

7400 

PRINT 

" Volume  ID  > ";R9*(1) 

: REM 

PRNT  TITLE 

1 \ 

7404 

GOSUB  ' 

101 

(15,1,0,0) 

: REM 

POSITION  CUSOR 

7408 

PRINT 

“ Enter  Password  > “ 

: REM 

ENTR  PROMT 

7412 

GOSUB  ' 

206 

(8, "E" , " database"  > 

: REM 

INPUT  PASWRD 

7416 

MAT  COPY 

Q'3*( ) <25, 8>  TO  R9*<  ) <1 , 64 > 

: REM 

FETCH  PASWRD 

7420 

IF 

R2*  = R9*( 1 ) THEN 

7448  : REM 

VALID  PASWRD 

7424 

IF 

R2*=HEX (3C2074616567293E)  THEN 

7448  : REM 

VALID  PASWRD 

7428 

GOSUB  ' 

101 

< 16, 1, 1,0) 

: REM 

POSITION  CUSUR 

7432 

PRINT 

" INVALID  PASSWORD  RE-ENTER" 

: REM 

PRNT  ERR  MSG 

7436 

*GIO 

PAUSE  T0NE/005(R8*(4),R8*(9) ) 

: REM 

PAUSE  TONE 

7440 

GOSUB  ' 

101 

(16,1,1,0) 

: REM 

POSITION  CUSOR 

7444 

GOTO 

7404 

: REM 

RE-ENTER 

7448 

RETURN 

: REM 

EXIT 

■ 


1 


rtU  1 l-IOR 

7452  hem  ** 
7456  REM  ** 

7/.i:r\  lu  k4  jiji 

System:  a — ATHaiNTE!  — a 

f ' fw'W 

7464 

ry  Li'i  " - 

HEM  ** 

Abstract  > 

746V. 

RtM  ** 

To 

initialize  and  verify  the  Phase  III 

747c! 

REM  ** 

Data  Base  dish. 

.■476 

REM  ** 

Variables  > 

7480 

REM  ** 

U3*< ) > command  table  ! R2*  > input  command 

7484 

7/.OQ 

HEM  ** 

rjl  m h k M- 

[iinn 

f *¥oo 

7492 

rlLn  * * 

UEFFN  ' 

217 

T"»i»  » » R ■ t W'W  W t II  t t N 

REM 

ENTRY 

7486 

DIM 

W3*<2>2 

REM 

CMMND  TBL 

7bOO 

W3*< 1 ) = “IN* 

REM 

1N1T  TBL 

7504 

W3*<2>  = “EX* 

REM 

IN1T  TBL 

7508 

SELECT 

PRINT  005 

REM 

SEL  OUT  DSPLY 

7512 

r-’RINT 

HEX (03) 

REM 

CLR  CRT  SCRN 

7516 

PRINT 

“Command  Summary:" 

REM 

PRNT  TITLE 

7520 

PRINT 

“ INITIAL  - *; 

REM 

PRNT  COMMAND 

7524 

PRINT 

“Initialize  Phase  3 Uata  Dish." 

REM 

PRNT  FUNCTION 

7528 

PRINT 

“ EXIT  - “; 

REM 

PRNT  COMMAND 

7532 

PRINT 

“Phase  3 Data  Dish  Formatted." 

REM 

PRNT  FUNCTION 

7536 

SELECT 

PRINT  405 

REM 

SEL  OUT  DSPLY 

7540 

GOSUb  • 

101 

<15, 1, 1,0) 

REM 

POSITION  CUSUR 

7544 

PRINT 

“Enter  Command  > “ 

REM 

PRNT  PROMT 

7548 

GOSUB  ' 

206 

<7, “A“, "EXI 1 “ ) 

REM 

INPUT  COMMAND 

7552 

AND 

<R2*,DP) 

REM 

CONV  LC  TO  UC 

7556 

MAT  SEARCH 

W3*<),  =STR(R2*, 1,2)  TO  R2*< ) STEP  2 

REM 

SRCH  CMND  TBL 

7560 

IP 

R2*< 1 > <>  HEX (OOOO)  THEN  7584 

HEM 

CMND  POUND 

7564 

GOSUB  ' 

101 

<16, 1, 1,0) 

REM 

POSITION  CUSUR 

7568 

PRINT 

"INVALID  COMMAND  RE-ENTER* 

Rt.M 

PRNT  ERR  MSC 

7572 

$GIO 

PAUSE  T0NE/005  < R8*  < 4 ) , R8<  < 9 ) ) 

REM 

PAUSE  TONE 

7576 

GOSUB  ' 

101 

<16,1,1,0) 

REM 

POSITION  CUSUR 

,'580 

GUI  0 

7536 

REM 

RE-ENTER  CMND 

7584 

R1  « INT<FNR<VAL<R24J<D  ))/2)  «•  1 

REM 

CMPUT  CMND  INDX 

7S8S 

REM  ** 

7592 

PROCESS  DISK 

7596 

REM  ** 

7600 

REM 

<initialize  dish>  <verify  dish> 

REM 

CONTRO  PUNCT ION 

7604 

ON  R 1 GOTO 

7608,  7612 

REM 

BRANCH 

7608 

GOSUB  ' 

218 

REM 

INITIALIZE  DISK 

(-612 

GOSUB  ' 

219 

REM 

VERIFY  DISK 

7616 

RETURN 

REM 

EXIT 

424 


AUTHOR  System:  Phase 


ATH3INT. 


7650 

7654 

7658 

7635 

7636 
7640 
7644 
7648 
7665 
7656 
7660 
7664 
7668 

7675 

7676 
7680 
7684 
7688 
7605 
7696 
7700 
7704 
7708 

7715 

7716 
7750 

7754 
7758 
7735 
7736. 
7740 
7744 
7748 

7755 

7756 
7760 
7764 
7768 

7775 

7776 
7780 
7784 


III  Data  Basr  Disk. 


REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  II  H II II  HU  »»»*»« 

DEFFN  ' 518 
MAT  REDIM 
INIT 


Subroutine 
Abstract  > 

To  Initialize  the  Phase 
Variables  > 

Q9$<>  > i/o  buffer 

> scratch  buf r 
indx  sctr  adrs 
sctr  adrs  incr 
vol  id  numbr 
subsctr  indx 


R9$(  ) 
R0$  > 
R4$  > 
R8$  > 
R9  > 


R5$ 

R7$ 

R3$ 

R5$ 

rs  : 

R7  ; 


return  input  bufr 
temp  storage  bufr 
vol  id  mask 
vol  id  incr 
sctr  adrs  indx 
scrth  adrs  registr 


HEX  ( 000F03FF ) 
HEX (04000000) 
HEX ( FFFFFFFF ) 
HEX (FFFFFFFF ) 
HEX ( 1 OOOOO 1 0 ) 
HEX ( 03FF0000 ) 
HEX (4441 5450) 
HEX ( 46494C45 ) 
HEX ( lOOOOOOO ) 


09$  ( €>4 ) 4 
(00)  Q9$(> 

Q9$(01 ) 

0*3*  ( 05 ) 

09* (03) 

09$ (04) 

0-3$  (05) 

0-3$  ( 06 ) 

0-3$  ( 07 ) 

09$ ( 08 ) 

09$ (13) 

GOSUB  ' 101  (14,1,1,0) 

PRINT  "Enter  Disk  Volume  ID  > “ 

GOSUB  ' 506  (16, “A", "AUTHOR  Data  Base") 

R9$ ( 1 > = R5$ 

MAT  COPY  R9$( XI, 16>  TO  Q9$()<65, 16> 

GOSUB  ' 101  (15,1,1,0) 

PRINT  "Enter  Password  > " 

GOSUB  ' 506.  (8,  "E",  "database"  ) 

R7$  = RS$ 

GOSUB  ' 101  (15,1,1,0) 

PRINT  "Verify  Password  > " 

GOSUB  ' 506.  (8,  "E%  "database"  > 

IF  R7$  <>  R5$  THEN  7744 

R9$  < 1 > = R5$ 

MAT  COPY  R9$( ) <1, 8>  TO  09$()<55,8> 

DATA  SAVE  BA  T #3,  <0,R7)Q9$() 


REM  ENTRY 
REM  SET  1/0  BUFR 
REM  CLR  BUFR 
REM  SYSTEM  BYTES 
REM  SYSTEM  BYTES 
REM  ATH  3 INDCTR 
REM  ATH  3 INDCTR 
REM  INDX  BYTES 
REM  INDX  BYTES 
REM  FILE  NAME 
REM  FILE  NAME 
REM  VOLUME  NUMBR 
REM  POSITION  CUSOR 
REM  PRNT  PROMT 
REM  INPUT  TEXT 
REM  ST  OR  VALUE 
REM  STOR  IN  BUFR 
REM  POSITION  CUSOR 
REM  PRNT  PROMT 
REM  INPUT  TEXT 
REM  STOR  VALUE 
REM  POSITION  CUSOR 
REM  PRNT  PROMT 
REM  INPUT  VALUE 
REM  INVALID  ENTRY 
REM  STOR  VALUE 
REM  STOR  IN  BUFR 
REM  SAVE  BUFR 


c 
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7788 

7792 

77- 36 
7800 
780* 
7808 
7812 
7816 
7820 
7824 
7828 
7832 
7836 
7840 
7844 
7848 
7852 
7856 
7860 
7864 
7868 
7872 
7876 
7880 
7884 
7888 

78- 32 
78-36 
7900 
7-304 
7-308 


REM  ** 
HEM  ** 


MAT  REDIM 

Q9T\ 128)2 

REM 

SET  I/O  BUFR 

ROT  = HEX (0010) 

REM 

INIT  ADRS 

R3T  = HEX (OFFF ) 

REM 

INIT  ADRS  MASK 

R4T  = HEX (0004) 

REM 

INIT  ADRS  I NCR 

R5T  = HEX (1000) 

REM 

INIT  VOL  # I NCR 

R8T  = HEX (1000) 

REM 

INIT  VOL  # 

INIT 

(FF)  Q9TO 

REM 

INIT  BUFR 

GOSUB  ' 

101 

(14, 1,2,0) 

REM 

POSH  ION  CUSOR 

PRINT 

"Initializing  Disk 

Index 

REM 

PRNT  HEADER 

PRINT 

“Sector  Sub-Sector  Index" 

REM 

PRNT  HEADER 

FOR 

R8  = 1 TO  15 

REM 

BEG  LOOP  R8 

GOSUB  ' 

101 

(15,30,0,0) 

REM 

POSITION  CUSOR 

PRINT 

R8 

REM 

PRNT  SCRT  ADRS 

GOSUB  ' 

101 

(15,51,0,0) 

REM 

POSITION  CUSOR 

FOR 

R9  = 2 TO  128  STEP 

2 

REM 

BEG  LOOP  R9 

CONVERT 

R9  TO  R2T,  <###> 

REM 

CONV  TO  DSPLY 

PRINT 

R2T; HEX (080808) 

REM 

PRNT  SUBSCTR  INDX 

AND 

(R0T,R3T) 

REM 

CLR  VOL  NUMBR 

IF 

ROT  <=  HEX ( 03FC ) 

THEN  7884 

REM 

NOT  END  OF  SLQ 

ROT  = HEX (0010) 

REM 

BEG  OF  SEQ 

ADD 

(R8T,R5T) 

REM 

I NCR  VOL  * 

OR 

(R0T,R8t) 

REM 

INSRT  VOL  # 

Q9T  < R9 ) = ROT 

REM 

INSR1  SCI R ADRS 

ADOC 

(R0T.R4T) 

REM 

INCH  SCTR  ADRS 

NEXT 

R9 

REM 

CCJNT  BUFR  FILL 

DATA  SAVE 

BA  T #3,  (R8,R7)Q9T( ) 

REM 

SAVE  BUFR 

NEXT 

R8 

REM 

CONT  INDX  FILL 

RETURN 

REM 

EXIT 
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AUT1  IQR 

Sy  s-tem:  Phase 

3 — ATH31NT2:  — 22 

73i  a 

REM  ** 

7916 

REM  ** 

7920 

REM  ** 

Subroutine  *********************************************  2 

7-324 

REM  ** 

7'328 

REM  ** 

Abstract  > 

7932 

REM  ** 

To 

verify  that  the  proper 

Phase3  Data  Base 

7936 

REM  ** 

Disk  is  Mounted. 

7940 

REM  ** 

Variables  > 

7-344 

REM  ** 

Q95< ) > transfer  buf r ! 

R2  > adrs  register 

7948 

REM  ** 

R85<  ) > micro  cmnd  bufr  ! 

R25  > input  str  value 

7952 

REM  ** 

R95(  ) > scratch  bufr  ! 

7956 

REM  ** 

7960 

REM  ***»*»**♦♦*♦♦*■»»  » ****** ****** 

7964 

DEFFN  ' 

219 

: REM 

ENTRY 

7-368 

MAT  REDIM 

095(64)4 

: REM 

SET  I/O  BUFR 

7972 

DATA  LOAD 

BA  T #3,  (0,R9)Q95(> 

: REM 

LOAD  0 SCI R 

7976 

IF 

095(3)  = HEX  < FFrFFFFF ) 

THEN  8016  : REM 

VALID  FORMAT 

7980 

GOSUB  ' 

101 

(15,1,1,0) 

: REM 

POSH  ION  CUSOR 

7984 

PRINT 

"INVALID  PHASE  3 DATA 

BASE  FORMAT!"  : REM 

PRNT  ERR  MSG 

7988 

5G10 

T0NE/005( 4007, R85 ( 9) ) 

: REM 

ERR  TONE 

7992 

GOSUB  ' 

205 

(16) 

: REM 

RESPONCE  WAIT 

7996 

GCSUB  ' 

101 

(15,1,2,0) 

: REM 

POSITION  CUSOR 

8000 

GOTO 

8072 

: REM 

BRANCH  TO  EXIT 

8004 

REM  ** 

8008 

REM  »«»»»»»»*»» »♦»»*» »*»«»*»♦**»*»»*♦♦*»♦**»***♦*  CMPR 

PASSWORDS 

8012 

REM  ** 

8016 

MAT  COPY 

095 ( ) <65, 16>  TO  R-35()<1,6^>  : REM 

FETCH  TITLE 

8020 

GOSUB  ' 

101 

( 14, 1,2,0) 

: REM 

POSITION  CUSOR 

8024 

PRINT 

" Volume  ID  > ";R95(1> 

: REM 

PRNT  TITLE 

8028 

GOSUB  ' 

101 

(15, 1,0,0) 

: REM 

POSITION  CUSOR 

8032 

PRINT 

" Enter  Password  > " 

: REM 

ENTR  PROMT 

8036 

GOSUB  ' 

206- 

<8, "E", "database" ) 

: REM 

INPUT  PASWRD 

8040 

MAT  COPY 

Q95()<25,8>  TO  R35<  XI 

,645  : REM 

FETCH  PASWRD 

8044 

IF 

R25  = R95 ( 1 ) 

THEN  8072  : REM 

VALID  PASWRD 

8048 

IF 

R25=HEX ( 3C207461 656720 3L ) THEN  8072  : REM 

VALID  PASWRD 

8052 

GOSUB  ' 

101 

(16, 1, 1,0) 

: REM 

P0SI1 ION  CUSOR 

8056 

PRINT 

" INVALID  PASSWORD  RE 

ENTER"  1 REM 

PRNT  ERR  MSG 

8060 

5GI0 

PAUSE  T0NE/005  < R85 ( 4 ) , 

R85 ( 9) ) : REM 

PAUSE  TONE 

806-4 

GOSUB  ' 

101 

(16,1,1,0) 

: REM 

POSITION  CUSUR 

8068 

GOTO 

8028 

I REM 

RE  -ENTER 

8072 

RETURN 

: REM 

EXIT 

■£) 


1 9 
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HEM  ** 
HEM  ** 
HEM  ** 
REM  ** 
HEM  ** 
HEM  ** 
HEM  ** 
HEM  ** 
HEM  ** 
HEM  ** 
REM  +* 
HEM  *** 
UEFFN 
GOSIJB 
PRINT 
PRINT 
GOSUB 
AND 
GOSUB 
IE 

HEM  ** 
GUSUB 
PRINT 
PRINT 
GOSUB 
AND 
GOSUB 
IF 

REM  ** 
GOSUB 
PRINT 
GOSUB 

COSUB 

PRINT 

GOSUB 

COSUB 

PRINT 

GOSUB 

GOTO 
HEM  ** 
COSUB 
PRINT 
COSUB 


Sub  routine  **-****hhhhh*+-»*-»***'«+-»-»-**hhhhh‘ 
Abstract  > 

To  assign  the  starting  frame  number  for 
package.  The  number  can  be  entered  in  e 
format  or  linear  format. 

Variables  > 

QO$<)  > system  register  stack  ! R2*  > in 


***************  c!  cZ  0 

the  learning 
ither  fiche 


lput  value  buffer 


101  (15,1,1,0)  : 

"Do  You  Wish  to  override  starting 
“Frame  Address  (Yes  or  No)  > : 

206  (3,  "A",  "NO")  : 

(R2*,DP>  : 

ioi  (is, 1,1,0)  : 

STR(R2*,1,1)  <>  "Y"  THEN  8284  : 

101  (15,1,1,0)  : 

"How  is  Frame  Address  to  be  Entered"; 

" (Linear  or  Fiche)  > : 

206  (6, "A", "FICHE" ) : 

(R2*,UP)  : 

101  (15,1,1,0)  : 

SYR(H2*,i,l>  * "L"  THEN  8248  : 

101  (6, 1,0,0)  : 

"Enter  Starting  Fiche  Pag  Number  > ": 

206.  (2,  “N"  , "01 " ) : 

BIN(Q0*(6>)  = H2 

101  (7, 1,0,0)  : 

"Enter  Starting  Fiche  How  Number  > ": 

206  ( 2, "N“  , "01 " ) : 

BIN(GO*(7) ) = H2  : 

101  (8, 1,0,0)  : 

"Enter  Starting  Fiche  Col  Number  > ": 

206.  (2,  "N"  , "01  “ ) : 

BIN(QO*<8)>  = H2  : 

8284 


COSUB  ' 101  (6, 1,0,0)  : 

PRINT  "Enter  Starting  Frame  Address  > " : 

COSUB  ' 206  ( 4, "N" , "OOOl " ) : 

B 1 N ( (30* ( 6 ) ) ~ 1NT ( (H2-1 ) / (00 ( 7) *00(6)  ) ) + 1 

R2  = R2  - ( ( VAL ( OCX  ( 6 ) ) - 1 ) * ( 00 ( 7 ) *Q0 ( 6 ) ) ) 
BIN(GO* (7)  ) = I NT ( (R2- 1 ) / (00(7 ) ) ) + 1 

R2  = R2  - ( (VAL(GO*(7) >-l )*((J0(7) ) ) 
BIN(GO*(8) )“  R2 
REM  ** 

RETURN  : 


REM  ENTRY 
REM  POSITION  CUSOH 
REM  PKNT  PROMPT 
REM  PRNT  PROMPT 
REM  INPUT  RESPONCE 
REM  MASK  OUT  L/C 
REM  CLH  PROMPT 
REM  NO  OVERRIDE 

REM  POSH  ION  CUSUR 
: REM  PRNT  PROMPT 
REM  PRNT  PROMPT 
REM  INPUT  RESPONCE 
REM  MASK  OUT  L/C 
REM  CLH  PROMPT 
REM  IF  LINEAR  FMT 

REM  POSITION  CUSOH 
REM  PRNT  PROMPT 
REM  INPUT  RESPONCE 
REM  ST  OR  RESULT 
REM  POSITION  CUSUR 
REM  PRNT  PROMPT 
REM  INPUT  RESPONCE 
REM  STOP  RESULT 
REM  POSITION  CUSOH 
REM  PRNT  PROMPT 
REM  INPUT  RESPONCE 
REM  ST  OR  RESULT 
REM  BRANCH  TO  EXIT 

REM  POSII ION  CUSOH 
REM  PRNT  PROMPT 
REM  INPUT  RESPONCE 
: REM  CMPUT  PAG  # 

: REM  RESET  VALUE 
: REM  CMPUT  ROW  M 
: REM  RESET  VALUE 
: REM  CMPUT  COL  # 

REM  EXIT 


428 


AUTI  IQR  System 


Ph^&e  3 


A fH 3 I NT i 


# MAF 


6508  - 6448 

6515  - 6455 

65 16  - 6456 

6550  - £4.60 

6554  - 6464 

6558  - 6468 

6535  - 6475 

6536  - 6476 

6540  - 6480 

6544  - 6484 

6548  - 6488 

6555  - 6495 

6556  - 64-36 

6564  - 0008 

6640  - €6-58 

6644  - 6636. 

666-4  - 6804 

6715  - 6775 

6736-  - 6758 

6756  - 6748 

6776  - 0008  6755 

6780  - 0008 

6808  - 6708  6796 

6854  - 6808 

6856-  - 6896 

6880  - 6875 

6-300  - 6876 

6950  - 6675 

6954  - €-676 

6958  - 6680 

6935  - 6684 

6936  - 6688 

6940  - 6695 

6-344  - £636 

6948  - 6700 

6955  - 0008  6850 


71 16 
7116 
7116 
7008 
7100 
7195 
719c; 
7195 
7195 
7564 
0008 
7355 
7444 
0008 
7580 
7560 
7604 
7604 
0008 
7775 
0008 
0008 
7875 
0008 
0008 
7970 
806-8 
0008 
8184 
8155 


7054  7058  7035  7036  7048  7055  7056  7060  7075  7076  7080  7084  7036. 
7104  7108  7150  7154  7158  7135 


7500  7504  7508 


7376  7450  7454 


8000  8044  8048 


/%l_J  I HOR  Sy  si:  Dm 


F*  ho  sd  3 


^TUS  J.  IM'l  82 


V MAP 


i* 


Q0< 

- 

8860 

8864 

886.8 

8878 

Q0*< 

- 

sao't 

8880 

8836 

8860 

8864 

8868 

8878 

8876 

09*  < 

- 

7856 

7860 

7864 

7344 

7348 

7358 

7398 

7416 

7680 

7684 

7688 

7698 

7696 

7700 

7704 

7708 

7718 

7716 

7780 

7740 

7780 

7784 

7800 

7884 

7888 

7-300 

7968 

7978 

7976 

8016 

8040 

RO 

- 

6784 

6788 

6738 

6736 

6740 

6744 

6776 

6798 

6808 

6818 

6864 

6904 

6-308 

7193 

ROS 

- 

7804 

7868 

7878 

7876 

7884 

7888 

7898 

R0*< 

- 

6864 

6868 

R1 

- 

€.816 

6900 

6908 

7008 

7584 

7604 

R8 

- 

6878 

6876 

6-300 

6304 

7080 

7044 

7068 

7098 

7116 

8804 

8880 

8336 

8860 

8864 

8868 

8878 

8876 

RS* 

- 

6784 

6736 

6740 

6744 

7480 

7484 

7558 

7556 

7736 

7756 

7778 

7776 

7860 

7864 

8044 

8048 

8144 

8158 

8176 

8184 

Ra*< 

- 

6744 

6748 

6758 

6776 

7556 

7560 

7584 

R3* 

- 

7808 

7868 

R4* 

- 

7818 

7898 

R4*( 

~ 

6740 

R5* 

- 

7816 

7880 

R7 

- 

7784 

7-300 

R7* 

- 

7756. 

7778 

R8 

- 

7840 

7848 

7-300 

7304 

K8* 

- 

7880 

7880 

7884 

R8*< 

- 

6764 

6888 

7876 

7364 

7436 

7578 

7988 

8060 

R9 

- 

7860 

7348 

7856 

7860 

7888 

78-36 

7978 

R9*< 

- 

7398 

7400 

7416 

7480 

7736. 

7740 

7776 

7780 

8016 

8084 

8040 

8044 

wa*< 

“ 

£■684 

6644 

6648 

6658 

6656 

6660 

6744 

W3*( 

- 

7496 

7500 

7504 

7556 

W6*< 

- 

6684 

€.£•88 

6638 

66.40 

6684 

6683 

6698 

6696 

6708 

6798 

67-36 

6800 

6908 

AUTHOR  System:  Phase  3 


ATHaiNi a 


MAP 


????  DEFFN'  101  , 

- 6712  67b6  6768  6824  6866  6880  6802  6012  7268  7284  7366  7372  7336  7404 

7428  7440  7640  7664  7676  7724  7744  7760  7828  7844  78S2  7080  7006  8020 

8028  8062  8064  8128  8148  8160  8180  8102  8208  8224  8248 

????  DEFFN'  205 

- 6500  7280  736-0  7002 
????  DEFFN'  206 

- 6720  6868  7412  7548  7732  7752  7768  8036  8140  8172  8200  8216  8232  8256 
6436  DEFFN'  210 

6620  DEFFN'  212 
6092  DEFFN'  213 
7180  DEFFN'  214 
7252  DEFFN'  215 

- 7200 

7340  DEFFN'  216 

- 7204 

7402  DEFFN'  217 

- 7208 

7676  DEFFN'  218 

- 7608 

7964  DEFFN'  210 

- 7612 

8124  DEFFN'  220 


1 
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w 5.4  ATH3STAB 

The  purpose  of  the  'ATH3STAB'  program  is  to  clear  from  memory  all 
program  text  which  is  not  needed  for  the  construction  process  and  to 
load  in  a new  COMMOM  table. 

The  remainder  of  this  section  contains  the  'ATH3STAB'  program 
listing. 


AUTHOR  Sy&tpm:  Phase 


— ATHBSTAB  — CLRPKC 


4000  X#1t  Program  > AUTHOR/3  (ATH3STAQ)  Version  > 5.0  5500  1 /VP  780351 

4010  KtM  **  Abstract  ********^********^*^*************^****************-,H‘-* 

4030  HLM  *•»  ** 

4030  HEM  **  To  load  the  symbol  table  into  common  memory  ** 

4040  RtM  **  ** 

4050  RtM 
4060  REM  ** 

4070  LOAD  DC  T #1 , “ATH3VTAB"  100,590 
4080  END 


TAEG  Report  No.  59 


I 


5.5  ATH3VTAB 

The  purpose  of  the  'ATH3VTAB'  program  is  to  define  a new  COMMOM 
table  containing  the  variables  necessary  to  construct  the  learning 
module.  After  such  definition  the  program  will  load  the  symbol 
table  initializing  program. 

The  remainder  of  this  section  contains  the  'ATH3VTAB1  program 
listing. 


AUTHUH  Sy&tem:  Phase  3 — ATH3VT  AH  — C;OMTBL. 


105 

REM 

**  Ab 

110 

REM 

115 

REM 

150 

REM 

155 

REM 

■*•*■#•*-*• 

130 

REM 

135 

REM 

•*■»*■*«*• 

140 

REM 

-*•* 

145 

COM 

150 

COM 

155 

COM 

160 

COM 

165 

COM 

170 

uutf 

175 

COM 

180 

COM 

18b 

COM 

1'30 

COM 

195 

COM 

500 

COM 

505 

COM 

510 

COM 

51b 

COM 

550 

COM 

55b 

COM 

530 

COM 

535 

COM 

540 

DIM 

54b 

550 

LOAD  DC  1 

555 

END 

m > AUTHOR / 3 < ATH3VTAJ3 ) Version  > 5.0  5500  1 /VP  780351 

** 

To  load  the  symbol  table  into  common  memory  ** 

** 


DEFINE  PROG  SI ROAGE 


R4*(S0)16,R5*<10>1,H6*<16>1,R7*<64>1 
R8*< 10)54, R9*< 1)64 

B0,Bl,B5,B3,b4,B8,B9,Bl*l,bl*(50)l 

D1 , D5,U3, D4, D5, D4*4 , Db*5 

D6*5,  D7*4,  D8*S,  D9*5 

K1,K5,K3,K4,K5*<1>64 

L1*55,L5*8,L3*4 

W1 , W5, W3, W4 , W5, WE, Wl*8 

U1*(15)1,U0,U1 

RO, R1 , R5, R3, R4, R5, WE, R7, R8, R9 

R0*S,  R 1 *50,  R5*64,  R3*S,  R4*5,  R5*5 

R6*64 , R7*64 , R8*S , R9464 , E 1 *4 

R0*<1 )1,R1*'< 35)63, H5*(5)5,H3*< 1 >64 

SI , S5, S3, S4, Sb, S4* (1)64, S8* (1)4, S9*  <1)4 

GO,  01 , 05,  03, 04,  Ob,  06,  07, 08, 09 

QO(15),QO*<  10)1,01*  <158)5,05*  <16,  €.4)1 

04* (50)5, Ob* (10) 3, 06* (10)5 

07* < 7b, 5) 1 

03*<75,6)5 

09*  < 64 ) 4 

END  OP  COMMON  STORAGE  AREA 
#1,  " ATH3SR1 S“  4000 


REM  GENERAL  REGISTERS 
REM  GENERAL  REGISTERS 
REM  BIT  CONTROL 
REM  OUTPUT  PAG  INDX 
REM  OUTPUT  PAG  INDX 
REM  CUSOR  CONTROL 
REM  PROGRAM  LOADING 
REM  FICHE  PAG  INDX 
REM  SYMBOL  INDX ING 
REM  GENERAL  REGIS1ERS 
REM  GENERAL  BUFFERS 
REM  GENERAL.  BUFFERS 
REM  GENERAL  BUFFERS 
REM  BUFR  STORACE  INDX 
REM  GENERAL  REGISTERS 
REM  GENERAL  BUFFERS 
REM  GENERAL  BUFFERS 
REM  GENERAL  BUFFERS 
REM  DEPFN  SBL  TBL 
REM  SCRATCH  BUFFER 


m 


REM  END  OP  STEP 
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5.6  ATH3SRTS 

The  purpose  of  the  'ATH3SRTS'  program  is  to  initialize  the  symbol 
table.  After  the  symbol  table  has  been  loaded  and  sorted  the 
program  which  controls  the  ordering  of  the  learning  module  will  be 
loaded. 

The  remainder  of  this  section  presents  the  'ATH3SRTS'  program 
listing  and  reference  maps. 


437 


H ha  s-c  3 


ATHSyR  l £3 


CNIRL 


f 


AUTHOR  System: 


A 000 
4004 


zm  Program  > AUTHOR/ 3 (ATH3SR1S) 
REM  **  Abstract 


Version  > 2.0  2200  I /VP  780321 


4008  REM  -**  ** 
4012  HEM  **  Overlay  ATH3SR1S  will  sort  into  memory  the  ** 
4016  REM  **  Symbol  Table.  ** 
4020  REM  **  ** 


4028 

DEFFN  ' 

200 

REM 

ENTRY 

4032 

GOSUB  ' 

201 

REM 

INITIALIZE 

4036 

COSUB  ' 

202 

REM 

LOAD  SBL  TBL 

4040 

GOSUB  ' 

203 

REM 

SORT  SBL  TBL 

4044 

GOSUB  ' 

205 

REM 

CMPT  INDX  PACS 

4043 

COSUB  ' 

002 

REM 

BEC  CREATE  PHASE 

40S2 

RETURN 

REM 

EXIT 

438 


r * 


AU  1 

HCJR 

4056 

REM  *•* 

4060 

REM  ** 

406-4 

REM  ** 

406-8 

REM  *•* 

4072 

REM  ** 

4076 

REM  ** 

4080 

REM  ** 

4084 

REM  ** 

4088 

REM  ** 

40-32 

REM  ** 

4096 

REM  ** 

4100 

REM  ** 

4104 

REM  ** 

4108 

REM  ** 

4112 

REM  ** 

4116 

REM  ** 

4120 

REM  ** 

4124 

REM  ** 

4128 

REM  **- 

4132 

UEFFN 

4136 

DIM 

4140 

DIM 

4144 

DIM 

4148 

DEFFN  1 

4152 

DEFFN  1 

4156 

INI) 

4160 

INIT 

4164 

IN1T 

4168 

INIT 

4172 

INIT 

4176 

INIT 

4180 

INIT 

4184 

INIT 

4188 

GOSUB 

4192 

PRINT 

4196 

RETURN 

Sy st cm z 


Ph3! 


3 — ATH3SRT4S  — SO 


Subroutine 
Abstract  > 
To  define 
Variables  > 


HHHHfr'JHHMMHHHHMHHMHHMHMHHHHHHHMHHHHHMHHHUHMHMHt  jJ  Q 1 

and  initialize  sort  tables. 


M*()  > internal  merge  buffer 

Cl*()  > symbol  set  memory  table 

C2*< ) > symbol  number  memory  table 

S*()  > sector  sort  buffer 

L*<)  > locator  buffer 

Vl$<)  > merge  vector  1 

V2*<)  > merge  vector  2 

W4()  > sort  work  buffer 

09*0  > general  i/o  buffer 

Q3$()  > symbol  table 

L<L)  > linear  to  subscript  conversion 


201 


L<L)~ 
M<  M)  = 


101 


M*<10,64)4,S*<64)4,W$<64)2 

L*<i60>2,vi*<ii>i,v2*<io>a 
ci*(io>i,ca«(iO)i,T*(i,e4)4 
1NT(VAL(STR(L*<L>,2, 1) )/4)+l 
25fc*M  + VAL<STR<M*<R8,R9),2,1>) 
<20>M*< ) 

(00)C1*< ) 

<oo>ca*<  > 

<FF)S*< ) 

(0O)L*< ) 

<01>V1*( ) 

<oo>v2*< ) 

<00>Q3*< ) 

(5, 10,3,0) 

" INITIALIZING  SYMBOL.  TABLE  ..." 


REM  ENTRY 
REM  DEFINE  BUFRS 
REM  DEFINE  BUFRS 
REM  DEFINE  BUFRS 
REM  FUNCTION  L(L) 
REM  FUNGI  ION  M(M) 
REM  INI  I MRC  BUFR 
REM  IN IT  SET  CNTR 
REM  IN1T  SBL  CNTR 
REM  INI!  SRT  BUFR 
REM  INI T LOCATOR 
REM  INI T VECTOR  1 
REM  IN1T  VECTOR  2 
REM  INI!  SBL  TBL 
REM  POSH  ION  CUSUR 
REM  PRNT  TITLE 
REM  EXIT 


AUTHOR 

4500  RtM  ** 
4504  RtM  ** 
4503  RtM  ** 
4515  REM  ** 
451E  HEM  ** 
4550  RtM  *•* 
4554  HEM  ** 
4558  HtM  ■** 
4535  RtM  ** 
4236  HtM  ** 
4540  RtM  ** 
4544  RtM  ** 


4548 

4555 

DEFEN  ' 505 

RtM 

ENTRY 

4556 

R8*  = HEX(03F5) 

REM 

SET  SRCH  ID 

4560 

COSUB  ' 101 

(8, 10,0,0) 

REM 

POSII ION  CUSUR 

4564 

PH  I NT 

“Load  Internal  Merge 

Buffer  " 

REM 

PHNT  TITLE 

4568 

COSUB  ' 101 

(8,40,0,0) 

REM 

POSITION  CUSUR 

45  /S 

PttINT 

"Sector  Sub-Sector" 

REM 

PHNT  COL  HEADS 

4576 

fOR 

R1  = 1 TO  10 

RtM 

BEG  INOX  LOOP 

4580 

GOSUB  ' 101 

(3,45,0,0) 

RtM 

POSITION  CUSUR 

4584 

PRINT 

R1 

REM 

PHNT  SCTR  ADRS 

4588 

COSUB  ' 101 

(9,55,0,0) 

RtM 

POSITION  CUSUR 

4535 

DATA  LOAD 

BA  T #5,  (R1,R9)T*( ) 

REM 

LOAD  INDX  SCI R 

4536. 

MAT  SEARCH 

T*(  >,  >=  R8*  TO  L*( ) 

STEP 

4 

REM 

SRCH  I/O  BUFR 

4300 

FOR 

R5  - 1 TO  65 

RtM 

BtC  SUB INDX  LOOP 

4304 

IP 

L*(R5)  <>  HEX (OOOO > 

THEN 

4354 

REM 

END  OP  BUFR 

4308 

IF 

R5  <>  1 

THEN 

4316 

RtM 

NOT  BtC  OP  ROW 

4315 

V1*(R1)  - HEX (FF ) 

REM 

SET  TO  EMPTY  ROW 

4316 

R5  - 65 

RtM 

SET  TO  END 

4350 

GOTO 

4335 

REM 

BRNCH  TO  NXT  LOOP 

4354 

BIN(STR(L*(R5)  ,1,1 ) ) 

* 1 

REM 

CONV  TO  SUBSCHPT 

4358 

BIN(STR(L*(R5),5,  1 ) 

= FNL(R5) 

REM 

CUN'/  TO  SU8SCRP  1 

4335 

CONVERT 

R5  TO  R4*,  (#it) 

RtM 

CONV  TO  DSPLY 

4336 

PRINT 

R4*: HEX (0808) 

REM 

PHNT  SB SCTR  INDX 

4340 

NEXT 

R5 

RtM 

CUNT  SUB INDX  L00° 

4344 

MAT  MOVE 

T*(),  L*(l)  TO  S*(l> 

RtM 

LOAD  SOHI  BUFR 

4348 

MAT  SORT 

S*<  ) TO  W*( ) 

, L*() 

RtM 

SORT  BUFR 

4365 

MAT  MOVE 

S*( ) , L*( 1 ) TO  M*(R1, 1 ) 

REM 

LOAD  MFRCt  BUFR 

4356 

INIT 

(FF)S*( ) 

REM 

IN1T  SORT  BUFR 

4360 

INI  T 

(00)L*( > 

REM 

INI!  LOCATOR  BUFR 

4364 

NEXT 

R 1 

REM 

CONT  INDX  LOUP 

4368 

RETURN 

RFM 

EXIT 

System:  f-'  t~>  1 


.3  — ATH3SR1  a - a 


Subroutine 
Abstract  > 

To  Load  -the  Merge  buffer  from  -the  data  base 
index.  Lach  row  is  sorted.  . 

Variables  > 

09 *(  > > i/o  buffer  ? 

M*< ) > merge  buffer  ! 

HI  > indx  setr  adrs  ! 

H9  > scrtch  ards  rgstr! 


5 0 5 


S*()  > sort  buffer 
L.*()  > locator  buffer 
R3  > subsetr  indx 
R8*  > search  id 


440 


P Pi  £3  SB  3 


ATH3G(  i'l  S: 


<3  O 3 


AU I HUW  System: 


43^2 

HEM  ** 

4376 

REM  ** 

4380 

RLM  ** 

Subroutine  *************^HHi'**-iHt*****-i^**-»«»******-i<-*******  & o 3 

4384 

RfcM  ** 

Abstract  > 

4388 

RLM  ** 

To 

Sort  the  merge  buffer  creating  the  sorted 

4 3-32 

RLM  ** 

symbol  table. 

4396 

RLM  ** 

Variables  > 

4400 

RLM  ** 

M*( ) > merge  buffer  ! Vl*< ) > work  vectr  1 

4404 

RLM  +* 

V2*<  > > work  vectr  2 ! L*()  > locator  buffer 

4408 

RLM  ** 

R1 

> symbol  tbl  indx  ! R2  > symbol  tbl  indx 

4412 

RLM  ** 

R3 

> bufr  out  indx  1 R5  > elements  merged 

4416 

RLM  ** 

R4 

> merge  end  flag  ! R6  > sbl  id  tbl  indx 

4420 

REM  ** 

4424 

REM  ++++*+**++*++*+’**-*-***,**-’**+*+-**'**-*-+-*+‘**-*-*’*-*+-*-* 

4428 

ULFFN  ' 

203 

REM 

LNTRY  t 

4432 

R 1 = 1 

REM 

SBl..  TBL  ROW  INDX 

4436 

R2  * 1 

REM 

SBL  TBL  COL  INDX 

4440 

R3  * 1 

REM 

BUFR  OUT  INDX 

4444 

R6  = 0 

RLM 

SBL  ID  INDX 

4448 

GOSUB  ' 

101 

<8, 10,2,0) 

REM 

PUSH  ION  CUSOR 

4452 

PRINT 

"Load  Symbol  Table  From  Merge  Buffer" 

REM 

PRNT  TITLE 

4456 

COSUB  ' 

101 

(9,20,0,0) 

REM 

POSITION  CUSUR 

4460 

PRINT 

“Symbol  >” 

REM 

PRNT  TITLE 

4464 

GClSUB  ' 

101 

(10,30,0,0) 

REM 

POSH  ION  CUSUR 

4468 

PRINT 

“Sot  Number  Item* 

RLM 

PRNT  COL  HEADS 

4472 

GOSUB  ' 

101 

(11,30,0,0) 

REM 

POSITION  CUSOR 

4476 

MAT  MERGE 

M*< ) TU  Vl*(),  V2*(>,  L*(> 

REM 

BEG  MERGE 

4480 

IF 

L*(l>  -•  HEX(OOOO)  THEN  4580 

REM 

ELEMENTS  MERCED 

4484 

R4  - VAL< Vl*( 11)) 

REM 

fETCH  MRC  FLAC 

4488 

IF 

R4  * 0 THEN  4496. 

REM 

LOCATOR  FUL.L 

4492 

VI* (R4 ) = HEX(FF) 

RLM 

MRC  ROW  EMPTY 

4496 

R5  = 160 

HEM 

ELEMENTS  TU  MOV 

4500 

MAT  MOVE 

M*( ) ( 3, 2) , L* ( 1 ) , R5  TO  Q3*(R1,R2) 

RLM 

LOAD  SBL  TBL 

4504 

R04  - HEX (FFFF) 

RLM 

SRCH  CHARACTER 

4508 

MAT  SEARCH 

Q3*( )<R3,900-R3+1>,~R0*TU  R2*()STEP  2:  REM  SRCH  FUR  END 

4512 

IF 

R2* ( 1 ) <>  HEX ( OOOO > THEN  4528 

REM 

UNEVEN  LOAD 

4516 

IF 

R3  > 900  THEN  4580 

RLM 

BUFFER  FULL 

4520 

RO*  = HEX (OOOO) 

RfcM 

SET  SRCH  STRING 

4524 

GOTU 

4508 

REM 

BRANCH  TO  SRCH 

4528 

R5  =•  INT ( (FNR  (VAL(R2*(  1 ) ) ) -1 ) /2) 

RLM 

CMPIJT  END  POS 

4532 

R3  - R3  + R5*2 

RLM 

I NCR  BUFuUT  INDX 

4536 

GOSUB  ' 

206 

RLM 

INCH  SBL  CNTRS 

4540 

IF 

R3  > 899  THEN  4580 

RLM 

SURI  COMPLETE 

4544 

R1  = INT(  (R3-D/12)  + 1 

RLM 

I NCR  ROW  INDX 

4548 

R2  =•  I NT < ( R 3 - (Rl-1  )*12)/2>  + 1 

RLM 

I NCR  COL  INDX 

4552 

00(1)  = VAI_ ( C 1 * ( 1 ) ) 

REM 

S T OR  tt  OF  SE  TS 

4556 

00(2)  « VAL ( C2* ( 1 ) ) 

REM 

STOP  tt  OP  SOLS 

4560 

GOSUB  ' 

101 

(13, 10,0,0) 

REM 

POSITION  CUSUR 

456.4 

PRINT 

“Symbols  Sets  > “;Q0(1);“  “; 

RLM 

PRNT  tt  OF  SETS 

4568 

PRINT 

* Symbols  > “;Q0(2) 

REM 

PHNT  tt  OF  SBLS 

4572 

GOSUB  ' 

101 

(11,30,0,0) 

REM 

POSITION  CUSUR 

4576 

GO  10 

4476 

RLM 

C.ONT  MERGE 

4580 

RETURN 

RLM 

EXIT 

441 


AUI 

HOR 

Sdiy  stem:  Phac- 

e>  3 — ATH3SR  I fed  — 22  O 

4584 

REM  ** 

4 588 

REM  ** 

4592 

HEM  ** 

Subroutine  **^-*****-***-^*****-********“*^******-**-* -*-**-* -a- £05 

4596 

REM  ** 

Abstract  > 

4600 

REM  ** 

To 

compute  the  number 

of  index  pages  needed 

4604 

REM  ** 

at 

the  end  of  each  fichc  page. 

4608 

REM  ** 

Variables  > 

4612 

HEM  ** 

M2 

> sbl  tbl  indx  ! 

MS  > temp  row  indx 

4616 

REM  ** 

M6 

> out  pag  indx  ! 

M7  > temp  line  indx 

4620 

HEM  ** 

07* ( ) > sbl  id  tbl  1 

Q3*< ) > sbl  table 

4624 

REM  ** 

SI*  > current  sbl  set! 

09* < ) > i/o  bufr 

4628 

REM  *■* 

R9*()  > scratch  bufr  ! 

RO*  > scrtch  byte  rgstr 

4632 

REM  ** 

QQ 

) > speal  regstrs  ! 

4636 

REM  ** 

4640 

REM  *-*-^***************-^************^*****-*-*-**-** 

4644 

DEFFN  ' 

205 

REM 

ENTRY 

4648 

DIM 

Sl*l 

rp:m 

DEFINE  BUFRS 

4652 

MAT  REDIM 

Q9*<4)64 

REM 

SET  1/0  BUFR 

4656 

M2  = 1 

REM 

SET  SBL  ID  INDX 

4660 

M5  - 2 

REM 

SET  IMP  LIN  INDX 

4664 

M6  = 10 

REM 

SET  PAG  ROW  INDX 

4668 

M7  = 1 

REM 

SET  BUFR  INDX 

4672 

GOSUB  ' 

101 

(5, 10,7,0) 

REM 

POSITION  CUSUR 

4676 

PRINT 

“COMPUTE  NUMBER  OP 

INDEX  PACES.  . . " 

REM 

PRNT  HEADING 

4680 

GOSUB  ' 

101 

(7, 15,0,0) 

REM 

POSITION  CUSUR 

4684 

PRINT 

“Number  of  Index  Pages  > “ 

REM 

PRNT  TITLE 

4688 

PRINT 

“01"; HEX <0808) 

REM 

PRNT  INI T # 

4692 

SI*  - 07*<M2, 1 ) 

REM 

SET  BEG  SET  # 

4696 

IP 

07* (M2, 1 ) <>  SI* 

THEN  4736 

REM 

NEW  SBL  SET 

4700 

DATA  LOAD 

BA  T #2,  (Q3*(M2, 3) 

, RO* ) 09*  < ) 

REM 

FETCH  SYMBOL 

4704 

MAT  COPY 

09*  < ) <1,1 5>  TO  R9* < ) < 1 , 64 > 

REM 

STOP  SYMBOL 

4708 

IP 

M7+LEN<R9*( 1 ) ) +3  < 

41  THEN  4720 

REM 

CUNT  SAME  LINE 

4712 

M5  = MS  + 1 

REM 

I NCR  LIN  COUNT 

4716 

M7  - 1 

REM 

RESET  LIN  INDX 

4720 

M7  = M7  + LEN  < R9* ( 1 ) ) + 3 

REM 

INCH  LIN  INDX 

4724 

M2  = M2  + 1 

REM 

INCH  SBL  INDX 

4728 

IP 

M2  > 00(2) 

THEN  4736 

REM 

END  OF  SBL  '1 BL 

4732 

GOTU 

4696. 

REM 

NEXT  SYMBOL 

4736 

IP 

M5  <=  16-M6 

THEN  4756 

REM 

NU1  E-O-P 

4740 

00(8)  * 00(8)  + 1 

REM 

INCH  TOTL  PAGS 

4744 

CONVERT 

Q0<8) +1  TO  RO*,  <##) 

REM 

CONV  TU  DSPLY 

4748 

PRINT 

RO*; HEX <0808) 

REM 

PRNT  VALUE 

4752 

M6  - 3 

REM 

RESET  LIN  INDX 

4756 

M6  = M6  + M5 

REM 

INCH  LIN  INDX 

4760 

MS  = 2 

REM 

RESET  TMP  INDX 

4764 

M7  - 1 

REM 

RESET  LIN  INDX 

4768 

IF 

M2  > QO<2) 

THEN  4776 

REM 

SBL  1BL  EMPTY 

4772 

GOlO 

4692 

REM 

NEXl  SBL  SET 

4776 

IP 

16-M6  >=  7 

THEN  4784 

REM 

INDX  COMPLETE 

4780 

Q0<8)  = Q0<8)  ♦ 1 

REM 

I NCR  TOT  PAGES 

4784 

Q0<8)  - 00(8)  ♦ 1 

REM 

ADJUST  PAC  COUNT 

4788 

RETURN 

REM 

EXIT 

442 
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AUlHOR  System:  Phase 


ATH 3SKTS 


3 O T 


4984 

4988 

499d 

499fc. 

bOOO 

b004 

9008 

boia 

b016 

boao 

5034 

boas 

5033 

5036 

9040 

5044 

5048 

bosa 

5056 

5060 

5064 


HEM  ** 
HEM  ** 
REM  ** 
RfcM  ** 
HtM  ** 
REM  ** 
HtM  ** 
HtM  ** 
REM  ** 
HtM  ** 
HtM  ** 
REM 
DEFFN 


GOSUB 

IF 

COSUB 


RETURN 


Subroutine  a 0 7 

Abstract  > 

To  set  a bit  on  corsponding  to  the  item  number. 

If  bit  is  on  return  a zero  bit  patern. 

Variables  > 


Bit  > temp  storage  byte 
Blt()  > memory  table 
B4  > bit  position 


B3 

BO 


item  number 
scratch  indx 


307  (Blt,Blt(l),Ba) 

BO  = I NT  < (Ba-l>/8> 
B4  = Ba  - <B0-a>*8 
aos  (Blt(B0),B4) 

Bit  <>  HEX < 00) 

309  < Bit (BO) , B4) 

Bit (BO)  = Bit 
Bit  = HEX (00) 


+ a 


THEN  5064 


REM  ENTRY 

REM  CMPUT  ELEMNT 

REM  CMPUT  BIT  POS 

REM  MASK  BYTE 

REM  BIT  WAS  ON 

REM  TURN  BIT  ON 

REM  STOR  NEW  BIT  PIRN 

REM  RESET  FLAG 

REM  EXIT 


Phase  3 


ATHHSR  f S 


S.  O S3 


S068  REM  ** 

5072  REM  ** 

bOTf.  REM  **  Subroutine  *ihhhhi*hhmI'*hhhhhhhhhhhhhhhhmhhhhhhhhhhh*ihhhhI"*  ? 0 


b080 

HEM 

Abstract  > 

5084 

REM 

*•* 

To 

mask  a given  bit 

position. 

b088 

REM 

Variables  > 

5092 

REM 

Bit  > storage 

byte 

! B4  > bit  po 

sit  ion 

boss 

REM 

5100 

REM 

**********HHf***************************-»"* *“**■*• 

5104 

DEFFN  ' 

208 

(Blt,B4> 

: 

REM 

ENTRY 

bios 

REM 

bile! 

REM 

! BIT  80  ! 

BIT  40 

! BIT  20 

! BIT 

10  ! 

bl  16 

REM 

1 1 - 

— 

. 1 ...  

. 1 

I 

biao 

ON  BA  COTU 

5136.  , 

5140 

, 5144 

, 5148  , 

5152  , 

5156 

, 5160 

, 5164  : 

REM  BRANCH 

5124 

REM 

>* 

1 1 

— 

. 1 

■ ! 

I 

bl  28 

REM 

! BIT  04  * 

BIT  04; 

! BIT  02 

! BIT 

01  ! 

bl  32 

REM 

•** 

bl3C 

AND 

(Bit, 80) 

GOTO 

5168 

REM 

MASK 

BIT 

8 

5140 

ANO 

(Bit, 40 ) 

GO  10 

5168 

REM 

MASK 

BIT 

7 

5144 

AND 

(Bit, 20) 

GO  ID 

5168 

REM 

MASK 

BIT 

6 

5148 

AND 

(Bit, 10) 

GOTO 

5168 

REM 

MASK 

BIT 

5 

bl  52 

AND 

(Bit, 08) 

GOTO 

5168 

REM 

MASK 

BIT 

4 

bl56 

AND 

(Bit, 04) 

GOTO 

5168 

REM 

MASK 

BIT 

3 

bl60 

AND 

(Bit, 02) 

G010 

5168 

REM 

MASK 

Bl  1 

2 

5164 

AND 

(Bit, 01 ) 

GOTO 

5168 

REM 

MASK 

BIT 

1 

b!68 

RETURN 

REM 

EXIT 
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445 


a o 


AUTHOR  System:  FJhai 


ATH3SRTti 


5172 

5176 

5180 

5184 

bl88 

5195 

5196 

baoo 

b 504 
5508 

5512 
bale. 
5520 
b 554 


HEM  ** 

REM  ** 

REM  ** 

REM 
REM  •** 

REM  ** 

REM  ** 

REM  ** 

REM 

UEFEN  ' 209  (Blt,B4> 

REM  ** 

REM  **  ! BIT  80  ! BIT  40  ! BIT  50  ! BIT  10  ! 

REM  ■**  ! ! 1 ! ! 

ON  B4  GUTU 


Subroutine 
Abstract  > 

To  turn  on 
Variables  > 

Bit  > storage  byte 


a given  bit  position. 

! B4  > bit  position 


REM  ENTRY 


5840 

sase 


8544 

5560 


5548 

5864 


5555 

5568 


REM  BRANGH 


baas 

REM 

1 l 

- ! 

......  1 

5235 

REM 

*•# 

1 BIT  04 

! BIT  04 

! BIT  02 

! BIT 

01  1 

5596 

REM 

+-* 

5540 

OR 

(Bit, 80) 

CO'IO 

5575 

REM 

MASK 

BIT 

8 

5544 

OR 

(Bit, 40) 

GOTO 

5575 

REM 

MASK 

BIT 

7 

5548 

OH 

(Bit, 50) 

GOTO 

5275 

REM 

MASK 

B I "1 

6 

5555 

OR 

(Bit, 10) 

GOTO 

5575 

REM 

MASK 

BIT 

5 

5556 

OR 

(Bit, 08) 

GOTO 

5272 

REM 

MASK 

BIT 

4 

5560 

OR 

(Bit, 04) 

GOTO 

5578 

HEM 

MASK 

BIT 

3 

5S64 

OR 

(Bit, 05) 

COTO 

5272 

REM 

MASK 

BIT 

5 

5568 

OH 

(Bit, 01) 

GOTO 

5575 

REM 

MASK 

BTl 

1 

5575 

PETURN 

REM 

EXIT 

446 


i 


tt  r-i/si 


AUTHLIN 


4308 

4304 

4350 

457b 

4488 

4554 

4515 

4480  4516  4540 

4773 

4735 

4708 

4696  4788 
4736. 

4768 

4776 

4958 

4955 

4860 

5048 

5150 

5150 

5150 

5150 

5150 

5150 

5150 

5150 

5136.  5140  5144  5148  5155  5156  5160  5164 

5554 

5584 

5554 

5554 

5554 

5554 

5554 

5554 

5540  6544  5848  5858  5856  5860  5864  5568 


4 316 
4354 
4335 
4476 
4 496 
4508 
4558 
4580 

4695 

4696 
4780 
4736 
4756 
4776 
4784 
4944 
4976 
4980 
5064 
5136. 
5140 
5144 
5148 
5158 
5156. 
5160 
5164 

516.8 
5540 
5544 
5848 
5558 
5556 
556.0 
556.4 

556.8 
5575 


AUTHOR 

e-  ~t  om  s 

Pha& 

p 3 - 

ATH3SK « 

a 

— S9 

M/M 

BO 

- 

S03S 

5040 

5044 

5052 

5056 

' Bl* 

- 

4934 

4928 

4948 

4952 

5032 

5048 

5056 

506.0 

5104 

5136 

5140 

5144 

5148 

5152 

si  se 

5160 

5164 

5208 

5240 

5244 

5248 

5258 

5256 

5860 

5264 

5268 

Bl*< 

- 

4920 

4924 

4932 

4944 

4948 

4956 

5032 

504  4 

5052 

5056 

B2 

- 

5032 

5036 

5040 

B4 

- 

5040 

5044 

5052 

5104 

5120 

5208 

5224 

Cl*( 

- 

41  Vi 

4160 

4552 

4-920 

4932 

4936 

C2*< 

- 

4144 

4164 

4556 

4940 

4944 

4956 

4960 

L 

- 

4148 

L*< 

- 

4140 

4148 

4172 

4296 

4304 

4 324 

4328 

4344 

4348 

4352 

4360 

4476 

4480 

4500 

4858 

4872 

M 

- 

4152 

M*< 

- 

4135 

4152 

4156 

4352 

4476 

4500 

4876 

M2 

- 

4555 

4692 

46-96 

4700 

4724 

4728 

4768 

M5 

- 

4550 

4712 

4736 

4756 

4760 

M6 

- 

4554 

4736 

4752 

4756 

4776 

M7 

- 

4558 

4708 

4716 

4720 

4764 

GO  < 

- 

4552 

4556 

4564 

4568 

4728 

4740 

4744 

4768 

4780 

4784 

Q3*< 

- 

4184 

4500 

4508 

4700 

Q7*< 

- 

4592 

4696 

4-968 

4972 

0-9*  ( 

- 

4552 

4700 

4704 

R0 

- 

4888 

4-904 

R0* 

- 

4504 

4508 

4520 

4700 

4744 

4748 

R1 

- 

4275 

4284 

4292 

4312 

4352 

436.4 

4432 

4500 

4544 

4548 

R2 

- 

4300 

4304 

4308 

4316 

4324 

4328 

4332 

4 340 

4436 

4500 

4548 

R2* 

- 

48-92 

48-96 

4900 

4-904 

4908 

4912 

4916 

R2*< 

- 

4508 

4512 

4528 

R3 

- 

4440 

4508 

4516 

4532 

4540 

4544 

4548 

R4 

- 

4484 

4488 

44-92 

4864 

4868 

4872 

4976 

R4* 

- 

4332 

4336 

R4*< 

- 

4940 

R5 

- 

4496 

4500 

4528 

532 

4860 

4864 

Re 

- 

4444 

4964 

496-S 

4972 

R7 

- 

4876 

4890 

4884 

4888 

R8 

- 

4152 

4868 

48  76 

4880 

4884 

4808 

4896 

4924 

4968 

R8* 

- 

4256 

42-95. 

R9 

- 

4152 

4292 

4872 

4876 

4884 

4888 

4 "900 

4948 

4972 

R9*< 

- 

4704 

4708 

4720 

S*< 

- 

4135. 

4168 

4344 

4348 

4352 

4 356 

SI* 

- 

4648 

4692 

4696. 

T*< 

- 

4144 

4292 

4296. 

A 344 

Vl*< 

- 

4140 

4176 

4312 

4476 

4484 

4492 

va*< 

- 

4140 

4180 

4476 

w*< 

- 

4136. 

4348 

448 


AUTHOR 


????  DtFFN ' 2 

- 4048 

????  DtFFN'  101 

- A 188  4260  4268  4280  4288  4448  4456  4464  4472  4560  4572  4672  '*680 
4028  DEFFN'  200 

4132  DtFFN'  201 

- 4032 

4252  DtFFN'  202 

- 4036 

4428  DtFFN'  203 

- 4040 

4644  DtFFN'  205 

- 4044 

4856  Dtr.FFN ' 206 

- 4536 

5032  DtFFN'  207 

- 4924  4948 
5104  DtFFN'  208 

- 5044 

5208  DtFFN'  209 

- 5052 
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ATH3AUT0 

The  purpose  of  the  'ATH3AUT0'  program  is  to  provide  the  overlay 
control  logic  for  the  major  construction  of  the  learning  module. 
This  program  also  contains  utility  routines  for  generating  a random 
subscript  and  for  loading  a format  from  disk  into  the  page  buffer. 

The  remainder  of  this  section  presents  the  'ATH3AUT0'  program 
listing  and  reference  maps. 


f 


AUTHOR  S >- 

4000  7.m  Program 

/. /VW.  or  fvi  A L 

stem:  Phar,e  3 — ATH3/SUTO  — CNTFRL 

> AUTHOR/ 1 1 I (ATH3AUTU)  Version  >2.0  2200  1 /VP  780321 

*;wvri 

4008 

4012 

4016 

4020 

4024 

nU'l  ~ " ML7  Ml  Ul  l ' - " ' " ' " 

REM  **  ** 

REM  To  control  the  construction  of  the  Symbol  ** 

REM  *+  Learning  Package.  ** 

REM  **  ** 

REM  ^*»*+**********^***-i»-»-****-i*-**-*-^-»'*-«1-*-»'»'i*'*-**'*-*'i<'*-*-tt-<t*-»-'»**-»-tt<c-«-»'*-»**-*-'>--»--***'* 

4028 

DEEFN 

/ 

017 

REM 

ENTRY 

017 

4032 

COSUB 

/ 

102 

(“Title  Creation" , “ATH300.0" , "6000" ) 

REM 

LOAD 

4036 

DEFFN 

/ 

013 

REM 

ENTRY 

018 

4040 

GOSUB 

/ 

102 

( " Introduction  Creation" , "ATH301.0" , “6000" ) 

REM 

LOAD 

4044 

L)EFFN 

/ 

019 

REM 

ENTRY 

019 

4048 

GOSUB 

/ 

102 

("Importance  Creation" , "ATH302.0" , "6000" ) 

REM 

LOAD 

4052 

DEFFN 

/ 

020 

REM 

ENTRY 

020 

4056 

GOSUB 

/ 

102 

( "Example  Creation" , "ATH303.0" , "6000" ) 

REM 

LOAD 

4060 

UEFFN 

/ 

021 

REM 

ENTRY 

021 

4064 

GOSUB 

/ 

102 

( "Pre-Test  Creation" , "ATH304.0" , "6000" ) 

REM 

LOAD 

4068 

DEFFN 

t 

022 

REM 

ENTRY 

022 

4072 

GUSUB 

' 

102 

("Optional  Test  Creation" , "ATH304. 1 ", "6000“ ) 

REM 

LOAD 

4076 

DEFFN 

/ 

023 

REM 

ENTRY 

023 

4080 

GOSUB 

/ 

102 

(“Lesson  chart  Creation" , "ATH305.0" , "6000" ) 

REM 

LOAD 

4084 

DEFFN 

/ 

024 

REM 

ENTRY 

024 

4088 

GOSUB 

/ 

102 

("Symbol  Set  Creation" , "ATH306.  “,"6000") 

REM 

LOAD 

4092 

DEFFN 

/ 

006. 

REM 

ENTRY 

006. 

4096 

GOSUB 

/ 

102 

("SSet: Symbol  Li st " , " ATH306. 0" , "7000“ ) 

REM 

LOAD 

4100 

DEFFN 

/ 

007 

REM 

ENTRY 

007 

4104 

GOSUB 

/ 

102 

( "SSetrNote  Diff.  <1 >" , " ATH306. 1 " , " 7000” ) 

REM 

LOAD 

4108 

DEFFN 

/ 

008 

REM 

ENTRY 

008 

4112 

GOSUB 

' 

102 

( “SSet: Note  Diff.  <2>” , " ATH306. 2“ , " 7000" ) 

REM 

LOAD 

4116 

UEFFN 

/ 

009 

REM 

ENTRY 

009 

4120 

GOSUB 

/ 

102 

( "SSet: Learn  Symbol  <1>" , "ATH306. 3" , "7000" > 

REM 

LOAD 

4124 

DEFFN 

/ 

010 

REM 

ENTRY 

010 

4128 

GOSUB 

/ 

102 

(“SSet '.Learn  Symbol  <2>"  , "ATH306.  4"  , "7000"  ) 

REM 

LOAD 

4132 

DEFFN 

/ 

on 

REM 

ENTRY 

on 

4136 

GOSUB 

/ 

102 

( "S5et:Practi ce  Symbls  <1>" , "ATH306. 5“ , " 7000" ) 

REM 

LOAD 

4140 

DEFFN 

/ 

012 

REM 

ENTRY 

O 

F-* 

ru 

4144 

COSUB 

/ 

102 

( "SSet:Practi ce  Symbls  <2>“ , “ATH306.6" , "7000" ) 

REM 

LOAD 

4148 

DEFFN 

/ 

013 

REM 

ENTRY 

013 

4152 

GOSUB 

/ 

102 

( “SSetrSymbol  Test  <1>" , “ATH306.7" , "7000" ) 

REM 

LOAD 

4 1 56 

DEFFN 

' 

014 

REM 

ENTRY 

014 

4160 

GOSUB 

/ 

102 

( "SSot:Symbol  'lest  <2>"  , “ATH306. 8“ , "7000"  > 

REM 

LOAD 

4164 

DEFFN 

/ 

015 

REM 

ENTRY 

015 

4 1 68 

GOSUB 

/ 

102 

( "SSet: Symbol  Test  <3>" , " ATH306. 9" , "7000" ) 

REM 

LOAD 

4172 

DEFFN 

/ 

025 

REM 

ENTRY 

025 

4176 

GOSUB 

/ 

102 

("Practice  All  Symbols  <1>" , "ATH307.0" , "6000" ) 

REM 

LOAD 

4180 

DEFFN 

/ 

026 

REM 

ENTRY 

026. 

4184 

GOSUB 

/ 

102 

("Practice  All  Symbols  <2>" , * ATH307. 1 " , "6000" ) 

REM 

LOAD 

4188 

UEFFN 

/ 

027 

REM 

ENTRY 

027 

4192 

COSUB 

' 

102 

("Practice  All  Symbols  <3>" , " ATH307. 2" , "6000" ) 

REM 

LOAD 

4196 

DEFFN 

t 

028 

REM 

ENTRY 

028 

4200 

GOSUB 

/ 

102 

("Criterion  Test  <1>" , "ATH308.0" , "6000" ) 

REM 

LOAD 

4204 

DEFFN 

' 

029 

REM 

ENTRY 

029 

4208 

GOSUB 

/ 

102 

(“Criterion  Test  <2>“ , "ATH308. 1 " , "6000" ) 

REM 

LOAD 

4212 

DEFFN 

/ 

030 

REM 

ENTRY 

030 

4216 

GOSUB 

/ 

102 

("Suggestions  for  Training" , "ATH309. 0" , "6000" ) 

REM 

LOAD 

4220 

DEFFN 

/ 

031 

REM 

ENTRY 

031 

4224 

GOSUB 

/ 

102 

("Main  Program  <RESTAR 1 >", "AUTHOR /3" , "01 OO" ) 

REM 

LOAD 

451 


AUTHOR 


-fc  om  : 


' hs  S3-  D 


— ATH3AUTQ 


REM  ** 
REM  ** 
RtM  ** 
REM  ** 
REM  ** 
RtM  ** 
REM  ** 
REM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-»■+- 
UEFFN  ' 
IF 

GOSUB  ' 
GOTO 


IF 

GOSUB  ' 
IF 

RETURN 


Sub  routine  ■fr-****-^****-^-^-*-*-*-**********-*-*-*-**********-*-#-**  £00 

Abstract  > 

To  generate  a random  linear  subscript. 

Features  > 

- Subscripts  previously  generated  will 
be  ingored. 

- When  7SX  of  the  subscripts  have  been 
generated  the  remaining  subscripts  will 
be  returned. 


Variables  > 

B1  > total  # of  symbls 
BO  > scratch  index 
Bl*>  temp  byte  storage 
Bl<< ) > memory  table 


random  number 
random  subscript 
siz  of  mem  table 


<B1,B1*(1),B8,B9)  : RtM  ENTRY 

VAL < 0 1 * ( 1 ) ) < I NT ( . 75*B1  ) -1THEN  4320:  REM  CENRT  RND  SBSCR'I 
<B1*(1),B8>  I REM  LOCATE  NX!  SBSCRT 

4340  : REM  BRANCH  TO  EXIT 

B3  - INT< 100*RND< 1 > ) + 1 : RtM  CENRT  RND  NUMBR 

BS  = B2  - I NT ( < B2- 1 ) /B 1 ) ♦B 1 : REM  SCALE  RND  NUMBR 

B8  - O THEN  4 320  : RtM  INVALD  RESULT 

<B1*,B1»(1),B8)  : REM  UPDATE  MEM  TBL 

Bl*  <>  HEX (00)  THEN  4 320  : RtM  GENR1  NEW  RND  It 

BIN(B1*<1>)  = VAL ( B 1 4 ( 1 ) ) + 1 : RtM  INCH  SBL  CNT 

: REM  EXIT 


452 


4 348  REM  ** 

4352  REM  ** 

435€.  REM  **  Subroutine  *hh»*******-»*-»***********'***-»***-i('**-b-*********-*‘  2 0 1 

43G0  REM  **  Abstract  > 

4364  REM  **  To  locate  a subscript  not  previously  generated. 

4368  REM  **  Variables  > 

43/3  REM  **  Blt<  > > memory  table  ! BO  > scratch  indx 

4376  REM  **  R5t( ) > search  ids  ! B4  > bit  position 

4380  REM  **  Bit  > temp  byte  storage  ! B'3  > mem  tbl  size 

4384  REM  ** 

43-32  UEFFN  ' 201  <Blt< 1 ) , B8>  : REM  ENTRY 

4396  MAT  SEARCH  Bit  ( ) <2,  BO- 1 >,  OR5t<2)  TO  R2tO  : REM  SRCH  MEM  TBL 

4400  BO  = FNR < VAI_ ( R2t  ( 1 ) ) ) + 1 : REM  CMPUT  TBL  INDX 

4404  B4  “ 1 : REM  SET  BIT  INDX 

4408  GOLUB  ' 203  <Blt(BO),B4>  : REM  MASK  BYTE 

4412  IF  Bit  ” HEX<0O)  THEN  4424  : REM  SUBSCRT  FOUND 

4416  B4  = B4  + 1 : REM  INCR  BIT  INDX 

4420  GO  ID  4408  : REM  MASK  NXT  BIT 

4424  GDSUB  ' 204  (Blt<B0),B4)  : REM  SET  BIT  TO  ONE 

4428  Blt(BO)  =■  Bit  : REM  SlOK  NEW  BIT  PTRN 

4432  B8  = (BO- 2) *8  + B4  : REM  COMP  I SUBSCRP I 

443fc.  RETURN  : REM  EXIT 


P (-i-sa  «s-  e 


3 


ATH aAUTO 


a o 


AUTHOR  Sy  s-tpm: 


4440 

4444 

4448 

4455 

4456 
4460 
4464 
4468 

4475 

4476 
4480 
4484 
4488 

4495 

4496 
4500 
4504 
4508 

4515 

4516 
4550 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


** 

■** 

*•» 


Subroutine  2 0 5 

Abstract  > 

To  set  a bit  on  corsponding  to  the  item  number. 

If  bit  is  off  return  a zero  bit  patern. 

Variables  > 


81*  > temp  storage  byte 
Bl*<)  > memory  table 
84  > bit  position 


B5  > item  number 
BO  > scratch  indx 


DEFFN  ' 

505 

<B1*,B1*<1),BS) 

BO  = I NT  < (B5--1 ) /8) 

B4  = B5  - <B0-B>*8 

GOSUB  ' 

503 

<B1*(B0),B4> 

IE 

Bl*  <>  HEXIOO) 

GOSUB  ' 

504 

<B1*<B0),B4) 
B1*<B0)  = Bl* 

Bl*  = HEX(OO) 

RETURN 

: REM  ENTRY 
: REM  CMPUT  ELEMNT 
: REM  CMPUT  BIT  POS 
: REM  MASK  BYTE 
THEN  4580  : REM  81 l WAS  ON 
: REM  TURN  BIT  ON 
: REM  STOR  NEW  BIT  PTRN 
: REM  RESET  FLAC 
: REM  EXIT 


454 


AU I HQR  System:  Pha&e 


— ATH3AU1  Cl  — 


o 


4524 

4528 

4532 

4535 

4540 

4544 

4548 

4552 

4556 

4560 

4564 

4568 

4572 

4576 


REM  ** 

RfcM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM 
DEFFN 
REM  ** 

REM  ** 

REM  ** 

ON  84  COlO 


Subroutine 
Abstract  > 

To  mask  a 
Variables  > 

Bl*  > storage  byte 


2 0 3 


given  bit  position. 

! 84  > bit  position 


203  (B1*,B4> 


BIT  80  ! BIT  40 


! BIT  20  ! BIT  10 

i i 


4532 

4608 


4536. 

4612 


4600 

4616 


4604 

4620 


REM  ENTRY 


REM  BRANCH 


4580 

REM  ** 

1 « 

4584 

REM  ** 

! BIT  08  ! BIT  04 

Bli  02  ! BIT  01 

4588 

REM  ** 

4532 

AM? 

(Bit, 80) 

: GOTO 

4624 

REM 

MAbK 

BIT 

8 

4536 

AND 

(Bl*, 40) 

: GOTO 

4624 

REM 

MASK 

BIT 

7 

4600 

AND 

(Bl*, 20) 

: GOlO 

4624 

REM 

MASK 

BIT 

6 

4604 

AND 

(Bl«, 10) 

: GOlO 

4624 

REM 

MASK 

BIT 

5 

4608 

AND 

(Bl*,08) 

: GOTO 

4€24 

REM 

MASK 

BIT 

4 

4612 

AND 

(Bl*, 04) 

: GOlO 

4624 

REM 

MASK 

BIT 

3 

4616 

AND 

<B1*,02> 

: GOTO 

4624 

REM 

MASK 

BIT 

2 

4620 

AND 

(Bl*,01 ) 

: GOTO 

4624 

REM 

MASK 

BIT 

1 

4624 

RETURN 

REM 

EX  1 1 

AUTHOR 


iy  st  e-i 


F"  »".£»  ! 


— ATH3AUTCJ  — 


4628 

4632 

4636 

4640 

4644 

4648 

4652 

4656 

4660 

4664 

4668 

4672 

46/6 

4680 


REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM 
REM  ** 

REM 
DEFFN 
REM  ** 

REM  ** 

REM  ** 

ON  B4  GOTU 


Subroutine 
Abstract  > 

To  turn  on  a given  b 
Variables  > 

BIS  > storage  byte 


it  position. 

• B4  > bit  position 


204  (BlS,b4) 


REM  ENTRY 


BIT  80  ! BIT  40 


! BIT  20  ! BII  10 

i i 


4684  REM  ** 


4696. 

4712 


4700 

4716 


470* 

4720 


, -r  i «-v»  , 

. I I . 


4708 

4724 


REM  BRANCH 


4688 

REM  ** 

! BIT  08  1 

1 BIT  04 

! BIT  02 

! BIT  01 

1 

4692 

REM  ** 

4696. 

OH 

(Bl*,80) 

GOTO 

4728 

REM 

MASK 

BIT 

8 

4700 

OR 

(BIS, 40) 

■ 

GOTO 

4728 

REM 

MASK 

BIT 

7 

4704 

OH 

<B1*,20) 

■ 

• 

GOTO 

4728 

REM 

MASK 

BIT 

6 

4708 

OR 

(BIS, 10) 

GOTO 

4728 

REM 

MASK 

BIT 

5 

4712 

OR 

(BIS, 08) 

GOTO 

4728 

HEM 

MASK 

BIT 

4 

4716 

OH 

(BIS, 04) 

GOTO 

4728 

REM 

MASK 

BIT 

3 

4720 

OR 

(BIS, 02) 

GOTO 

4728 

REM 

MASK 

BIT 

2 

4724 

OH 

(BIS, 01) 

GOTO 

4728 

HEM 

MASK 

BIT 

1 

4728 

RETURN 

REM 

EXIT 

2 0 4 


o 


m 


AUTHOR 


-tem:  Phasi? 


— ATU3ALJIO  - a O & 


47  32 
4736 
4740 
4744 
4748 
4752 
4756 
4760 
4764 
4768 
4778 
4776 
4780 
4784 
4788 
4792 
4796 
4800 
4804 
4808 
4812 
4816 
4820 
4824 
4828 
4832 
4836 
4840 
4844 


REM  ** 

REM  ** 

HEM  Subroutine  **********  ***********************************  2 0 5 

REM  **  Abstract  > 

REM  **  To  Initialize  output  page  buffer  from  the 
REM  **  Data  Subprogram. 

REM  **  Variables  > 

REM  **  CO  > initial  buf  indx  ! Q2*()  > page  buffer 
REM  **  QOO  > prog  registr  stk! 

REM  ** 

REM 

DEFFN  ' 205  (CO) 

REM 

REM  ! CLR  BUFR  ! LOAD  BEG  ! SKP  FMT 

REM  ! LOAD  BEG  ! PRINT  TX I ! NULL 

REM  ! PRINT  TXT  ! NULL  ! NULL 

REM  ! ! ! 

ON  CO  GOTO  4824  , 4828  , 4840 

REM  ! ! ! 

REM 

HEM  **  ^ 

REM  ** 

IN1T  (20)  Q2*() 


REM  ENTRY 


CLR  BUFR 

1 

LOAD  BEG  ! 

SKP  FMT 

LOAD  BEG 

1 

PRINT  TXI  ! 

NULL 

PRINT  TXT 

1 

NULL  ! 

NULL 

4824 

9 

4858  , 

4840 

*GIO 
GOSUB  ' 
RETURN 


(20)  Q2*() 

QOO)  = 1 

00(10)  = 1024 

ERASE  CRT/005(4003,R8*0)  ) 

(CO) 


REM  BRANCH 


PROCESS  FUNCTIONS 

REM  INITIAL  BUFR 
REM  SET  TO  BUFR  BEG 
REM  SET  BUFR  SIZE 
REM  CLEAR  CRT  SCRN 
REM  LOAD  BUFR 
REM  EXIT 


AUTHOR 


ATH 3AUTQ 


REM  ** 

REM  ** 

REM  **  Sab 
REM  **  Abs 
REM  **  T 
REM  **  S 
REM  **  Var 
REM  **  C 
REM  **  C 
REM  ■**  C 
REM  ** 

R0V)  »»»»»»« 

DEFFN  ' 206 
IF 

READ 

IF 

GOTO 
READ 
REM  ** 

REM  ** 

REM  ** 

ON  C4  GOTO 

REM  ** 

REM  ** 

REM  ** 

GOTO 

REM 

REM  iHHHHHHI 

REM  ** 
♦TRAN 
GOTO 
REM  ** 

REM  »♦♦♦♦♦•» 
REM  ** 
♦TRAN 
GOTO 
REM  ** 

REM  ******* 
REM  ** 

MAT  COPY 
MAT  SEARCH 

MAT  COPY 
MAT  COPY 

GOTO 
REM  ** 

REM  •fHHHHHHI 
REM  ** 

INIT 

GOTO 


Subroutine  ****hhhhhhhhhhhI'#*****##***«hhhhhhhhhhhhhhhhI'  2 0 6 
Abstract  > 

To  Read  the  Data  Subprogram  and  load  into 
Storage  buffer. 

Variables  > 

CO  > initial  bufr  indx  ! Cl  > row  number 
C2  > col  number  ! C3  > length  of  text 

C4  > control  index  ! S4^<  > > input  bufr 


<CO> 

CO  <>  3 

C1,C2,C3,C4,S4^<1> 

C4  <>  9 

4932 

C1,C2,C3,C4,S4^(1 ) 


THEN  4916 


THEN  4904 


UNDRSCR 


REM  ENTRY 

REM  LOAD  BUFR 

REM  READ  DATA  PROGRAM 

REM  NOT  EOF 

REM  BRACNH  TO  EOF 

REM  READ  DATA  PROGRAM 


REM  BRANCH 


NULL  ! EOF 


<S4^<>  <1,C3>,  R4^<)  <65, 64> ) R 
5104 


<S4^<)  <1,C3>,  R4^()  <1,64>) 
5104 


CO  = LEN(S4^<1)> 

-S4^()  <1,C0>  TO  -S4*(K1,64> 
S4^<)  <1,64>,  <>  R5^<1)  TO  R2^< > 
C5  = FNR<VAL(R2^< 1) ) ) 

R5^()  <2, 1>  TO  S4^< ) <1,1> 

S4^<)  <C5,C0>  TO  S4^()  <2,63> 

C3  = C3  ♦ 1 
5104 


<SF>  S4^<) 
5104 


! REM  INSERT  TEXT 

► CONV  TO  LOWER  CASE 

: REM  CONVERSION 
: REM  INSERT  TEXT 

* CONV  TO  UPPER  CASE 

: REM  CONVERSION 
! REM  INSERT  TEXT 

* ASSIGN  FONT  TYPE 

: REM  CMPUT  LENGTH 
: REM 
I REM 
: REM 
: REM 
: REM 
: REM 

: REM  INSERT  TEXT 

» CREATE  A LINE 

: REM  FILL  BUFR 
: REM  INSERT  TEXT 


REM  ** 
REM  *** 
REM  ** 


C4  = CC1-1>*64  + C2 
MAT  COPY  02*0  <C4,C3>  TO  S4*<  ) <1,C3> 

AND  <S4*(1),7F> 

ADD  (S4*<1>,80) 

MAT  COPY  S4*(>  <1,C3>  TO  02*0  <C4,C3> 

GOTO  5104 

REM  ** 

REM 
REM  ** 

GOSUB  ' 10O  (Cl, C2,C3,S4*<1>, 00(12))  : 

GOTO  4916  : 

REM  ** 

REM  ♦iHHHHHHHHHHHHHHHHHHHHHHHHHHHHHfr'iHHHHHHHHHHHHHfr 

REM  ** 

GOSUB  ' 101  <1, 1,0,0) 

RETURN 


TO  02*0  <C4,C3> 


UNDERSCORE  TEXT 

: REM  CMPUTE  BUF  POS 
: REM  LOAD  FRM  BUFR 
: REM  MASK  TEXT 
: REM  UNDERSCORE 
: REM  RELOAD  BUFR 
: REM  GET  NXT  LINE 

LOAD  INTO  BUFFER 

: REM  INSERT  TEXT 
: REM  GET  NXT  LINE 


END  OF  FILE 

REM  HOME  CUSOR 
REM  EXIT 


O 


459 


r 

AUTHOR  Sy st em Z 

F*  ha  bb  3 — 

ATH3AUTU  — =tfr  MAP 

u 

' 

4320 

- 4308  4328  4336 

4340 

- 4316 

4408 

- 4420 

4424 

- 4412 

4520 

- 4504 

4592 

- 4576 

4595 

- 4576 

4500 

- 4576 

4604 

- 4576 

4608 

- 4576 

4612 

- 4576 

4616 

- 4576 

4620 

- 4576 

4624 

- 4592  45-36  4600  4604 

4608  4612  4616  4620 

46-36 

- 4680 

4700 

- 4680 

4704 

- 4680 

4708 

- 4680 

4712 

- 4680 

4716 

- 4680 

4720 

- 4680 

4724 

- 4680 

4728 

- 46'36  4 700  4704  4708 

4712  4716  4720  4724 

4824 

- 4800 

4828 

- 4800 

4840 

- 4800 

4904 

- 4 308 

4916 

- 4900  5108 

4932 

- 4912 

w 

4964 

- 4932 

i 

4984 

- 4932 

5004 

- 4932 

5048 

- 4932 

5068 

- 4932 

5104 

- 4932  4948  4-368  4988 

5032  5052  5088 

5124 

- 4932 

1 

o 

460 

WM 

A 

/^t_n  HUR  System 


F”  ha  se  3 


ATH3AU1  CJ 


V MAP 


BO 

- 

AAOO 

AA08 

AA2A 

AA28 

4432 

4492 

4496- 

4500 

4508 

4512 

B1 

- 

A30A 

A 308 

A32A 

Bl* 

- 

4332 

A 336 

AA12 

4428 

4488 

4504 

4512 

4516 

4560 

4592 

4596- 

4600 

4604 

4608 

4612 

4616 

4620 

A66A 

4696 

4700 

4704 

4708 

4712 

4716 

4720 

4724 

Bl*( 

- 

A 30  A 

A 308 

4312 

4332 

4340 

4392 

43-96 

4408 

4424 

4428 

4488 

4500 

4508 

4512 

Ba 

- 

A 320 

A 32  A 

AA88 

AA92 

4496- 

BA 

- 

4404 

A A 08 

AA16 

4424 

4432 

4496 

4500 

4508 

4560 

4576 

4664 

4680 

B8 

- 

A30A 

A312 

4324 

4328 

4332 

4392 

44  32 

B9 

- 

A30A 

A 3-96 

CO 

- 

4776 

A 800 

A8A0 

48-96- 

4900 

5004 

5008 

5024 

Cl 

- 

4904 

A916 

5068 

5104 

C2 

- 

A90A 

4916 

5068 

5104 

C3 

- 

A90A 

A916 

A96A 

4984 

5028 

5072 

5084 

5104 

CA 

- 

A90A 

4908 

A916 

4932 

506-8 

5072 

5084 

CS 

- 

5016 

5024 

Q0< 

- 

A828 

AS  32 

5104 

oa*< 

- 

A82A 

5072 

5084 

R2*< 

“ 

A 3-96 

AAOO 

5012 

5016 

RA*< 

- 

A96A 

A98A 

R5*( 

- 

A 3-96 

5012 

5020 

R8*< 

- 

A836 

SA*( 

- 

A90A 

A916 

496-4 

4984 

5004 

5008 

5012 

5020 

5024 

5048 

5072 

5076 

5080 

5084 

5104 


461 


AUTHClR  Sys-tum:  Phase  3 — ATH3AU  I O — ' MAIJ 


oooo 

DfcFFN' 

0 

OOOl 

DfcFFN' 

1 

0005 

DfcFFN' 

5 

0003 

DfcFFN' 

3 

40-95 

DfcFFN' 

6 

4100 

DfcFFN' 

7 

4108 

DEFFN' 

8 

4116 

DfcFFN' 

9 

4154 

DfcFFN' 

10 

4135 

DfcFFN' 

11 

4140 

DfcFFN' 

18 

4148 

DfcFFN' 

13 

415b 

DfcFFN' 

14 

4164 

DfcFFN' 

15 

4058 

DfcFFN' 

17 

4036 

DfcFFN' 

18 

4044 

DfcFFN' 

19 

•> 

O 

in 

ru 

DfcFFN' 

50 

406.0 

DfcFFN' 

51 

4068 

DfcFFN' 

58 

4076 

DfcFFN' 

83 

4084 

DEFFN' 

54 

4175 

DfcFFN' 

55 

4180 

DfcFFN' 

56. 

4188 

DfcFFN' 

87 

4196 

DfcFFN' 

58 

4504 

DfcFFN' 

59 

4515 

DEFFN' 

30 

4550 

DfcFFN' 

31 

DfcFFN' 

lOO 

- 5104 

????  DEFFN'  101 

- 5154 

????  DfcFFN'  102 

- 4038  4040  4048  4056  406.4  4075  4080  4088  4096  4104  4115  4150  4158  4136 
4144  4155  4160  4168  4176  4184  4195  4500  4508  4516  4554 

4304  DfcFFN'  500 
4395  DEFFN'  501 

- 4315 

4488  DfcFFN'  505 

- 4335 

4560  DfcFFN'  503 

- 4408  4500 
466.4  DfcFFN'  504 

- 4454  4508 
4776  DEI-FN'  505 
48-96  DfcFFN'  506 

- 4840 


462 
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ATH30M 

The  purpose  of  the  1 ATH300 . 0 ‘ program  is  to  create  the  Title  page  of 
the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH300.0'  program 
listing  and  reference  maps. 


C 


463 


P hs  & e?-  3 


ATH 300  _ O 


CNR  TL 


1 


AUTHOR  S/Et Dm = 


6000  Zttlt  Program  > AUTHOR/ 3 <ATH300.0)  Version  5.0  5500  T/VP  780355 
6010  REM  **  Abstract 

6050  REM  **  ** 
6030  REM  **  To  Create  and  Store  the  Title  Page.  ** 
6040  REM  **  ** 


606.0 

DEFFN 

/ 

050 

REM 

ENTRY 

6070 

INI! (50) 

Q5*<  ) 

REM 

CLR  PAGE  BUFR 

6080 

D3 

= 35 

REM 

CLR  PACE  INDX 

6090 

Q4 

= 00 

REM 

CLR  ADRS  INDX 

6100 

GOSUB 

/ 

510 

REM 

SAVE  LOWER  TEXT 

6110 

GOSUB 

/ 

511 

REM 

CREATE  TITLE 

6150 

GOSUB 

/ 

515 

REM 

CREATE  SUBTITLE 

6130 

GOSUB 

/ 

513 

REM 

CREATE  AUTHORS 

6140 

GOSUB 

/ 

514 

REM 

CREATE  DATE 

6150 

GOSUB 

/ 

515 

REM 

CREATE  ORGANIZATION 

6160 

GOSUB 

/ 

516 

REM 

SAVE  PAGE 

6170 

GOSUB 

/ 

018 

REM 

RETURN  TO  AUTO  MODE 

rtUTHQH  System 


Phase  3 


ATH 300 - O 


1 


6180 
6190 
6200 
6210 
6220 
6230 
6240 
62  bO 
6260 
6270 
6280 
62-30 
6300 


HEM  ** 


REM  ** 

HEM  **  Subroutine  *****^*^*^*****-»***************-»hm-*******+  2 1 o 

HEM  **  Abstract  > 

HEM  **  To  save  text  to  be  stored  on  line  16. 


REM  ** 
REM  ** 
HEM 
DEFFN 
DIM 
PRINT 

RETURN 


Variables  > 

Bl*()  > temp  storage  bufr 


210 


BO* (1)64 
HEX (03) 

STR ( BO* ( 1 ) , 53, 1 1 ) 


“Go  to  :nxtO“ 


REM  ENTRY 
REM  DEFINE  BUFFER 
REM  CLR  CHT  SCREEN 
REM  STOP  TEXT 
REM  EXIT 


j 


ALJ1 

1 

0 

I 

Sy&tem:  Phsse 

3 — ATM 300. O - 5 1 1 

6310 

6320 

6330 

REM  ** 
REM  ** 
REM  ** 

Subroutine  -»***-***-*-,,'***-fr'***  2 11 

6340 

REM  ** 

Abstract  > 

6350 

REM  ** 

To  create  the  TITLE. 

6360 

REM  ** 

Variables  > 

6370 

REM  ** 

ROt  > begining  sctr  adrs 

! RO  > total  bytes 

6380 

6390 

REM  ** 

6400 

DEFFN  ' 

211 

: REM 

ENTRY 

6410 

GOSUB  ' 

105  <R04,RO,00001 ) 

: REM 

FETCH  TITLE 

6420 

GOSUB  ' 

107  <1,6,60,R0*,0> 

: REM 

STOR  ON  PAG 

6430 

RETURN 

: REM 

EXIT 

i 


AU  I HQR  S/5t:  em 


P Pi  a 5 e?  3 


ATHBOO _ O 


a i a 


6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 


REM  ** 

REM  ** 

REM  Subroutine  2 12 

REM  **  Abstract  > 

REM  **  To  create  the  SUBTITLE. 

REM  **  Variables  > 

REM  **  ROS  > begining  sctr  adrs  ! RO  > total  bytes 
REM  ** 

UEFFN  ' 212  : REM  ENTRY 


GOSUB  ' 105  <R0*,R0, 00002)  : REM  FETCH  SUBTITLE 

GOSUB  ' 107  <Q1+2,6,60,R0*,0>  : REM  STOR  ON  PAG 

RETURN  *.  REM  EXIT 


AU 


6570 
6580 
&590 
€600 
6610 
6650 
6630 
6640 
6650 
6660 
66 10 
€•680 
6690 


HQR 

System:  Phase 

3 - 

ATH 300 _ O - a 

HEM  ** 

HEM  ** 

M M M M M U 1 

HEM  ** 

oud  routine 

innnrTrTri 

t H •#*  H ■MHHMHM 

HHMHHHHHHHfr  2 

HEM  ** 

Abstract  > 

HEM  ** 

To 

create  the  AUTHORS. 

HEM  ** 

Variables  > 

REM  ** 

RO* 

> begining  sctr  adrs 

! RO  > 

total  bytes 

HEM  ** 

M M M M M M > 

HEM  ***' 

IHHHHHI' 

JHHUHm  4HHHHHHHHMI  IHHHI  ** 

iHMHHMH 

HMMHMHrt 

DEFFN  ' 

513 

: REM 

ENTRY 

GOSUB  ' 

105 

(RO*, HO, 00003) 

: REM 

FETCH  AUTHORS 

GOSUB  ' 

107 

(Gl+5,6, 60,RO*,0) 

: REM 

SI OR  ON  PAG 

RETURN 

: REM 

EXIT 

o 

468 


- m 


| . ■ - ■ | I lllH-l  l 


AUTHOR  S/stem:  Phase  3 — ATH300.0  — 


RtM  ** 
RtM  ** 
HtM  ** 
RtM  ** 
HEM  ** 
HtM  ** 
HEM  ** 
RtM  ** 
HtM  *** 
UtFFt  ' 
GOSUB  ' 
GOSUB  ' 
RETURN 


IMRMIMIfl  « ” IRRIlIRRMIIIlIRRRRRRRIRIllllIRRRRR  “ " H Tlf 


Subroutine  #*hhhhhhhmhh»** 
Abstract  > 

To  create  the  DATE. 
Variables  > 

HO*  > begining  sctr  adrs 


<R0«, HO, 00004) 
<Ql+2,6,BO,RO*,0) 


total  bytes 


REM  ENTRY 
REM  FETCH  AUTHORS 
REM  STOH  ON  PAG 
REM  EXIT 


469 


AU  I MUR  Sy&tem 


P ha  b e- 


ATHJOO. O 


1 5 


6830  HEM  ** 
6840  HEM  ** 
6850  HEM  ** 
6860  HEM  ** 
6870  REM  ** 
6880  HEM  ** 
68-30  HEM  ** 
6900  HEM  ** 
6910  HEM  *** 
6950  OEFf-N  ' 
6930  GOSUB  ' 
6940  GOSUB  * 
6950  RETURN 


Abstract  > 

To  create  the  NAME  OF  THE  ORGANIZATION. 
Variables  > 

R0$  > begining  sctr  adrs  ! RO  > total  bytes 


<R0*, HO, 00005) 

< 01 +2, 6, 60, HO*, 0) 


: REM  ENTRY 
: REM  FETCH  AUTHORS 
: REM  STCJR  ON  PAG 
: REM  EX II 


ATH300 


P ha  & e- 


AUIHQR 


/s-te 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  **■ 
L)EFFN 
GOSUB 
GOSUB 
RETURN 


6960 

6370 

6380 

6390 

7000 

7010 

7050 

7030 

7040 

7050 

7060 

7070 

7080 


Subroutine  5 16 

Abstract  > 

To  Save  current  page  on  output  disk. 

Variables  > 

Bl*< ) > temp  storage  buffer  ! 


REM  ENTRY 

REM  SI  OR  LOWER  TEXT 
REM  SAVE  PAGE 
REM  EXIT 


516 

100  <16, 1,64,B0*<1>,0> 

110  <D1,D5,U3,U4*,U5) 


V MAP 


AUTHOR  Sy&-tem 


6270  6230  7060 

7070 

7070 

6080  7070 

7070 

7070 

6550  6680  6810  6940 

6070 

60-30 

6410  6540  6670  6800  6930 

6410  6420  6640  6550  6670  6680  6800  6810  6930  6940 


AUlHOR  System:  Phase  3 — ATH300.0  — ' MAI* 

0000  DtFFN'  0 

0001  DtFFN'  1 

0002  DEFFN'  2 

0003  DtFFN'  3 
????  DtFFN'  18 

- 6170 

6060  DEFFN'  50 
????  DtFFN'  100 

- 7060 

????  DtFFN'  105 

- 6410  6540  6670  6800  6930 
????  DtFFN'  107 

- 6420  6550  6680  6810  6940 
????  DtFFN'  llO 

- 7070 

6260  DtFFN'  210 

- 6100 

6400  DtFFN'  211 
- 6110 

6530  DtFFN'  212 
- 6120 

6660  DtFFN'  213 

- 6130 

6790  DtFFN'  214 

- 6140 

6920  DtFFN'  215 

- 6150 

7050  DtFFN'  216 

- 6160 


u 


474 
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ATH301.0 

The  purpose  of  the  'ATH3j!1.0'  program  is  to  create  the  Introduction 
page  of  the  learning  module. 

The  remainder  of  this  section  presents  the  ' ATH301 . 0 1 program 
listing  and  reference  maps. 


475 


m 


AU'I  HOR  Sy&tem:  Phase 


ATH 30 1 


CN  l RL_ 


Z##  Program  > AUTHOR/ 3 (ATH3O1.0)  Version  > H.O  5500  T /VP  780355 

REM  **  Abstract  *#hhhhhhhhhhh***#****h»<hi-whhhmhmhhhhhhhhhhhhhhhhhhhhi-##* 
HEM  **  ** 

HEM  To  create  and  store  the  Introduction  Page  ** 

REM  **  ** 

HtM  ♦♦*******^^****^^^********-«-»**-»-»-»'*-***-*-iHf**-*-fr*-»****-»**-»--*-»-i«-tt***-»*-» 
GOSUB  ' 103  (“DATA  SUBPROGRAM" , “ATH101 . 0“ , '"3000" ) : REM  LOAD  FIXED  TEXT 
DEFFN  ' OSO  ; REM  ENTRY 

D3  " 35  : REM  CLR  PAG  1NDX 

04  = 41  : REM  SET  ADRS  INDX 

GOSUB  '510  ; REM  CLR  LOWER  TEXT 

GOSUB  '511  : REM  LOAD  INTRO  TEXT 

gosub  ' aia  : rem  re-load  lowr  text 

GOSUB  ' 110  <D1,D2,D3,D4*,DS)  : REM  SAVE  PAGE 

GOSUB  '019  : REM  RETURN  TO  AUTO  MODE 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


! 


c 


AUl MOR  : 

6150 

REM 

*"fr 

6160 

REM 

** 

6170 

REM 

**  < 

6180 

REM 

6130 

REM 

** 

6200 

REM 

•*"* 

6210 

REM 

6220 

REM 

6230 

REM 

** 

6240 

REM 

6250 

REM 

6260 

DEFFN  ' , 

6270 

DIM 

6280 

MAT 

COPY 

62-30 

MAT 

COPY 

6300 

*TRAN 

6310 

GOSUB  ' 

6320 

RETURN 

Sy  s-t  e-m : 


P ha  & e 


— ATH301.0  — 5 


Subroutine 
Abstract  > 

To  save  test  on  lower  portion  of  page  then 
clear  page. 


2 1 0 


Variables 
B0*<>  > 
R4*<>  > 


temp  storage  bufr 
conversion  bufr 


02*0  > page  buffer 


210 


101 


BO* <3)64 

02*<X3B5,S12>  TO  BO*<Xl,S12> 

02* ( )<961,64>  TO  BO* < ><513,64 > 
(Q2*<  )<385,640>,  R4*<  X177,4>>00  R 
<7,1,10,0) 


REM  ENTRY 

REM  DEFINE  S i OR  BUFR 
REM  STOR  TEXI 
REM  STOR  TEXT 
REM  CLR  BUFFER 
REM  CLR  CRT  SCREEN 
REM  EXIT 


ALTl  HQR  Syst  e»»n 


P ha  is-  e-  3 


ATM 301  _ O 


S 1 1 


U 


6330 

6340 

6360 

6360 

6370 

6380 

63-30 

6400 

6410 

6420 

6430 

6440 

6450 


HEM  ** 
REM  ** 
REM  +* 
REM  ** 
REM  ** 
REM  ** 
RtM  ** 
REM  ** 
REM 
OEFFN  ' 
GOSUB  ' 
GOSUB  ' 
RETURN 


Subroutine 
Abstract  > 

To  load  the  training  objective  onto  the  page. 
Variables  > 


2 1 1 


HO*  > item  sctr  adrs 


! RO  > bufr  rtrn  size 


211 

105 

107 


<RO*,R0,0OOl 1 ) 
(2,24,60,80*, O) 


REM  ENTRY 
REM  FETCH  TEX1 
REM  STQR  ON  PAGE 
REM  EXIT 


C) 


AU  I HQR  S3  y =- -fc  e-m  = Phase  3 — ATHBOl  . O - a 1 a 


€■460  REM  ** 

6470  REM  ** 

6490  REM  **  Abstract  > 

6600  REM  **  To  re-load  page  with  fixed  text. 

6610  REM  **  Variables  > 

6620  REM  **  Q1  > current  row  indx  ! B04()  > temp  storg  bufr 
6630  REM  ** 


6660 

DEFFN 

/ 

212 

REM 

ENTRY 

6660 

IF 

16-Q1-1  >=  3 

TFIEN 

6590 

REM 

SPACE  AVA 1 ABLE 

6570 

GOSUB 

/ 

213 

REM 

SAVE  CURRNT  PAG 

6580 

Q1  = 0 

REM 

SET  RCJW  INDX 

65-90 

Q1  = G1  + 2 

REM 

I NCR  ROW  I FOX 

6600 

GOSUB 

/ 

100 

<G1, 1,64,B0*(1>,0> 

REM 

LOAD  PAG  BUFR 

6610 

GOSUB 

/ 

100 

(01+1, l,64,BO*(2),0> 

REM 

LOAD  PAG  BUFR 

6620 

01  = 01  + 1 

REM 

I NCR  ROW  INDX 

6630 

IF 

16-01-1  >=  2 

TFIEN 

6660 

REM 

SPACE  AVA I ABLE 

6640 

GOSUB 

/ 

213 

REM 

SAVE  CURRNT  PAG 

6650 

01  = 0 

Rt.M 

SET  ROW  INDX 

6660 

01  = 01  + 2 

REM 

I NCR  ROW  INDX 

6670 

GOSUB 

' 

100 

(01, 1,64,B0*(4>,0) 

REM 

LOAD  PAG  BUFR 

6680 

IF 

16-01-1  >=  4 

TFIEN 

6710 

REM 

SPACE  AVA I ABLE 

6690 

GOSUB 

/ 

213 

REM 

SAVE  CURRNT  PAG 

6700 

01  = 1 

REM 

SET  ROW  INDX 

6710 

01  = 01  + 1 

REM 

I NCR  ROW  I FOX 

6720 

IF 

01  = 2 

THEN^ 

6750 

REM 

NO  LINE  NEEDED 

6730 

GOSUB 

/ 

100 

(01, 1,64, BO*  < 5 ) , 0 ) 

REM 

LOAD  PAG  BUFR 

6740 

01  = 01  + 1 

REM 

I NCR  ROW  INDX 

6750 

GOSUB 

/ 

100 

(01  , l,64,BO*(S>,0> 

REM 

LOAD  PAG  BUFR 

6760 

GOSUB 

/ 

100 

(01+1, 1,64, BO»(7),0) 

RfcM 

LOAD  PAG  BUFR 

6770 

GOSUB 

/ 

100 

(01+2, 1,64, BO*(8),0) 

REM 

LOAD  PAG  BUFR 

6780 

GOSUB 

/ 

100 

(16  , 1,64,B0*(9),0> 

REM 

LOAD  PAG  BUFR 

6790 

RETURN 

REM 

EXIT 

0 


479 


P h-a  s- 


3 


ATH 30 1-0 


1 


AUTHOR  Syst 


6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 


HEM 

HEM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


*« 


**  Subroutine 
**  Abstract  > 

**  To  save  current  page  and  clear  in  order  to 
**  allow  the  loading  of  the  remainder  of  text. 

**  Variables  > 

**  Q2*<)  > page  buffer  ! R4*< ) > conversion  bufr 


2 1 3 


UEFFN  ' 213 
GOSUB  ' lOO 
GOSUB  ' 110 
♦TRAN 

GOSUB  ' 101 
RETURN 


( 16, 41 ,23, “To  Continue  Go  To  :nxtO“ 
(D1,U2,03,D4*,D5) 

<Q2*< ><65,960>,  R4*( ) <177, 4> )00  R 
(2,1,15,0) 


: REM  ENTRY 
,0):  REM  CUNT  MSG 
: REM  SAVE  PAGE 
: REM  CLR  BUFFR 
I REM  CLR  CRT  SCREEN 
: REM  EXIT 


480 


AUTHOR  Sys-t  e-m 


F*  ha  & e 


ATM 301 - O 


V MAM 


% 

V 


BO*  ( 

- 

6270 

6280 

6290 

6600 

6610 

6670 

6730 

6750 

6760 

6770 

6780 

01 

- 

6130 

6920 

02 

- 

6130 

6920 

D3 

- 

6080 

6130 

6920 

04* 

- 

6130 

6920 

D5 

- 

6130 

6920 

Q1 

- 

6560 

6580 

6590 

6600 

6610 

66cf0 

6630 

6650 

6660 

6670 

6680  6700  6710  6720 

6730 

6740 

6750 

6760 

6770 

02*  < 

- 

6280 

6230 

6300 

6930 

04 

- 

6090 

RO 

- 

6430 

RO* 

- 

6430 

6440 

R4*( 

- 

6300 

6930 

AUTHOR  S X & -t  em 


P ha  s>  e>-  3 


ATH  30  1—0 


MAP 


0000  DEFFN ' O 

0001  DtFFN'  1 

0002  DEFFN'  2 

0003  DtFFN'  3 
????  DEFFN'  19 

- 6140 

6070  DtFFN'  50 
????  DEFFN'  lOO 

- 6600  6610  6670  6730  6750  6760  6770  6780  6910 
????  DtFFN'  101 

- 6310  6940 
????  DtFFN'  102 

- 6060 

????  DtFFN'  105 

- 6430 

????  DtFFN'  107 

- 6440 

????  DtFFN'  110 

- SI 30  6920 
6260  DEFEN'  210 

- 6100 

6420  DtFFN'  211 
- 6110 

6550  DtFFN'  212 
- 6120 

6900  DtFFN'  213 

- 6570  6640  6690 
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5.10  ATH302.0 

The  purpose  of  the  'ATH302.0'  program  is  to  create  the  Importance 
of  this  Program  to  You  page  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH302.0'  program 
listing  and  reference  maps. 


6000 

6010 

6050 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6150 

6130 

6140 

6150 


IHQR  System: 


P h3  ! 


— ATH305.  O — CNTKL 


Z#1t  Program  > AUTH0R/I1I  (ATH305.0)  Version  > 5.0  5500  T/VP  780355 
RhM  **  Abstract 

REM  **  ** 

REM  **  To  create  the  Importance  of  Program  page.  ** 

REM  ■**  ** 

REM  ***^**^^**^HHt-***-tHHHHt-^^**********^**^*********-**-**'****-******** 
GOSUB  ' 105  ("DATASUBPROGRAM", "ATH1 05.0", “9000" >:  REM  LOAD  FORMAT  TEXT 

OEFFN  ' 050  : REM  ENTRY 

D3  - 3H  : REM  CLR  PAG  INDX 

Q4  = 00  : REM  CLR  ADRS  INDX 

GOSUB  '510  : REM  SAVE  LOWER  TEXT 

GOSUB  '511  : REM  WRITE  IMPORTANCE 

GOSUB  ' 515  : REM  WRITE  LOWR  HEADING 

GOSUB  '513  : REM  WRITE  USAGE 

GOSUB  '514  : REM  SAVE  PAGE 

GOSUB  ' 050  : REM  RETURN  TO  AUTO  MOUE 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


AUTHGU 

Syr 

stem:  P ha  s D 3 — ATM  30<5  - O — 2 

6160 

REM  ** 

6170 

REM  ** 

6180 

REM  ** 

Subroutine  ^*****^**************-^************-*h**-*-***-*-*  g 

61'30 

REM  ** 

Abstract  > 

6500 

REM  ** 

To 

save  lower  heading  of  the  page. 

6510 

REM  ** 

Variables  > 

6550 

REM  ** 

BOS<)  > temp  storage  bufr  ! G5S<  > > 

page  buffer 

6530 

REM  ** 

R4S<  > > conversion  bufr  ! 

6540 

REM  ** 

6550 

6560 

DEFFN  ' 

510 

: REM 

ENTRY 

6570 

DIM 

BOS <4)64 

: REM 

DEFINE  STORAGE 

6580 

MAT  COPY 

Q5S<  X449,  195>  TO  B0S< ><1, 19S> 

: REM 

STOR  TEXT 

6590 

MAT  COPY 

G5S  < ) <961 , 64 > TO  BOS ( ) <193, 64  > 

: REM 

STOR  TEXT 

6300 

STRAN 

(Q5S<  ><449, 1 95> , R4S< )<177,4>)00 

R : REM 

CLR  RAG  BUFFR 

6310 

♦ TRAN 

< Q5S  < ) <961 , 64 > , R4S( )<177,4>)00 

R : REM 

CLR  PAG  BUFFR 

6350 

GOSUB  ' 

101 

<8, 1,3,0) 

: REM 

CLR  CRT  SCREEN 

6330 

GOSUB  ' 

101 

<16,1,1,0) 

: REM 

CLR  CRT  SCREEN 

6340 

RETURN 

: REM 

EXIT 

AU  1 

1 IGK 

Hy stum:  Phase  3 — ATH 302 - O 

3=»  1 1 

6360 

HEM  •** 

6360 

REM  ** 

6370 

REM  ** 

Sub  rout  ine  *^****^^^-****************-**  ***-*******-»**-* 

3 1 1 

6380 

REM  ** 

Abstract  > 

6390 

REM  ** 

To  write  Importance  text. 

6400 

REM  ** 

Variables  > 

6410 

REM  ** 

ROS  > begin  sctr  adrs  ! RO  > length  of  bufr 

6430 

REM  ** 

6430 

uc-M  *^^^**^**********^******'*^***^*-***-'h,-‘** 

6440 

UEFFN  ' 

211  : REM  ENTRY 

6460 

GOSUB  ' 

106  <R0*,R0, 00031 ) : REM  FETCH  TEXT 

6460 

GOSUB  ' 

107  <3,34,60,R0*,0)  : REM  LOAD  ONTO 

RAGE 

6470 

RETURN 

! REM  EXIT 

ALJTHCJR  Sys-t  em 


F*  ha  & e 3 


ATH 30a . o 


a i a 


6480 
6490 
6500 
6510 
6580 
6530 
€.540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6680 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6 710 
6780 


REM  ** 
HEM  ** 
REM  ** 
REM  ** 
REM  >* 
HEM  ** 
REM  ** 
HEM  *» 
KtM  ** 
KtM 
DEFFN 
It 

gosub 

GOSUB 

gosub 

4TRAN 


IF 

GOSUB  ' 

GOSUB  ' 
GOSUB  ' 

RETURN 


Subroutine  ********* ************************************ 
Abstract  > 

To  Write  Heading  tor  Usage  Text. 

Variables  > 

B04< ) 7 temp  storage  buf r ! Q1  > curnt  row  indx 
R44( ) > conversion  buf r ! 


8 1 8 


818 

16-Q1-1  >"  4 THEN  6650 

100( 16, 41 ,83, "To  Continue  Go  to  :nxt0“,0) 
110  <D1,D2,D3,U44,D5) 

101  (8,1,15,0) 

<084< ><65,960>,  R44< )<177,4>)00  R 
Q1  = 1 
Q1  = Q1  + 1 

01  = 8 THEN  6690 

lOO  <01, 1,64, 804(1), 0) 

01  = 01  + 1 

100  (01  , 1,64,B04<8>,0> 

lOO  <01+1, 1,64, 804(3), 0) 

01  = 01  + 8 


REM  ENTRY 

REM  SPACE  AVA I ABLE 
REM  CUNT1NUE  MSG 
REM  SAVE  PAGE 
PEM  CLR  CRT  SCREEN 
Rt  M CLR  PAG  BUFR 
REM  SET  RUW  INOX 
REM  I NCR  ROW  INDX 
REM  SKIP  UNDERLINE 
REM  LOAD  PAG  BUFR 
REM  I NCR  ROW  INDX 
REM  LOAD  PAG  BUFR 
REM  LOAD  PAC  BUFR 
REM  INCH  ROW  INDX 
REM  EXIT 


T 


AU  1 

I HOW 

J=»  y s-  -t  e-m  r Phase  3 — 

ATHBOa. o — 

6860 

HEM 

6870 

REM 

•** 

6880 

HEM 

** 

Sub  routine  »»»»»»»»■»■»  * mm  » m mm  »♦««« rnnnm 

68'30 

HEM 

** 

Abstract  > 

6-300 

REM 

** 

To  save  current  page  on  disk. 

6910 

REM 

+* 

Variables  > 

6320 

REM 

#"* 

BO*<)  > temp  storage  bufr  ! 

6930 

REM 

•** 

6940 

(EM 

6950 

DEFFN  ' 

214 

: REM 

ENTRY 

6960 

GOSUB  ' 

10O  <16, 1,64, BO* (41,0) 

: REM 

RE-L.UAD  LS 

6970 

GOSUB  ' 

110  <Dl,D2,D3,l>4*,D5) 

: REM 

SAVE  RAGE 

6980 

RETURN 

: REM 

EX  I t 

a 1 4 


L INE 


ALII  HQR  System:  Phase  3 — ATHaOS.  O — V MAP 


BO*  < 

- 

5370 

6380 

6390 

6670 

66-90 

6700 

6960 

01 

- 

6610 

6970 

Da 

- 

6610 

6970 

03 

- 

6080 

6610 

6970 

04* 

- 

6610 

6970 

05 

- 

6610 

6970 

G1 

- 

6590 

6640 

6650 

6660 

6670 

6680 

6690  6700  6710  6840 

<ja*< 

- 

6380 

6390 

6300 

6310 

6630 

Q4 

- 

6090 

R0 

- 

6450 

6830 

HO* 

- 

6450 

6460 

6830 

oc 

5 

o 

H4*( 

~ 

6300 

6310 

6630 

/=»LJ  I HON 


0000  DtFFN'  0 

0001  DtFFN ' 1 

0002  DtFFN'  2 

0003  DtFFN'  3 
????  DtFFN'  20 

- 6150 

6070  DtFFN'  50 
????  DtFFN'  100 


6260  DtFFN 


6100 


6440  DtFFN 


6820  DtFFN 
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5.11  ATH303.0 

The  purpose  of  the  'ATH303.0'  program  is  to  create  the  Example  of 
How  the  Symbols  Are  Used  page  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH303.0'  program 
listing  and  reference  maps. 


AUTHOR 

6000 

X##  Program 

6010 

REM  ** 

Abst 

6050 

REM  ** 

6030 

REM  ** 

To 

60A0 

REM  ** 

6050 

REM  ***-< 

6060 

COSUB  ' 

105 

6070 

DEFFN  ' 

050 

6080 

6090 

6100 

GOSUB  ' 

510 

6110 

GOSUB  ' 

511 

6150 

GOSUB  ' 

515 

6130 

GOSUB  ' 

051 

F>|-|^&(E^  3 — ATH303.  O 

I (ATH303.0)  Version  > 5.0  5500  T/VP 

RRNRHIIIIRNN  *1 

To  create  the  Example  Page. 

("DAIASUBPHOGRAM*  , "ATH103.0"  , "9000*  > 

D3  = 35 
Q4  = 00 


— CNTRt 

780355 


** 

** 


REM  LOAD  FORMAT  1EXT 
REM  ENTRY 
REM  CLR  PAG  INDX 
REM  CLR  ADRS  INDX 
REM  SAVE  LOWER  TEXT 
REM  WRI1E  EXAMPLE 
REM  SAVE  PACE 
REM  RETURN  TO  AUTO  MODE 


AUTHOR  : 

6140 

REM 

** 

6150 

REM 

** 

6160 

REM 

**  < 

6170 

REM 

6180 

REM 

*•* 

6190 

REM 

■**  \ 

6200 

REM 

■** 

6210 

HEM 

■** 

6220 

REM 

*«* 

6230 

REM 

6240 

DEFFN  ' i 

6250 

DIM 

6260 

MAT 

COPY 

6270 

♦TRAN 

6280 

GOSUB  ' 

6290 

RETURN 

Syct t?m : Phase  3 — ATH303.  O 


Abstract  > 

To  save  text  on  last  line  of  page. 

Variables  > 

B0$<)  > temp  storage  bufr  ! G2*< ) > page  buffer 
R4*<)  > conversion  bufr  ! 


2 1 0 


B0*<1>64 

Q2*< )<961,64>  TO  B0*<><1,64> 

<G2*< ><961, 64>,  R4*( ) <177, 4> )00  R 
<16,1,1,0) 


REM  ENTRY 

REM  DEFINE  STORAGE  BUFR 
REM  STOR  1 EXT 
REM  CLR  PAG  BUFFR 
REM  CLJSf  CRT  SCREEN 
REM  EXIT 


rw 


AUTHOR  Sy  S3. -terns  Pti-sai 


3 — ATH303.0  — 


6300 

6310 

6350 

6330 

6340 

6350 

6360 

6370 

6380 

6330 

6400 

6410 

6450 


HEM  ** 
REM  ** 
HEM  ** 
HEM  ** 
HEM  ** 
HEM  ** 
HEM 
HEM  ** 
REM 
DEFFN  ' 
GOSLB  ' 
GCJSUB  ' 
RETURN 


Subroutine 
Abstract  > 

To  write  Example  text. 
Variables  > 

RO*  > begin  sctr  adrs 


5 1 1 


! RO  > length  of  bufr 


511 

REM 

105 

<R0*, HO, 00041 ) 

REM 

107 

(5, 06, 60, HO*, 0) 

REM 

REM 

AU'I  HOR  System: 


F*  ha  s e 


ATM  BO 3.0  — 3 1 


€•'♦30  REM  ** 
6440  REM  ** 
6450  REM  ** 
6460  REM  ** 
6470  REM  *♦ 
6480  REM  ** 
6490  REM  ** 
6bOO  REM  ** 
6510  REM  *+* 
6520  UEFFN  ' 
6530  GOSUB  ' 
6540  GOSUB  ' 
6550  RETURN 


Subroutine  *hhhhhhhhhhhhhhhi 
Abstract  > 

To  Save  page  on  Disk. 
Variables  > 

BO»()  > temp  storage  bufr 


212 

100  (16,1 , 64, BOS  < 1 ) , O ) 

110  <D1, 02,03, 04*, D5> 


2 1 2 


REM  ENTRY 

REM  RE-LCJAD  LST  LINE 
REM  SAVE  PAGE 
REM  EXIT 


AU  I MCJR  Syst  emti 


Phase  H 


ATH 30 3 _ O 


V MA» 


B0*<  - 6250  6260  6630 

01  - 6540 

02  - 6540 

03  - €080  6640 

04*  - €.540 

05  - 6540 

Q2*<  - 6260  6270 

Q4  - 6090 

HO  - 6400 

HO*  - 6400  6410 


o 


rtUTHClR  System 


P hai  s e 3 


ATH 30  3 _ O 


M/SK' 


0000  DEFFN'  O 

0001  DtFFN'  1 

0002  DEFFN'  2 

0003  DtFFN'  3 
????  DEFFN'  21 

- 6130 

6070  DEFFN'  50 
????  DEFFN'  lOO 

- 6530 

????  DEFFN'  101 

- 6280 

????  DEFFN'  102 
- 6060 

????  DtFFN'  105 

- 6400 

????  DtFFN'  107 

- 6410 

????  DEFFN'  110 

- 6540 

6240  DEFFN'  210 

- 6100 

63-30  DEFFN'  211 
- 6110 

6520  DEFFN'  212 
- 6120 

I I r, 


o 


501 
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ATH304.0 

The  purpose  of  the  'ATH304.0'  program  is  to  create  the  Symbol  Pre- 
Test  pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH304.0'  program 
listing  and  reference  maps. 


/Nun 

HOR  Sy  E-m  s P h3  r>  d 3 

— ATH3Q4  _ O — CI>4TIVL 

&ooo 

X#tt  Program 

> AUTHOR /I 11  ( ATH304 . 0 ) 

Version  > 2.0  2200  T/VP  780322 

6010 

REM  **  Abstract  *-ihh*>***^************^*************-»**-«-****^*»*****-»-»**** 

6oao 

REM  ** 

■**■ 

6030 

REM  *•*  To 

create  the  Symbol  Pre-Test 

Frames. 

■** 

6040 

REM  *"* 

+■* 

6050 

REM  ******** 

*************************** 

*********** 

HHHHH 

h *■**■**■*■**-*•*•*■*■*■  *■*■*♦*■* 

606.0 

COSUB  ' 102 

( “DATASUBPROGRAM" , "AT HI 04. 

0", "9000" ) 

REM 

LOAD  FORMAT  TEXT 

6070 

UfcFFN  ' 050 

REM 

ENTRY 

6080 

D3  = 32 

REM 

CLR  PAG  INDX 

6090 

04  = 42 

REM 

SET  ADRS  INDX 

6100 

COSUB  ' 210 

REM 

WRITE  TYPE  OF  SSL 

6110 

GOSUB  ' 211 

REM 

SAMPLES  OF  SBLS 

6120 

GOSUB  ' 110 

< Dl, 02,03, 04*, D5> 

REM 

SAVE  PAGE 

6130 

GOSUB  ' 205 

<1) 

REM 

LOAD  NXT  FORMAT 

6140 

03  = 32 

REM 

CLR  PAG  INDX 

6150 

04  = OO 

REM 

CLR  ADRS  INDX 

6160 

GOSUB  ' 110 

<D1,D2,03,D4*,D5> 

REM 

SAVE  PAGE 

6170 

GOSUB  ' 205 

(1) 

REM 

LOAD  NXT  FORMAT 

6180 

D3  = 32 

REM 

CLR  PAG  INDX 

6190 

04  = 00 

REM 

CLR  ADRS  INDX 

6200 

GOSUB  ' 212 

REM 

SAVE  LOWR  TEXT 

6210 

GOSUB  ' 213 

REM 

WRITE  REFERENCE 

6220 

GOSUB  ' 214 

REM 

SAVE  PAGE 

6230 

GOSUB  ' 022 

REM 

RETURN  TO  AUTO  MODE 

P ha  5.0  3 


/NTH  30^1  _ O 


O 


l 


AUTHOR  System: 


6540  HEM  ** 
65  SO  HEM  +■* 
6560  HEM  ** 
6570  RLM  ** 
6580  REM  ** 
6590  HEM  ** 
6300  REM  ** 
6310  HEM  ** 
6350  HEM  ** 
6330  REM  ** 
6340  HEM  **• 


6350 

OEFFN  ' 

510 

REM 

ENTRY 

6360 

COSUB  ' 

105 

<RO*,RO, 00055) 

REM 

FETCH  TEXT 

6370 

IF 

RO  <=  60 

THEN  6400 

HEM 

SRING  SIZ  OK 

6380 

♦TRAN 

<R1*< )<60, 1957>, 

R4*<  XI 77 , 4 > > 00  R 

REM 

CLH  ST OR AG  BUFR 

6390 

RO  ~ 60 

REM 

RESET  TO  MAX 

6400 

MAT  COPY 

Rl*( )<l,R0+9>  TO 

Rl*< ) <R0+ 10 , R0+9> 

REM 

POSITION  BUFR 

6410 

MAT  COPY 

05*  ( ) <408, 9>  TO  Rl*(Xl,R0+9> 

HEM 

MOVE  IN  TEXT 

6450 

COSUB  ' 

107 

<7,54,60,R0*,0> 

REM 

LOAD  PAG  BUFR 

6430 

IF 

05*<Ql,Q5-2>  = 

" THEN  6450 

REM 

CHCK  FOR  PERIOD 

6440 

GOSUB  ' 

lOO 

(01,05-1,1, “.*,0) 

REM 

LOAD  PERIOD 

6450 

RETURN 

REM 

EXIT 

Subroutine 
Abstract  > 

To  Write  the  Type  of  Symbol. 

Variables  > 

RO*  > begin  sctr  adrs  ! 05*(  > > page  buffer 
Rl*<)  > storage  buffer  ! Q1  > row  indx 
05  > col  indx  ! 


5 1 O 


AUTHOR  System 


Phase  3 


ATH30'i  - O 


a 1 i 


o 


6460 

6470 

HEM  ** 

HEM  ** 

.u 

JkJULJlJLJk 

it.  X X M M H 1 

IMXXMMXMMMM  — » « 

6490 

ncn  w w suoroutine 

HEM  **  Abstract  > 

R R i R ■ I 

* “ " R ***** 

rt  **■*♦*#  J 

6500 

HfcM  ** 

To 

write  a sampleing  of  symbols. 

6510 

REM  **  Variables  > 

6520 

HEM  ** 

B0*(>  > -temp  storage  bufr  ! 

Bl«(  ) 

> memory  bufr 

6530 

HEM  ** 

B2*<>  > memory  bufr  ! 

03*  ( > 

> symbol  tbl 

6540 

REM  ** 

QOS ( ) > alpha  numeric  figs! 

00  < ) 

> numeric  flag 

6550 

REM  ** 

09*0  > scratch  i/o  bufr  ! 

T1  > 

row  indx 

6560 

REM  ** 

T2 

> col  indx  ! 

B8  > 

random 

sbscrpt 

6570 

C.  LOA 

REM  ** 

nr-ki  M X M M M 1 

*11  MM  M M 

M M M M M H 

bboU 

6590 

DEFFN  ' 511 

RR  R WR  R 

REM 

ENTRY 

6600 

DIM 

B0*(1>64,B2S<20)1 

7EM 

DEFINE  BUFFERS 

6610 

MAT  REDIM 

Q9*( 16) 16 

REM 

DEFINE  I/O  BUFR 

6620 

IN1T(00) 

Bl*<  ) 

REM 

IN1T  MEM  BUFR 

6630 

IN1T(00) 

B2*<  ) 

REM 

IN1T  MEM  BUFR 

6640 

FOR 

T1  = 12  TO  15 

REM 

BUILD  FOUR  HOWS 

6650 

T2  = 24 

REM 

INIT  COL.  INDX 

6660 

IN1T (20) 

B0*<  ) 

REM 

IN 17  TEMP  BUFR 

6670 

MAT  COPY 

B2*< ) 70  Bl*< ) 

REM 

UPDAT  MEM  BUFR 

6680 

G0SUB  ' 200 

<G0(2),B1*<1),B8,20) 

REM 

FTCH  RND  SUSCRT 

6690 

DATA  LOAD 

BA  7 #2,  <Q3*(B8,3),R0*>Q9*<  ) 

RLM 

ETCH  SYMBOL 

6700 

MAT  COPY 

R5*<  ><1,1>  TO  Q9*<)<16, 1 

> 

REM 

CLR  EOI  BYTE 

6710 

IF 

T2+LEN(Q9*<1>>  < 60 

THEN 

6790 

REM 

LIN  NOT  EXCLF.DED 

6720 

IF 

00* < 3)  <>  "3* 

THEN 

6770 

REM 

FIND  SHORTER  SOL 

6730 

QO*(3>  « “O" 

REM 

HE -SET  FLAG 

6740 

MAT  COPY 

R5*()<1,1>  TO  BO* ( ) <T2- 1 

, 64-T2+2> 

REM 

CLR  END  OF  BUFR 

6750 

MAT  COPY 

B2*( ) TO  B 1* ( ) 

REM 

REFRESH  MEM  BUFR 

6760 

G010 

6870 

REM 

BHNCH  TO  PRNT 

6770 

ADO 

< 00* ( 3) , 01 ) 

REM 

INCH  FLAG 

6780 

GO  10 

6670 

REM 

FTCH  NXT  SBL" 

6790 

T3  = LEN ( 09* ( 1 ) ) 

REM 

STUR  SBL  LEN 

6800 

MAI  COPY 

09* < XI , T3>  TO  BO*<)<72, 

7 3> 

REM 

SI  OH  SBL  IN  BUFR 

6810 

T2  = T2  + LEN  < 09* ( 1 ) ) 

REM 

INCH  COL  INDX 

6820 

MAT  COPY 

Bl«( ) TO  B2«( > 

REM 

UPDATE  MEN  BUFR 

6830 

IF 

VAL ( B 1 * ( 1 > ) = Q0<2) 

THEN 

68(0 

REM 

SUL  TBL  EMPTY 

6840 

IF 

T2  > 56 

THEN 

6870 

RLM 

LIN  BUFR  FUL 

6850 

T2  = T2  3 

REM 

INCH  COL  INDX 

6860 

GDI  0 

6680 

REM 

BRNGH  TO  Si RT 

6870 

COSUB  ' lOO 

<T1,24,40,STR(B0*(1 >.24, 

40), 0> 

HEM 

LOAD  PAC  BUFR 

6880 

IF 

VAL ( B 1 * ( 1 ) ) <>  00(2) 

THEN 

6900 

REM 

FTCH  NX  1 SUL 

68-30 

T1  = 15 

REM 

EXI*  LOOP 

6-300 

NEXT 

T1 

REM 

CONT  TO  LOAD 

6910 

RETURN 

REM 

EXIT 

505 


/NU1I  HfJR  : 

6950 

HEM 

■** 

6930 

HEM 

6940 

REM 

**  < 

6950 

HEM 

696.0 

HEM 

*•* 

6970 

HEM 

**  < 

6980 

HEM 

** 

6990 

HEM 

♦* 

7000 

HEM 

■IHHHH 

7010 

UEFFN  ' i 

7050 

DIM 

7030 

MAT 

COPY 

7040 

♦TRAN 

7050 

GOSUB  ' 

7060 

RETURN 

-tern:  Phasi 


Subroutine 
Abstract  > 

To  save  lower  part  of  page. 
Variables  > 

BOUO  > temp  storage  bufr  ! 


— /NTH  30^  - O — 


a 1 a 


Qa*< ) > page  buffer 


aia 


101 


BO*< 1 >64 

Qa*(K961,64>  TO  B0*<><1,64> 

<Qa*< ><961,64>,  R4*< ><177,4>)00  R 
<16, 1, 1,0) 


REM  ENTRY 
REM  DEFINE  BUFFER 
HEW  LOAD  TEMP  BUFR 
HEM  CLH  PAG  BUFFR 
HEM  CLR  CRT  SCHLEN 
REM  EXIT 


AUTHOR  Syct  e*m 


P ha se  3 


ATH  30  •'i.O 


S 1 3 


* 


7070  RF-M  ** 

7080  REM  ** 

7100  REM  **  Abstract  > 

7110  REM  **  To  write  Offical  Source  of  Reference. 

7180  REM  **  Variables  > 

7130  REM  **  RO*  > begin  sctr  adrs  ! RO  > siz  of  text  bufr 

71 AO  REM  **  Rl*<>  > storage  buffr  ! Q2SO  > pag  buffer 

71S0  REM  **  Q1  > row  indx  ! 02  > col  indx 

7160  REM  **  R4*()  > conversion  buf! 

7170  REM  ** 


7190 

UEFFN  ' 

213 

7200 

GOSUB  ' 

105 

<RO^,RO, 00023) 

7210 

IF 

RO  <=  ISO 

THEN  7240 

7220 

♦TRAN 

<R1*<)<160, 1856> , 

R4$( )<177,4>)00  R 

7230 

RO  = 160 

7240 

MAT  CORY 

Rl*< )<1,R0+21>  TO 

Rl*( )<R0+22,R0+21> 

7250 

MAI  CORY 

Q2S(  ) <600,  21  > TU  R1*<K1,R0+21> 

7260 

GOSUB  ' 

107 

< 10, 24,60, RO^, 0) 

7270 

GOSUB  ' 

100 

(Q1 , 02- 1 , 2, " ) . “ , 0) 

7280 

RETURN 

REM  ENTRY 

REM  FETCH  TEXT 

REM  BUF  SIZ  OK 

REM  CLR  STORAGE  BUFR 

REM  SET  TO  MAXIUM 

REM  POSITION  BUFR  TEXT 

REM  LOAD  FIXED  TEXT 

REM  LOAD  PAG  BLFFER 

REM  LOAD  PERIOD 

REM  EXIT 


/MJ 


729 O 
7900 
7310 
7350 
7330 
7340 
7350 
7360 
7370 
7330 
73-30 
7400 
7410 


HQR  System:  Phase-  3 


ATH  30',i  . O 


<=  1 


REM  ** 

REM  ** 

HEM  **  Abstract  > 

HEM  **  To  save  current  Page. 
REM  **  Variables  > 


HEM  **  BO*< ) > temp  storage  buffer  ! 
REM  ♦♦ 

DEFFN  ' 214 

GOSUB  ' lOO  <16, l,64,BO*<l>,0> 

GUSUB  ' 110  <D1,D2,L)3,D4*,D5) 

RETURN 


REM  ENTRY 
REM  RE-LOAD  TEXT 
REM  SAVE  PAGE 
REM  EXIT 


508 


AUI HQR 

& € em  : 

F»t-i 

o 3 — 

ATH304 - O 

BO*< 

_ 

6600 

6660 

6740 

6800 

6870 

7030 

7030  73-30 

Bl*< 

- 

€•630 

6670 

6680 

6750 

6830 

6830 

6880 

B3*< 

- 

6600 

66.30 

66.70 

6750 

6830 

B8 

- 

6680 

66-30 

D1 

- 

6130 

6160 

7400 

03 

- 

6130 

6160 

7400 

D3 

- 

6080 

6130 

6140 

6160 

6180 

7400 

04* 

- 

6130 

6160 

7400 

05 

- 

6130 

6160 

7400 

QO  < 

- 

6680 

6830 

6880 

QO*< 

- 

6730 

6730 

6770 

01 

“ 

6430 

6440 

7370 

03 

6430 

6440 

7370 

03*  < 

- 

6410 

6430 

7030 

7040 

7350 

03*  ( 

- 

6690 

04 

6090 

6150 

6190 

09*  < 

- 

6610 

6690 

6700 

6710 

6790 

6800 

6810 

R0 

- 

6360 

6370 

6390 

6400 

6410 

7300 

7310  7330 

7340  7350 

R0* 

- 

6360 

6430 

66-30 

7300 

73€-0 

Rl*< 

- 

6380 

6400 

6410 

7330 

7340 

7350 

R4*( 

6380 

7040 

7330 

R5*( 

- 

6700 

6740 

T1 

6640 

6870 

68-30 

6300 

T3 

- 

6650 

6710 

6740 

6800 

6810 

6840 

6850 

13 

- 

67-30 

6800 

MAP 
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* p AUTHOR  Sy  Phase  3 — ATH304.  O — 

0000  DfcFFN ' 0 

0001  DfcFFN'  1 

0002  DfcFFN'  2 

0003  DfcFFN'  3 
????  DfcFFN'  22 

- 6230 

6070  DfcFFN'  50 
????  DfcFFN'  100 

- 6440  6870  7270  7390 
????  DfcFFN'  101 

- 7050 

????  DfcFFN'  102 

- 606.0 

????  DfcFFN'  105 

- 6360  7200 
????  DfcFFN'  107 

- 6420  7260 
????  DfcFFN'  110 

- 6120  6160  7400 
????  DfcFFN'  200 

- 6680 

????  DEFFN'  205 

- 6130  6170 
6350  DEFFN'  210 

- 6100 

6590  DfcFFN'  211 
- 6110 

7010  DEFFN'  212 
- 6200 

7190  DfcFFN'  213 
- 6210 

7380  DfcFFN'  214 
- 6220 


511 


M/M-' 


i 1 


TAE6  Report  No.  59 


F 
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5.13  ATH304. 1 

The  purpose  of  the  'ATH304.r  program  is  to  create  the  Optional 
Criterion  Test  pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH304.1'  program 
listing  and  reference  maps. 


AUTHOR  Syst Dm 


P h-a  &d  3 


ATH  30  _ 1 


CNTRL. 


6000 

X##  Program 

ni  tut  JLJC  A L _ J. 

> AUTHOR/3 

(ATH304.1)  Version  > 2.0  2200  T/VP  780322 

bUlU 

nu’i  " " 

r«j  t. 

6020 

HEM  ** 

♦ •tf- 

6030 

HEM  ** 

To 

Create  the 

Optional  Criterion  Test  Frames 

•»* 

6040 

REM  ** 

** 

6050 

6060 

REM  *■» 

6070 

REM  ** 

6080 

GOSUB  ' 

102 

< "DATASUBPROGRAM" , “ ATH104. 1 « , "9000" ) 

REM 

LUAO  PAGE  FORMAT 

60-30 

DEFFN  ' 

050 

REM 

ENTRY  POINT 

6100 

GO*<4>  = HEX ( 31 ) 

REM 

SET  COL.  FLAG 

6110 

D3 

= 

32 

REM 

CLR  PAGE  INDX 

6120 

04 

= 

00 

REM 

CLR  APRS  INDX 

6130 

GOSUB  ' 

210 

REM 

SAVE  LOWR  TEXT 

6140 

GOSUB  ' 

2 11 

RET1 

CREATE  TEST 

6150 

GOSUB  ' 

212 

REM 

SAVE  PAGE 

6160 

GOSUB  ' 

205 

<1) 

REM 

LOAD  NXT  FORMAT 

6170 

03 

s= 

00 

REM 

SET  PAGE  INDX 

6180 

Q4 

as 

OO 

REM 

CLR  ADRS  INDX 

6190 

GOSUB  ' 

210 

REM 

SAVE  LOWR  TEXT 

6200 

GOSUB  ' 

213 

REM 

CREATE  ANSWER  PAG 

6210 

GOSUB  ' 

212 

REM 

SAVE  PACE 

6220 

GOSUB  ' 

205 

<1) 

REM 

LOAD  NX!  FORMAT 

6230 

D3 

= 

32 

REM 

CLR  PAGE  INDX 

6240 

04 

= 

00 

REM 

CLR  ADRS  INDX 

6250 

GOSUB  ' 

214 

REM 

COMPUTE  LOW  SCORE 

6260 

GOSUB  ' 

110 

<01, 

D£,U3, 

04*, DS) 

REM 

SAVE  PAGE 

6270 

GOSUB  ' 

023 

REM 

RETURN  TO  AUTO  MODfc 

ALJI  HOR  Syst  em 


P ha  b e 3 


ATH  30  <i  _ X 


S 1 o 


i 


6280 

REM 

*•* 

6290 

REM 

6300 

REM 

*-* 

Subroutine  *****^****^****-^****-*****************-**"**-*  d 1 

6310 

REM 

■** 

Abstract  > 

6320 

REM 

** 

To 

save  lower  page  text. 

6330 

Rt.M 

Variables  > 

63':  0 

REM 

BO*<)  > temp  storage  bufr  ! Q2*()  > page 

but  f r 

€.3bO 

REM 

» 

R4* 

( ) > conversion  bufr  ! 

6360 

REM 

6370 

REM 

6380 

UEFFN  ' 

210 

REM 

ENTRY 

63-30 

DIM 

B0*<2>64  : 

REM 

DEFINE  BUFFER 

6400 

MAT 

COPY 

02* ( ) <321 , 64 > TO  BO* ( ) <65, 64>  : 

REM 

S I OR  TEXT 

6410 

MAT 

COPY 

02*  < ) <961 , 64 > TO  80*  (XI,  64>  : 

REM 

ST OR  TEXT 

6420 

♦TRAN 

( 02*0 <961, 64>,  R4*< )<177,4>)00  R : 

REM 

CLR  RACE  BUFFER 

6430 

GCISUB  ' 

101 

(16,1,1,0)  : 

REM 

CLR  CRT  SCREEN 

6440 

RETURN 

REM 

EXIT 

r- 

I 

^^WW^WPWWIIPPPIIW^WEPWII  1 II  .1  . u 

<L> 

AU1 

HQR 

s-te^m=  Phase  3 — ATH3CJ4  _ 1 — 22  1 X 

6450 

REM  ** 

1 

6460 

REM  *"* 

6470 

REM  ** 

Subroutine  *****^^**^***************-«>********'i*-*»******  2 11 

6480 

REM  *+ 

Abstract  > 

1 1 

6490 

REM  *+ 

To 

create  criterion  Test  Questions. 

6600 

REM  ** 

Variables  > 

6610 

REM  ** 

Tl$<)  > memory  sbl  ordr  ! 09$  ( ) > scratch  bufr 

6520 

REM  ** 

T1 

> total  sbl  indx  ! T2  > curnt  row  indx 

6530 

REM  ** 

T3 

> curnt  col  indx  ! B8  > random  subserpt 

6540 

REM  •** 

G3t()  > symbol  -table  ! R9t()  > temp 

lin  buf 

6560 

REM  ** 

R5$(>  > single  char  bufr  ! R4t()  > conversions 

6560 

REM  *-* 

QOt()  > single  byte  figs  1 Q0(  ) > numeric  flags 

65/0 

REM  ** 

1 1 

6580 

6690 

UEFFN  ' 

211 

REM  ENTRY 

6600 

DIM 

Tit (75) 16 

REM  DEFINE  BUFFER 

6610 

INIT(OO) 

Bl*(  ) 

REM  ZERO  MEM  TABLE 

6620 

T2  = 2 

REM  ROW  INDX 

6630 

T3  = 6 

REM  CUE  INDX 

6640 

FUR 

T1  = 1 TO  00(2) 

REM  BECIN  SBL  1BL  LOUP 

1 

6650 

INIT(SI-) 

R9*(  ) 

REM  1N1T  LINE  BUFR 

6660 

GOSUB  ' 

200 

< 00(2 ),Blt(l), B8, 20 ) 

REM  FECTH  RNDM  SBSCRP1 

6670 

DATA  LOAD 

BA  T #2,  <Q3$<B8, 3) ,R0*)Q9*( ) 

REM  LOAD  SYMBOL 

6680 

MAT  COPY 

R5*()<1,1>  TO  09*006,  1> 

REM  CLR  EOI  CHAR 

6690 

MAT  COPY 

Q9t ( X 1 , 1 5>  TO  Tlt(  XCTl-l  )*16+1,  16> 

REM  SAVE  SYMBOL. 

6/00 

T4  = LEN ( T 1 * < T 1 ) ) 

REM  CMPUT  SBL  LEN 

6710 

BIN(STR(Tlt(T 1 ) , 16, 1 ) ) = B8 

REM  REMEMBER  SEQUENCE 

6720 

CONVERT 

T1  TO  STR ( R9* ( 1 ) , 1 , 2 ) , (##> 

REM  CMPLJTE  ITEM  NUMBR 

6730 

tTRAN 

( R9t  ( XI,  1 > , R4t  < ) <185,  4>  ) R 

REM  BLANK  FILL  NUMBR 

6740 

MAT  COPY 

RSt ( ) <8, 1 > TO  R9t ( ) <3, 2> 

REM  LOAD  DECIMAL  POINT 

6750 

MAI  COPY 

09*  (XI,  T4>  TO  R9*  < ) < 5 , T4  +2> 

REM  LOAD  SYMBOL 

6760 

GOSUB  ' 

100 

<T2, T3, 25, R9*( 1 > , 0) 

REM  LOAD  INTO  PAG  BUFR 

6770 

T2  = T2  + 1 

REM  I NCR  ROW  INDX 

6780 

IF- 

T2  < 16  THEN  6900 

REM  NOT  END  OP  PAG 

6790 

IP 

00* ( 4 ) <>  ”2”  THEN  6860 

REM  NUT  COL.  2 

6800 

IF 

T1  = QO  ( 2 ) THEN  6900 

REM  END  OF  SBL  TBL. 

6810 

GOSUB  ' 

1 00 < 16,41,23, “To  Continue  Go  to  :nxt0",0> 

RE.M  LOAD  CONT  MSC 

6820 

GOSUB  ' 

110 

<D1,D2,D3,D4*,D5> 

REM  SAVE  CURRNT  PAGE 

6830 

GOSUB  ' 

101 

(2, 1,15,0) 

REM  CLR  CRT  SCREEN 

6840 

tTRAN 

(G2*(  ) <65,  960 >,  R4*(  ) <177,  4>  )00  R 

REM  CLR  PAGE  BLFR 

6850 

00* ( 4 ) = "0" 

REM  RESET  COL  INC  1 UR 

6860 

ADU 

(Q0*(4) ,01 ) 

REM  I NCR  COL  INCTUH 

6870 

T2  = 2 

REM  RESET  ROW  INDX 

6880 

CONVERT 

00* ( 4 ) TO  T4 

REM  CONV  COL..  NUMBR 

68-30 

T3  = 6tl  4 

REM  CMPLJTE  C.Ot.  INDX 

6-300 

NEXT 

T1 

REM  CONT  SBL.  TBL.  LOOP 

6910 

RETURN 

REM  EX 11 

• I 
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■ 1 

1 1 

l! 

J 

AUTHOR  Syst  prn 


P l'l£3  & E?  3 


ATI-1304.  1 


SIS 


HEM  ** 

HEM  ** 

HEM  **  Abstract  > 

HEM  **  To  save  page  on  disR. 

REM  **  Variables  > 

HEM  **  00* < ) > temp  storage  buf r ! 

HEM  *•* 

HEM  *^*HHHHHI-^**^*<HHI’**HH»**HH»'***HHH1**********-*-* 
UEFEN  ' 212 

GOSUB  ' 10O  <16, 1,64,B0*<1),0> 

G0SU8  ' 110  <D1,U2,U3,D4*,DS> 

RETURN 


REM  ENTRY 

REM  LOAD  SAVED  TEXT 
REM  SAVE  PAGE 
REM  EXIT 


/SLI  I HOR 


tem:  P ha  & e 3 — ATH  .30  *"»  _ 1 — P 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


Abstract  > 

To  create  the  Answers  tor  Criterion  Test. 
Variables  > 

T2  > curnt  row  indx  ! II  > sbl  sequence  ind> 
T4  > symbol  tbl  indx  ! Tl*()  > seqnce  mem  tb] 
Q3$(>  > symbol  table  ! Q0(  ) > numeric  flags 
RO  > length  of  ans.  ! R0*<)  > temp  line  bnfr 

09*0  > i/o  buffer  ! R4*( ) > conversions 

Rb*(  ) > single  chars  ! 


2 1 3 


REM  ** 

REM  ***^****^*HHH»*HHHH»HHHt****^*********HHHH«-*** 
DEFFN  ' 213 

T2  = 7 

KJR  T1  = 1 TO  QO  ( 2 > 

T4  * VAL(STR(T1*(T1>,16,1)) 

Q0$(1>  = "1" 

GOSUB  ' 10b  (Q3*(T4,4> ,R0,R1 ) 

RO  - I NT  ( RO/32 ) + 1 

IF  RO  <=  16-T2  THEN  7330 

GOSUB  ' 100< IS, 41 ,23, “To  Continue  Go  to  :nxt0“,0) 
GOSUB  ' 110  (D1,D2,D3,D4*,DS> 

GOSUB  ' 101  (2,1,15,0) 

*TRAN  (Q2*(  ><€.5,9fcO>,  R4*( X177, 4>)00  R 

GOSUB  ' 100  (2, 1,G4,B0$<2),0) 

TR  = 3 

GOSUB  ' 107  (T2,2€>,G0,G3*(T4,4),VAL(Q0$(10) ) ) 

1N1T (20)  R9*(> 

CONVERT  T1  TO  STR (R9*( 1 ) , 1 , 2) , (##> 

$TRAN  <R9*( XI, 1>,  R4*( ><185, 4>>  R 

MAT  COPY  RS*<><8, 1>  TO  R9*( )<3,2> 

MAT  COPY  Tl*(  )<(T1-1  >*16+1, 1S>  TO  R9$(><5,16> 

GOSUB  ' 10O  ( T2,  £•,  20,  RS*  ( 1 ) , 0 ) 

T2  = Q1  + 1 
NEXT  T 1 

RETURN 


ENTRY 

SET  ROW  INDX 
BEG  SBL  TDL  LOUP 
CMPUT  SBL  TBL  INDX 
SET  NULL  LOOKUP 
LOAD  DEFINITION 
CMPUT  LINE  NEEDED 
SPACE  AVA I ABLE 
LOAD  CONT  MSG 
SAVE  PAGE 
CL.R  CRT  SCREEN 
CLR  PAGE  BUFR 
LOAD  COL  HEADING 
SET  ROW  INDX 
LOAD  TEXT 
CLR  LINE  BUFR 
CMPUT  ITEM  NUMBR 
2ER0  PILL  NUMBR 
LOAD  DECIMAL  POINT 
LOAD  SYMBOL 
LOAD  INTU  PAG  BUFR 
I NCR  ROW  INDX 
CONT  SBL.  TBL  LOOP 
EXIT 
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AUlHOR  Syctem:  Phsce  3 — ATH30A. 1 - a 1 A 

7430  REM  ** 

7440  REM  ** 

7450  REM  **  Subroutine  * »»»»* »■»»»-»»« » g j 4 
7460  REM  **  Abstract  > 

7470  REM  **  To  calculate  the  lowest  passing  score  and 

7480  REM  **  to  insert  into  the  page  text. 

7490  REM  **  Variables  > 

7500  REM  **  T 1 > pos  to  insrt  score!  02*0  > page  buffer 

7510  REM  **  R9*<  ) > temp  buffer  ! T 2 > lowest  score 

7520  REM  **  R4*< ) > conversions  ! 

7530  REM  ** 

7550  UEFFN  ' 214 
7560  T2  = 00(2)*. 20 

7570  MAT  COPY  Q2*< ) <65,64 > 10  R9*()<1,64> 

7580  MAT  SEARCH  R9*<),  =R5*<10)  TO  R2*< ) 

7590  T1  = FNR  < VAL  < R2* ( 1 ) > ) 

7600  CONVERI  T2  TO  SfR<R9*< 1 > , T1 , 2> , <##) 

7610  tTRAN  (R9*< ) <11 , 1>,  R4* ( ) < 185, 4> ) R 

7620  GOSUB  ' 100  <2, 1 ,64, R9*( 1 ) ,0) 

7630  MAT  COPY  02* < ) <449, 64 > TO  R9*(><1,64> 

7640  MAT  SEARCH  R9*(),  ^R5*(10)  TO  R2*< ) 

7650  T1  = FNR  < VAL  ( R2*  ( 1 ) ) ) 

7660  CONVERI  T2  TO  SIR <R9*< 1 > , T1 , 2) , <##> 

7670  *TRAN  (R9* < ) <T1 , 1 >,  R4*( ) <185. 4> ) R 

7680  GOSUB  ' 100  ( 8, 1 , 64, R9* < 1 ) , O) 

7630  RETURN 


L. 


REM  CMPUT  LOW  SCORE 
REM  LOAD  bUFR  TEXT 
REM  SRCH  FOR  KEY 
REM  CMPUT  POSIT  ION 
REM  CONV  SCORE 
REM  BLANK  FILL  NUMBK 
REM  RELOAD  PAG  BUFR 
REM  LOAD  BUFR  TEX1 
REM  SRCH  FOR  KEY 
REZM  CMPUT  POSITION 
REM  CONV  SCORE 
REM  BLANK  FILL.  NUMBR 
REM  RE-LOAD  BUFFER 
REM  EXIT 


— — . — - 1 


AUTHOR  Sy&tem:  Pha&e  3 — ATH304. 1 - V MAP 


B0*< 

- 

6330 

6400 

6410 

7020 

7310 

Bl*( 

6610 

66.60 

BS 

- 

6660 

6670 

6710 

D1 

- 

656.0 

6820 

7030 

7280 

D5 

- 

6260 

6820 

7030 

7280 

D3 

- 

6110 

6170 

6230 

6260 

6820 

7030 

7280 

DA* 

- 

6260 

6820 

7030 

7280 

05 

- 

6260 

6820 

7030 

7280 

Q0( 

- 

6640 

6660 

6800 

7210 

7560 

00*  ( 

- 

6100 

6790 

6850 

6860 

6880 

7230 

7330 

01 

- 

7400 

02*^ 

“ 

6400 

6410 

6420 

6840 

7300 

IT 

■*1 

O 

7630 

03*  ( 

- 

6670 

7240 

7330 

04 

“ 

6120 

6180 

6240 

Q'3*  < 

~ 

6670 

6680 

6690 

6750 

RO  - 7240  7550  7560 

R0*  - 0670 

HI  - 7540 


R2*( 

- 7580 

7590 

7640 

7650 

R4*< 

- 6420 

6730 

6840 

7300 

7360 

7610 

7670 

R5*< 

- 6680 

6740 

7370 

7580 

7640 

R9*< 

- 6650 

6720 

6730 

6740 

6750 

6760 

7340 

7350 

7360 

7370 

7380 

7390 

7570 

7580 

7600 

7610 

7620 

7630 

7640 

7660 

7670 

7680 

T1 

- 6640 

6690 

6700 

6710 

6720 

6800 

6900 

7210 

7220 

7350 

7380 

7410 

75-30 

7600 

7610 

7650 

7660 

7670 

Tl*( 

- 6600 

6690 

6700 

6710 

7220 

7380 

T2 

- 6620 

6760 

6770 

6780 

6870 

7200 

7260 

7320 

7330 

73-30 

7400 

7560 

7600 

7660 

T3 

- 6630 

6760 

6890 

T4 

- 6700 

6750 

6880 

6890 

7220 

7240 

7330 

AU  I HQR  £3  y E5.  -t  em  S Ph-ase  3 — ATH30A.  X — 


DtFFN ' O 
DtFFN'  1 
DtFFN'  2 
DtFFN'  3 
DtFFN'  23 

- 6570 
DtFFN'  50 
DEFFN'  100 

- 6760  6810  7020  7270  7310  7390  7620  7680 
DtFFN'  101 

- 6430  6830  7290 
DtFFN'  102 

- 6080 
DtFFN'  105 

- 7240 
DtFFN'  107 

- 7330 
DtFFN'  110 

- 6260  6820  7030  7280 
DtFFN'  200 

- 6660 
DtFFN'  20b 

- 6160  6220 
DtFFN'  210 

- 6130  6190 
DtFFN'  211 

- 6140 
DtFFN'  212 

- 6150  6210 
DtFFN'  213 

- 6200 
DtFFN'  214 

- 6250 


o 


521 


MMM 


AU1  HUR  System:  Pf-i^sip 


— ATH30&.  O — CNTPt 


6000 

6010 

&020 

6030 

6040 

6050 

6060 


*#1»  Program  > AUTHOR/3  (ATH305.0)  Version  > 2.0  2200  1 /VP  7H0322 
HfcM  **  Abstract  *hhhhhhhhhhhhhhmhhhhhhhhhhmhhhh^*****^hhhhhhhhhhhhw-*** 

HEM  ** 

HEM  **  To  Create  the  Organization  of  the  Program. 

HfcM  **  (Flowchart) 

HfcM  ** 


** 

*•» 

** 


6070 

REM  ** 

60S0 

HfcM  ** 

6030 

COSUB  ' 

102< 

" DAT ASUBFROCR AM 

6100 

DEFFN  ' 

050 

6110 

03  = OO 

6120 

Q4  = 43 

6130 

COSUB  ' 

210 

6140 

COSUB  ' 

211 

6150 

COSUB  ' 

110 

<D1,L)2,D3,D4*, 

6160 

COSUB  ' 

024 

■ATH105.0"  ,“•3000"  > 


HfcM  LOAD  FORMAT 
RfcM  ENTRY 
RbM  SET  PACE  INDX 
RfcM  StT  ADHS  INDX 
RfcM  INSRI  T01  SETS 
REM  INSRI  TOT  SSLS 
HEM  SAVE  PACE 
REM  RETURN  TO  AUTO  MODE 


523 


AUTHOR  S ^ & t pm  : 


Phase  3 — ATM30S.0  — 


O 


6170 
6180 
61'30 
6200 
6510 
6550 
6530 
65  AO 
6550 
6560 
6570 
€580 
6530 
6300 
6310 
6350 
6330 
6340 
6350 


RtM  ** 
REM  ** 
REM  ** 
RtM  ** 
REM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
RtM  ** 
REM 
UEFFN 
MAT 
MAT 


*♦***««**««*****#**+**■»*«***#♦**««****•*«  5 10 


sets  into  Text 


Subroutine 
Abstract  > 

To  insert  the  number  of  symbol 
Variables  > 

05*0  > page  buffer  ! R9*C  ) 

RS*<  > > single  char  bufr  ! R5*0 
T1  > position  of  insrt  ! R4*<) 


line  buffer 
rutrn  srch 
conversion 


510 

COPY 

SEARCH 


CONVERT 
♦TRAN 
GUSUB  ' 
RETURN 


100 


05*  ( )<159,64>  TO  R3*0<1,64> 
R3*(),  = R5*< 10)  TO  R5*() 

T1  = FNR  < VAL ( R5* ( 1 ) ) ) 

00(1)  TO  STR<R3*<1 ),T1,5),  <##> 
<R9*(XT1,1>,  R4*(  )<185,4>)  R 
<3, 1,64,R9*( 1 ) ,0) 


REM  ENTRY 
RtM  LOAD  LINE  BUFR 
RtM  SRCH  LINE  BUFR 
RtM  CMPUT  POSI  l ltJN 
RtM  CONV  SBL  SETS  # 
RtM  BLANK  FILL  NUMBR 
RtM  LOAD  INTO  PAG  BUFR 
RtM  EXIT 


524 





AUTHOR  System:  Phase 


— ATH305. O 


REM  ** 

REM  ** 

REM  **  Sul 
REM  **  Ab 
REM  ■** 

REM  **  Va 
REM  **  ( 
REM  **  I 
REM  *+ 

REM  ** 

REM  **■**•**■ 
DEFFN  ' 21 
MAT  COPY 
MAT  SEARCH 

CONVERT 

*TRAN 

GOSUB  ' 1« 
RETURN 


Subroutine 
Abstract  > 
To  inser 
Variables 
Q2*<  ) > 
RS*< ) > 


t the  number  of  symbols  into  text. 

> 

page  buffer  ! R9*(>  > line  buffer 

single  char  bufr  ! R2*(>  > rutrn  srch 
ition  of  insrt  ! R4*()  > conversion 


02* < K321 , €A>  TO  R9* (XI, 6'i > 
R9*(),  =•  R5*(  10)  TO  R2*() 

T1  = FNR  < VAL  < R2* ( 1 ) ) ) 

00(2)  TO  STR < R9* (1),11,2),  <##> 
<R9*( ) <1 1 , 1 >,  RA*( ) <18b, 4> ) R 
<€>,  1 ,€-4, R9*<  1 ) ,0) 


: REM  ENTRY 
: REM  LOAD  LINE  BUFR 
: REM  SRCH  LINE  BUFR 
: REM  CMPUT  POSII  1CJN 
: RFM  CUNV  SSL.  SETS  it 
: REM  BLANK  FILL  NUMBR 
: REM  l.OAO  INTO  f'AC  BUFR 
: REM  EXIT 


O 
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o 


AUTHUR  Syst om 


Phase  3 


ATH  30  S - O 


0000  DfcFFN'  O 

0001  UfcFFN'  1 
OOOriDfcFFN'  2 
0003  UfcFFN'  3 
????  UfcFFN'  54 

- 6160 

6100  UfcFFN'  bO 
????  DfeFFN'  100 

- 6340  6b30 
????  DEFFN'  102 

- 6090 

????  UfcFFN'  110 

- 6150 

6260  DfeFFN'  210 

- 6130 

6470  DfcFFN'  211 

- 6140 


527 
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5.15  ATH306. 

The  purpose  of  the  ‘ATH3j96‘  program  is  to  initialize  the  programs 
needed  to  create  the  Symbol  Set  pages. 

The  remainder  of  this  section  presents  the  ' ATH306 ' program  listing 
and  reference  maps. 


( 


4 


AU I HUR  S/&t em 


Phase  3 


^TH30«_-.  _ 


a i o 


6130 

6130 

6140 

6150 

6160 

6170 

6180 

61'30 

6300 

6310 

6330 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6300 

6310 

6330 


HEM  ** 

HEM  ** 

REM  **  Subroutine  ***H»#**-t«******-»-B-***-********-**-*-tt*********-*-**-*  3 10 

HEM  **  Abstract  > 

HEM  **  lo  load  the  symbol  set  number  in  heading. 

HEM  **  Variables  > 

HEM  **  Q7%i ) > sbl  id  tbl  ! 02*0  > page  buffer 

HEM  **  H'34<  ) > temp  line  bufr  ! R3*()  > rutrn  srch 

HEM  **  UO  > curnt  sbl  tbl  indx  ! T3  > pos  to  insrt 

HEM  ** 


UEFFN  ' 310 

: REM 

ENTRY 

MAT  COPY 

Q2*<)<1,64>  TO  R9*<><1,64> 

: HEM 

LOAD  LINE  BUFR 

ADO 

(R9*(l),80) 

: HEM 

CLR  UNDHSCQRE 

MAT  SEARCH 

R9*<>,  - R5*(10)  TO  R2*<) 

: REM 

SRCH  LINE  BUFR 

T3  = FNR(VAL(R3*< 1 ) ) ) + 1 

: HEM 

CMPUT  POSITION 

T3  = VAL<Q7*(UO, 1 ) ) 

: REM 

CMPUT  SBL  SE"  # 

CONVERT 

T3  TO  STR  C R9$> ( 1 ) , T3, 3 ) , <##) 

: HEM 

CCJNV  SBL  SET  # 

ADO 

< R9$  ( 1 ) , 80 ) 

: REM 

RESET  UNDRSCOHE 

Gosue  ' lOO 

<1,1,64,R9*<1>,0> 

: REM 

LOAD  PAGE  BUFFR 

RETURN 

: REM 

EXIT 

530 


r m 


AUTHOR  System!  Phose  .-3  — ATH30€-. 


6260  6230  6300  6310 


— V MAP 


02*  < 

- 62'>0 

QY*( 

- €280 

H2*( 

- 6260 

6270 

K5*  ( 

- 6260 

H9*( 

- 62 AO 

6250 

12 

- 6270 

6290 

13 

- 6280 

6230 

UO 

- 6100 

6280 

Pha&e  3 


ATH aOfe 


M/M 


i 


AU1HOH  System: 

0000  DtFFN'  0 

0001  DtFFN ' 1 

0002  DtFFN'  2 

0003  DtFFN'  3 
????  DtFFN'  6 

- 6110 

60*0  DtFFN'  60 
????  DEFFN'  100 
- 6310 

6230  DtFFN'  210 


l 


o 


532 


AUTHCJN  ay  st  e-m 


P P«-^a  se  3 


/'ST Ml  30fc  _ O 


CNTWL 


X##  Pro 
REM  ** 
REM  ** 
REM  ** 
REM  ♦* 
REM  ***■ 
REM  ** 
REM  ** 
GOSUB  ' 
DEFFN  ' 


GOSUB 

GCJSUS 

GOSUB 

GOSUB 

GOSUB 


grant  > AUTHOR/3  (ATH3O6.0)  Version  > 5.0  5500  1 /VP  780355 
Abstract 

To  Create  the  List  of  symbol  in  current  set.  ** 


< “DATASUBPROGHAM"  , "ATH10E.0*  , “'3000"  ) : REM  LOAD  FORMAT 

: REM  ENTRY 

03  = 35  : REM  CLR  PAGE  INI 

04  = VAL<Q7*<U0, 1 ) > : REM  SET  ADRS  INI 


REM  CLR  PAGE  INDX  FLC 
REM  SET  ADRS  INOX 
REM  LOAD  8BL  SET  NUMBR 
REM  SA'/E  LOWR  TEXT 
REM  LOAD  SYMBL  LIST 
REM  SAVE  PAGE 
REM  RETURN  TO  LOAD  SEOU 


P ha  so  3 


ATHaoe. O 


aii 


0 


535 


AUI  HCJR  S/&"tem 


P ha  sr-  e 


3 


ATH30€..  O 


5 13 


7330 

7340 

7350 

7360 

7370 

7380 

7330 

7400 

7410 

7450 

7430 

7440 

7450 

7460 

7470 

7480 

74- 30 
7500 
7510 
7530 
7530 
7540 
7550 
7560 
7570 
7580 

75- 30 
7600 
7610 
7650 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7750 
7730 
7740 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-* 
REM  *+ 

hem  *-* 

REM  ** 
REM  ** 
HEM 
REM  ** 
REM  *•* 
REM 
UEFFN  ' 
DIM 

iNIT  <50) 


Subroutine 
Abstract  > 

To  load  text  buffer  with  list  of  symbols  contained 
in  current  set. 

Variables  > 

Rl*(>  > storage  buffer  ! UO  > sbl  tbl  index 

T5  > sbl  tbl  indx  (temp)  ! T3  > storage  buffer 

09*0  > i/o  buffer  ! 

Q7*<)  > symbol  id  table  ! 

Q1  > text  bufr  line  indx  ! 

R4tO  > conversion  bufr  ! 


5 1 5 


T4  > length  of  symbol 


T4«  ( > 
Q3*<  ) 
Q5«(  ) 
R0*<  ) 
R9*(  ) 


translation 
symbi  lol<up 
text  buffer 
scratch  reg 
scratch 


indx 

buffer 

table 


i/o 


bufr 

buffer 


a ia 


IF 

DATA  LOAD 
MAT  CORY 

♦TRAN 

MAT  CORY 


COlO 
GOSUB  ' 
♦TRAN 
If 

GOSUB  ' 
COSLB  ' 
GOSUB  ' 
♦TRAN 

RETURN 


107 


100 

110 

101 


HEX(0950aoaO) 
HEX  (500-35050) 


T4^<2)4 
Rlt(  ) 

T4^<1)  * 

T4^<2)  = 

Ta  « uo 

T3  = 1 

Q7^(U0, 1)  <>  Q7^(T2,1)  THEN  7660 
BA  T #5,  <Q3^(T5,3),R0^)  Q9*<) 

09$ < XI,  15>  TO  R9*(X1,64> 

T4  = LEN(R9^<1) ) 

<R9^(  X1,T4>,  T4*<X1,4>>  R 
STR(R9$<l),T4+2,3)  = HEX<0909> 
R9*(X1,T4+S>  TO  Rl*(XT3f50> 

T2  = T5  + 1 
T3  = T3  + 20 
7560 

( 4 , 24 , 60, RO^ , O ) 

<Q2^<),  T »♦( )<5,4>)  R 

16-Q1-1  >=  4 THEN  7740 

( 16, 41 , 33, "To  Continue  Go  to  InxtO 

<D1,D2,D3,D4^,D5> 

(a, 1, 15,0) 

(Q2^(  X65,960>,  R4*<  X177, 4> >00  R 
G1  “ O 


Rf.M 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

HEM 


ENTRY 

DEFINE  WORK  BUFR 
CLR  STORAGE  BUFR 
DEFN  TRANSLATION 
DEFN  TRANSLATION 
SET  SBL  TBL  INDX 
INIT  BUFR  INDX 
END  Of  SBL  SET 
LOAD  SYMBOL 
ST  OH  SYMBOL 
CMPUT  SBL  LENGTH 
CONV  1NTERNL  BLNKS 
ALOW  FOR  TRIPLE  Sf 
LOAD  ST OR  BUFR 
INCH  SBL  TBL  INDX 
I NCR  BUFR  INDX 
CHCK  NXT  SYMBL 
LOAD  SBL  LIST 
CONV  INTERN)-  BLNKS 


SPACE  REMA1N1NC 
,0):  HEM  EOP  CONT  MSG 
: REM  SAVE  PAGE  ON  DSK 
: REM  CLR  CHI  SCHEEN 
! REM  CLR  TEXT  BUFR 
: REM  RESET  LINE  INDX 
: REM  EXIT 


( 


536 


1/ 


AUTHOR  Syst  e-m 


F»  |-|-S»  S3-  E-  3 


ATHBOt-  _ O 


a 1 3 


7750  HEM  ** 

7760  REM  ** 

7770  REM  *•*  Subroutine  #*#hhhhhhhhhhhhhhhhhhhhhhhhhhhhhmhhhmhhhhhhhh»  5 13 
7780  REM  **  Abstract  > 

7790  REM  **  To  load  fixed  -text  in  -the  remaing  space  and  save 
7800  REM  ++  page  on  disk. 

7810  REM  **  Variables  > 

7850  REM  **  B0<(  ) > -temp  storage  buffer  ! Q5»<>  > text  buffer 

7830  HEM  **  Q1  > text  bufr  line  indx  ! 

7840  HEM  *■* 


7860 

UEFFN  ' 

513 

REM 

ENTRY 

7870 

Q1  = Q1  + 5 

REM 

INCH 

LINE 

INDX 

7880 

G0SU8  ' 

100 

<Q1  ,l,64,B0*<l)f0> 

HEM 

LOAD 

PAGE 

BUFR 

7890 

GUSUB  ' 

100 

(Ql+1, 1,64,B04(5),0) 

REM 

LOAD 

PAGE 

BUFR 

7-900 

COSUB  ' 

100 

<01+5, 1,64,B0*(3>,0) 

REM 

LOAD 

PAGE 

BUFR 

7910 

GOSUB  ' 

lOO 

<16  , l,64,BO*<4>  ,0) 

REM 

LOAD 

PAGE 

BUFR 

7950 

7930 

COSUB  ' 
RETURN 

110 

<D1,D5,D3,D4*,D5> 

REM 

REM 

SAVE 

EXIT 

PAG  ON  DSK 

537 


AU I HOR  System 


Ph 


ATHSOfr. O 


tt  M/NI-* 


( 


7660 

7660 

7740 


- 7650 

- 7660 

- 7680 


AUTHOK 

S/ct  ern  - 

Pha&i?  3 — ATH306 - O — V MAt 

B0*< 

- 

7380 

7390 

7880 

7890 

7'900  7910 

Di 

- 

7700 

7930 

Da 

- 

7700 

7930 

D3 

7100 

7700 

7930 

D4* 

- 

7700 

7930 

D5 

- 

7700 

7930 

Q1 

- 

7680 

7730 

7870 

7880 

7890  7900 

oa*< 

- 

7390 

7300 

7670 

7730 

03*  ( 

“ 

7570 

04 

' - 

7110 

Q?*< 

- 

7110 

7560 

03*  ( 

- 

7570 

7580 

RO* 

- 

7570 

7660 

Kl*< 

- 

7510 

7630 

R4*< 

- 

7300 

7730 

R9*< 

- 

7580 

7590 

7600 

7610 

7630 

Ta 

- 

7540 

7560 

7570 

7630 

T3 

- 

7550 

76.30 

7640 

T4 

- 

7590 

7600 

7610 

7630 

T4*< 

- 

7500 

7530 

7530 

7600 

7670 

UO 

- 

7110 

7540 

7560 

AUTHOR  Syst em 


F=> h3  sc?  3 


ATM  306 - O 


MAM 


I 


0000  DfcFFN ' 0 

0001  DEFFN'  1 

000 2 DfcFFN'  2 

0003  DfcFFN'  3 
????  DfcFFN'  7 

- 7160 

70*30  DEFFN'  60 
????  DEFFN ' 100 

- 7690  7S80  7890  7900  7910 
????  DfcFFN'  101 

- 7310  7710 
????  DEFFN'  102 

- 7080 

????  DfcFFN'  107 

- 7660 

????  DfcFFN'  110 

- 7700  7920 
????  DfcFFN'  210 

- 7120 

7270  DfcFFN'  211 

- 7130 

7490  DEFFN'  212 

- 7140 

7860  DfcFFN'  213 

- 7150 
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5.17  ATH306. 1 

The  purpose  of  the  'ATH306.1'  program  is  to  determine  if  the  Note 
Differences  Among  Symbols  page  is  needed  for  the  current 
symbol  set  sequence. 

The  remainder  of  this  section  presents  the  'ATH3P6.1'  program 
listing  and  reference  maps. 


I ( 


I 


AU  I HOR  Sy&tem:  P »-.<=»  *2.  o 3 - ATH30G.  1 — CNTKL 

7000  2##  Program  .>  AUTHQR/3  <ATH306. 1)  Version  > 2.0  2200  T /VP  780322 

7010  RtM  ** 

7020  REM  ** 

7030  RtM  ** 

7040  RtM  *■* 

7050  RtM  ** 

7060  RtM  **' 

7070  RtM  ** 

7080  REM  ** 

7090  COSUB 
7100  It 
7110  G0SU6 
7120  DtFtN 
7130 
7140 

7150  GOSUB 
7160  GOSUB 
7170  GOSUB 
7180  GOSUB 


Abstract 

To  determine  if  it  is  nessasary  to  create  the;  frames  ** 

covering  the  Differences  between  similar  symbols  ** 

** 


211 

U1*<1)  = HEX(OO)  THEN  7180 

102  ( "OATASUBPROGHAM- , " ATH106. 1 “ , "9000" ) 
050 

D3  = 32 
Q4  * OO 

210 

110  <D1,D2,D3,D4*,D5> 

008 

009 


REM  FIND  SIM  SYMBLS 
REM  NO  SIM  SYMBLS 
REM  LOAD  FORMAT  DATA 
REM  DEFINE  ENTRY 
REM  CLR  PAGE  INDX 
REM  CLR  ADRS  INDX 
REM  LOAD  SET  NUMBH 
REM  SAVE  PAG  ON  DSK 
REM  RTURN  TO  LOAD  SLOU 
REM  RTURN  TO  AUTU  MODE 


P ha sd  3 


ATH  JOt-  _ 1. 


aii 


f 


AU  I HOP  S y b t en»  : 


7 ISO  RtM  ** 

7200  RLM  ** 

7210  REM  ** 

7220  Rt.M  *» 

7230  HEM  •** 

7240  RtM  ** 

7250  RtM  ** 

72€.0  RtM  ** 

7270  RtM  ** 

7280  RtM  ** 

7290  RtM  ** 

7300  RtM  ** 

7310  RtM  *•* 

7320  RtM  **^HHfHHt^*************************-**-*Ht-**-«-**-*- 


7330 

DEFFN  ' 211 

REM 

ENTRY 

7340 

MAT  REDIM 

09* ( 32 ) 8 

RtM 

DEFINE  I/O  BOFR 

7350 

T2  = UO 

REM 

INI!  SBL  TBL  INDX 

7360 

T3  = 1 

REM 

INI!  SIM  TBL  INDX 

7370 

IF 

07*(OO, 1)  <>  Q7*(T2, 1 ) 

THEN 

7440 

RtM 

END  OF  SBL.  SLT 

7380 

DATA  LOAD 

BA  T #2,  (Q3*(T2,t'.),R0*) 

09*  ( ) 

REM 

LOAD  SIM  SBLS 

7390 

IF 

STR<09*(1),4,4)  - "9999" 

THEN 

7420 

RtM 

NO  SIM  SBLS 

7400 

BIN(01*(T3) ) = T2 

RtM 

LOAD  LOKOP  TABLE 

7410 

T3  = T3  + 1 

RtM 

INCR  SIM  TBL  INDX 

7420 

T2  = T2  + 1 

REM 

INGR  SBL  TBL  INDX 

7430 

GOTO 

7370 

RtM 

CHCK  NXT  SYMBL 

7440 

01*(T3)  - HEX ( 00) 

RtM 

SET  END  OF  TBL  FLG 

7450 

RETURN 

REM 

EXIT 

**-»-tt**'«-»******')H«--»--»-»****-*-»-*-»-**-IHH<-»*'IHHHHH»***-»*  2 11 
similar  symbos  withen  -the  current  set 


Sub  rout ine 
Abstract  > 

To  find  any 
of  symbols. 

Variables  > 

UO  > symbol  table  indx 
T3  > sim  sbl  tbl  indx  (temp) 
03* < ) > symbl  lokup  table 
R0*<)  > scratch  reg  bufr 
U1  > sim  sbl  tbl  indx 


T2  > symbo  table  indx  (temp) 
07* ( ) > symbl  id  table 
G9*<)  > l/o  buffer 
Ul*(>  > sim  sbl  lokup  table 


i 


543 


1 


AUTHCJH  System:  Phase  3 — ATH30fc.  1 - # MAP 

7180 
7370 
7450 
7440 


- 7100 

- 7430 

- 73-30 

- 7370 


D1 

- 

7160 

D2 

- 

7160 

03 

- 

7130 

7160 

04* 

- 

7160 

D5 

- 

7160 

03*  < 

- 

7380 

Q4 

~ 

7140 

Q7*  ( 

- 

7370 

09*  < 

~ 

7340 

7380 

7390 

HO* 

- 

7380 

T2 

- 

7350 

7370 

7380 

7400  7420 

T3 

- 

7360 

7400 

7410 

7440 

UO 

- 

7350 

7370 

Ul*< 

- 

7100 

7400 

7440 

AU  » HQR  Sys-t;  cm 


P h<a  &c?  3 


ATH  :10€.  - 1 


MAP 


oooo 

DEFFN' 

0 

OOOl 

DEFFN' 

1 

0002 

DfcFFN' 

2 

0003 

DEFFN' 

3 

? ? ? ? 

DEFFN' 

8 

- 7170 

■jin 

DEFFN' 

9 

- 7180 

7120 

DEFFN' 

50 

DEFFN' 

102 

- 7110 

'too'? 

DEFFN' 

110 

- 7160 

???? 

DEFFN' 

210 

- 7150 

7330 

DEFFN' 

211 

- 70-30 


546 
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5.18  ATH306.2 

The  purpose  of  the  'ATH306.2*  program  is  to  create  the  Note 
Differences  Among  Symbols  page  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH306.2'  program 
listing  and  reference  maps. 


i 


AU  I HOR  Sy  E-tem:  Phasi 


3 — ATH30fc.2  — CN I RU 


Program  > AUTHOR/ 3 (ATH30E.2)  Version  > 2.0  2200  T/VP  780322 

RhM  *•*  ** 

REM  **  To  Construct  the  frames  covering  the  'Differences  between  ** 
Rt'M  the  Symbols'.  ** 

RtM  **  ** 

REM  ** 

RtM  *■* 

DIM  U2*<10)16  - — _ : REM  DEFINE  WORK  BUFR 

U1  = 1 : REM  INI!  SIM  SBL  INDX 

RtM  *+  ^ — ...... 

REM  **  . 

COSUB  ' 102  ( “DATASUBPROGRAM"  , “ATH10E..2”  , “9000”  ) : RtM  LOAD  PAGt^FMTS 

DEFFN  ' 0S0  : REM  ENTRY 

GOSUB  '211  : RtM  LOAD  SIM  TABLE 


( “DATASUBPROGRAM" , "ATH10S.2" , "9000" ) 


REM  DEFINE  WORK  BUFR 
REM  INI!  SIM  SBL  INDX 


GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 


GOSUB 

GOSUB 

GOSUB 

GOSUB 


GOSUB 

GOSUB 

GOSUB 

GOSUB 


GOSUB  ' 
GOSUB  ' 
GOSUB  ' 
IE 

RES  I ORE 
GOSUB  ' 
GOTO 
IE 

REST ORE 
GOSUB  ' 
GOTO 
GOSUB  ' 


(1) 

D3  = 32 
Q4  = OO 


<D1,D2,D3,DA$,D5> 

(1) 

D3  ~ 32 
Q4  = 00 


<D1,D2,D3,D4*,D5> 

(1) 

D3  = 32 
QA  = 00 


<Dl,D2,D3,D4*,Db> 

STR<U2*<U2), It, 1)=  HEX(OO)  THEN  7220 
1 

(3) 

7110 

U1*(U1+1)  = HEX(OO)  THEN  724B 

U1  * U1  ♦ 1 
1 

<1 ) 

7070 


REM  LOAD  PAGtoFMTS 
REM  ENTRY 

RtM  LOAD  SIM  TABLE 
REM  SET  PAGE  INDX 
REM  CLR  ADRS  INDX 
REM  INSER'l  SBL  SET  # 

REM  SAVE  LOWER  TEXT 
RE.M  INSERT  SBL  LIST 
REM  SAVE  PAGE 
RtM  LOAD  NXT  FORMAT 
REM  CLR  PAGE  INDX 
REM  CLR  ADRS  INDX 
REM  INSER'l  SBL  SET  # 

REM  INSERT  SbL  IN  TXT 
REM  SAVE  PAGE 
REM  LOAD  NXT  FORMAT 
REM  CLR  PACE  INDX 
REM  CLR  ADRS  INDX 
REM  INSERT  SBL  SLT  # 

REM  CREATE  EXERSICES 
REM  SAVE  PAGE 
REM  LOAD  NXT  FORMAT 
REM  CLR  PAGE  INDX 
REM  CLR  ADRS  INDX 
REM  INSERT  SBL  SLT  tt 
REM  CREATE  ANSWERS 
REM  SAVE  PAGE 
REM  END  UP  LOCAL  SBLS 
REM  SET  TO  BEG  FORMAT 
REM  SKIP  FIRST  FORMAT 
REM  RLSTRT  SEQUENCE 
REM  END  OF  SIM  SBLS 
REM  I NCR  SIM  SBL  INDX 
REM  SET  TO  BEG  FORMAT 
RtM  LOAD  FIRST  FORMAT 
REM  RESTRT  SEQUENCE 
REM  RETURN  TO  AUTO  MODE 
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AU  I HQK  Sy&t  e-m 


P h-a  E-e  3 


ATH30fc-.  S 


a 1 


7250 

7255 

7260 

7265 

7270 

7275 


REM 

HEM 

HEM 

REM 

REM 

HEM 


■*-* 

*■» 


Subroutine 
Abstract  > 

To  load  Similar 
buffer. 


2 1 1 


symbols  into  a temp  storage 


7280 

HEM 

*•# 

Var iab 1 es 

> 

7285 

REM 

U2<<  ) 

> 

sim  sbl  buffer  ! 

Tl< 

> 

sbl  set 

it 

7230 

REM 

*•* 

T2< 

> 

symbol  it  ! 

T3< 

\ 

define  unpack  fmt 

7235 

REM 

T4< 

> 

search  id  ! 

T2 

> 

sbl  set 

# 

7300 

REM 

T3 

> 

symbol  it  ! 

U2 

> 

sbl  sbl 

bufr  indx 

7305 

REM 

•** 

03<<  ) 

> 

symbol  table  ! 

G7*<  ) 

> symbol 

id  table 

7310 

HEM 

*■* 

R2<<  ) 

> 

srch  rturn  bufr  ! 

Tl 

> 

storage 

bufr  indx 

7315 

REM 

Rl<< ) 

> 

storage  buffer  ! 

U1 

N. 

sim  sbl 

set  bufr 

7320 

REM 

Ql<<  > 

> 

sim  sbl  set  bufr  ! 

7325 

REM 

+■* 

7230 

7335 

7340 

7345 

7350 

7355 

7360 

7365 

7370 

7375 

7380 

7385 

7390 

7395 

7400 

7405 

7410 

7415 

7420 

7425 

7430 

7435 

7440 

7445 

7450 

7455 

7460 

746.5 

7470 

7475 

7480 

7485 

7490 

7495 


REM 
DEFFN  ' 
DIM 

lNiT(OO) 


211 


DATA  LOAD 


MAT  COPY 
MAT  COPY 
GOSUB  ' 105 


♦UNPACK 

CONVERT 

CONVERT 

IF 


MAT 

IF 


SEARCH 


DATA  LOAD 
MAT  COPY 
MAT  COPY 


Tl<3, T2<4, T3<4, T4<2 
U2<<  ) 

T3*  = HEX  < A003A004 ) 

U2  = 1 

T 1 = VAL  < U 1 < < U 1 > ) 

Q0<<1>  = “1“ 

BA  T #2,  <Q3<<T1,3>,ROOQ9<<  ) 
"^mX80»<  1 ) ) ^ T1 

Q9< ( KlyiSi^TO  U2< <><1,1 5> 
R0*<K1,1>  TCTtje*X).<16,  1> 

<Q3<<T1,6),R0,R1>  " 

T1  = 1 
U2  = 2 

<F=T3<>  N1<<XT1,7>  TU  T1<,T2< 
Tl<  TO  T2 
T2*  TO  T3 
T3  = 9999 

BIN<S1R<T4<,  1,  1) ) = 
BIN<SIR<T4<,2,  1 > > = 

Q7<< ) , -SIR  < T4<, 1,2) 

R2<<)  <>  HEX<OOOG) 

R2*<1>  = HEX  < OOOl ) 

T2  = INT<FNR<VAL<R2<< 1 )) >/2) 
BIN<R<X<  1 ) ) - T2 
BA  T #2,  < <33<  <12,3),  H0<  ) Q9< < ) 

15>T0  U2<< )<<U2-1 >*16+1 
U2<< ) <U2*16, 1> 


THEN  74'30 


T2 

T3 

TO 


R2< < ) SI EP  2 
THEN  7450 


+ 1 


G9<<  XI, 


15> 


R0<<  XI, 


IE 


U2 

Tl 

Tl 

U2 


U2 

Tl 

RO 

1 


1>  TO 
+ 1 
♦ 7 


THEN  7405 


RETURN 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

HEM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

HEM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

DEFINE  WORK  DUFFRS 
IN1T  SIM  TBL 
DEFINE  UNPACK  EMT 
IN1.1  SIM  TBL  IM3X 
SIM  SSL  SET  INDX 
SKP  TBL  LOKUP<FLG> 
LOAD  SYMBOL 
CONV  SBL  it  TO  BIN 
SI  OR  SYMBOL 
ST  OH  SYMBOL  it 
LOAD  SIM  SBL 5 
IN11  STUR  BUFR  IDX 
IN1T  SIM  TBL  INDX 
UNPACK  SBL  REF  it 
CONV  SYM  SET  it 
CONV  SYMBOL  it 
END  OF  LIST 
CONV  TO  BINARY 
CONV  10  BINARY 
SHCH  SBL  ID  1BL 
SBL  ID  FOUND 
SET  TO  SBL  itl 
COMPUTE  SBL  it 
CONV  TO  BINARY 
LOAD  SYMBOL 
LOAD  SBL  IN  BUFR 
LOAD  SBL  ID  IN  BUF 
INCH  SIM  SBL  INDX 
I NCR  STOH  BUFR  IDX 
NOT  END  C1F  BUFR 
SET  TO  BEC  Of  BUFR 
EXIT 


Al  ITHQR  Sy&t  (?m 


P ha  e p 3 


ATHUOfc. a 


a 1 3 


7585 

HtM  ** 

7590 

HtM  ** 

iMMWMMUMMMMMMI. 

H n y k | 

■ JlJLJLJLJLJLJiJLJLJC  “1  4 — \ 

7595 

RtM 

suorouTine 

r ■ W R R R TTTl  1 f Us 

7600 

RtM  ** 

Abstract  > 

7605 

RtM  *■* 

To 

insert  symbol  list  into 

page  buffer. 

7610 

RtM  ** 

Variables  > 

7615 

RtM  ** 

T1 

> sim  sbls  bufr  indx  ! 

T2  > temp  text  bufr  indx 

7620 

HtM  ** 

Q1 

> bufr  line  indx  ! 

U2<<)  > sim  sbls  bufr 

7625 

RtM  ** 

R9<<)  > -temp  "text  butr  ! 

Q2*< ) > page 

buffer 

7630 

RtM  ** 

T5 

> bufr  output  flag  ! 

7635 

RtM 

7640 

RtM  ♦»»•»»»««»»»»»»»»»»»»»»♦♦ 

7645 

DtFFN  ' 

213 

REM 

ENTRY 

7650 

T1  = 1 

RtM 

INI T SIM  SBL  INDX 

765b 

T2  = 1 

RtM 

INI!  TEXT  BUF  INDX 

756.0 

T5  = 1 

REM 

IN IT  BUFR  FUL  FLG 

7665 

01  = 7 

REM 

IN1T  BUF  LINE  INDX 

7670 

INI  1 (20) 

R 9»(  ) 

RtM 

IN1T  TEXT  BUFR 

7675 

R9*  = STR  < IJ2*  < T 1 ) , 1 , 1 5 ) 

RtM 

STUR  TEMP  SYMBOL 

7680 

IF 

T2+LEN(R'3S)  < 38 

THEN  7745 

REM 

SBL  UTS  ON  LINE 

7685 

T5  = 0 

RtM 

SET  END  OF  LIST 

7690 

GOSUB 

' lOO 

<Q1 , 24, 40, R9t  < 1 ) , 0) 

REM 

LOAD  TEMP  TEXT  BUF 

7695 

01  = 01  + 1 

REM 

INCR  BUF  LIN  INDX 

7700 

it 

Q1  < 16 

THEN  7730 

REM 

PAG  BUFR  NOT  FULL 

7705 

GOSUB 

' 100( 16,41,23, “To  Continue  Co 

to  :nxt0",0> 

RtM 

END  Of-  PAGE  MSC 

7710 

GOSUB 

' 110 

<D1,U2,D3,D4$,U5> 

RtM 

SAVE  PAGE 

7715 

GOSUB 

' 101 

(2, 1, 15,0) 

RtM 

C.LR  CR  l SCREEN 

77tO 

♦TRAN 

( Q24>  ( ) <65, 960> , R4<  ( ) < 177,  4>  )00  R 

RtM 

CLR  PAG  BUFR 

7725 

01  = 2 

RtM 

RESET  LINE  INDX 

7730 

T2  = 1 

REM 

RESET  TEX1  INDX 

7735 

INIT120) 

R9*<  ) 

RtM 

CLR  TEXT  BUFR 

7740 

IF 

T5  = 2 

THEN  7785 

RtM 

END  Of-  LIST 

7745 

MAT  CORY 

U2*< )<<T1-1 )*16+1, 15>  TO  R9*< ) <T2, 65 

T2> 

: RtM  LOAD  LIN  BUF 

7750 

T1  = T1  ♦ 1 

RtM 

INCR  SIM  SBL  INDX 

7755 

T2  = T2  + LEN<R9<>  + 5 

REM 

INCH  LIN  BUF  INDX 

7760 

T5  = 1 

RtM 

SET  LIN  NO)  LMP 1 Y 

7765 

It 

S1R<U2<<T1  ),  1,  1 ) O HEX < 00) THEN  7675 

RtM 

MORE  SIM  SBLS 

7770 

IF 

T5  <>  1 

THEN  7785 

RtM 

BUFR  EMPTY 

7775 

T5  = 2 

RtM 

SET  END  OF  LIST 

7780 

GOlO 

7690 

REM 

OUTPUT  THE  BUFFER 

7785 

RtTURN 

REM 

EXIT 

i 


O 
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AU  I MQR  Sy&t  e-rn 


F’  l~i  <3  so  3 


ATH  IdOfo 


a 1 A 


( 


7790  RLM  ** 

7795  REM  ** 

7805  REM  **  Abstract  > 

7810  REM  **  To  save  page  containing  the  list  of  similar 
7815  REM  **  symbols. 

7820  REM  **  Variables  > 

7825  REM  **  B0*< > > temp  storage  bufr  ! 02*0  > page  buffer 

7830  REM  **  01  > pag  bufr  lin  indx  ! 

7835  REM  ** 


7845 

DEFFN 

/ 

214 

7850 

IP 

16-G1  >=  2 

THEN  7880 

7855 

GOSUB 

/ 

100< 16,41,23, “To  Continue 

Go  to  :nxt0",0) 

7860 

COSUB 

/ 

110 

<D1,D2,D3,D4*,D5) 

7865 

GOSUB 

/ 

101 

<2, 1,15,0) 

7870 

♦TRAN 

< Q2* ( ) <65, 960> , R4*< )<177,4>)00  R 

7875 

01=2 

7880 

GOSUB 

/ 

lOO 

<Q1  , 1,64,B0*<1),0> 

7885 

GOSUB 

* 

10O 

<01+1,1, 64, B0*<2>,0) 

7890 

01  = 01  + 3 

7895 

IP 

16-01  >=■  5 

THEN  7925 

7900 

GOSUB 

4 

100< 16,41,23, “To  Continue 

Go  to  :nxt0",0> 

7905 

GOSUB 

4 

110 

<D1,D2,D3,D4*,D5) 

7910 

GOSUB 

/ 

101 

(2,1,15,0) 

7915 

♦TRAN 

< 02*  < ) <65, 96C>,  R4* ( ) < 1 77, 4> ) 00  R 

7920 

01  * 2 

7925 

FOR 

T1  = 0 TO  4 

7930 

GOSUB 

/ 

lOO 

< 01 +T1 , 1 , 64, BO*  < T1 +3) 

,0) 

7935 

NEX1 

T1 

7940 

GOSUB 

/ 

lOO 

<16  , 1 , €-4 , BO*  ( 8 ) , 0 

) 

7945 

GOSUB 

/ 

110 

<D1,D2,D3,D4*,05) 

7950 

RETURN 

REM  ENTRY 

REM  SPACE  AVAIABLE 

REM  END  OF  PAG  MSG 

REM  SAVE  PACE 

REM  CLR  CRi  SCREEN 

REM  CLR  PAG  BUFFER 

REM  RESET  PAG  LIN  INDX 

REM  SAVE  LINE 

REM  SAVE  LINE 

REM  I NCR  LINE  INDX 

REM  SPACE  AVAIABLE 

REM  END  OF  PAG  MSG 

REM  SAVE  PACE 

REM  CLR  CRT  SCREEN 

REM  CLR  PAG  BUFFER 

REM  RESET  PAG  LIN  INDX 

REM  BEG  LINE  INSERTION 

REM  SAVE  LINE 

REM  CONTINUE  TO  SAVE 

REM  SAVE  LAST  LINE 

REM  SAVE  PAGE 

REM  EXIT 


I—'  ha  e-  E'  3 


ATH^lOfc.  a 


a i 3 


AUTHOR  Sysl:  ern : 


!. 


7585 

7590 

7595 

7600 

7605 

7610 

7615 

7630 

7635 

7630 

7635 

7640 

7645 

7650 

7655 

7660 

7665 

7670 

7675 

7680 

7685 

7690 

7695 

7700 

7705 

7710 

7715 

7730 

7735 

7730 

7735 

7740 

7745 

7750 

7755 

7760 

7765 

7770 

7775 

7780 

7785 


RtM  ** 

RtM  +* 

RtM  *■*  Subroutine  hhhhhmhhhhhh»*»»»»»*»»« « > 213 

RLM  **  Abstract  > 

RtM  To  insert  symbol  list  into  page  buffer. 

RtM  **  Variables  > 


RtM  To  insert  symbol  list  into  page  buffer. 

RtM  **  Variables  > 

RtM  *•*  T 1 > sim  sbls  bufr  indx  ! T3  > temp  te 

RtM  **  Qi  > bufr  line  indx  ! U3*<>  > sim 

RtM  **  R9<( ) > temp  text  bufr  ! Q3*< ) > page 

RtM  **  T5  > bufr  output  flag  ! 

RtM  ** 

DtFFN  ' 313 

T1  = 1 
T3  = 1 
T5  = 1 
Ql  = 7 

IN1M30)  R9*<) 

R9*  = STR<U3<<T1 ), 1, 15) 

IF  T3+LEN<R9* ) < 38  THEN  7745 

T5  = 0 

GOSUB  ' IOO  <Q1,34,40,R9<< 1 ) ,0) 

01  = 01  + 1 

IF  01  < 16  THEN  7730 

GOSUB  ' 100( 16,41,33, “To  Continue  Co  to  InxtO" ,0) 
GOSUB  ' 110  <D1 ,03, D3, D4<, D5) 

GOSUB  ' 101  <3,1,15,0) 


T3  > temp  text  bufr  indx 
U3t<)  > sim  sbls  bufr 
Q3*< ) > page  buffer 


<TRAN 


INIT<30) 

IF 

MAT  CORY 


REM  ENTRY 

REM  IN1T  SIM  SBL  INDX 
REM  INTI  TEXT  BUF  INDX 
REM  I NI  T BUFR  FUL  FLG 
REM  IN1T  BUF  LINE  INDX 
RtM  IN1T  TEXT  BUFR 
REM  STtJR  TEMP  SYMBOL 
REM  SBL  FITS  ON  LINE 
RtM  SET  END  OF  LIST 
REM  LOAD  TEMP  TEXT  BUF 
REM  I NCR  BUF  LIN  INDX 
REM  PAG  BUFR  NOT  FULL. 
RtM  END  OF  PAGE  MSG 
RtM  SAVE  RAGE 
RtM  CLR  CRI  SCREEN 
RtM  CLR  PAG  BUFR 
RtM  RESET  LINE  INDX 
REM  RESET  TEXT  INDX 
REM  CLR  TEXT  BUFR 
RtM  END  OF  LIST 


GOlO 

RETURN 


< Q3< < ) <65, 960> , R4<< )<177,4>)00  R : RtM  CLR  PAG  BUFR 
01  = 3 : RtM  RESET  LINE  INDX 

T3  = 1 : REM  RESET  TEXT  INDX 

R9<<>  : REM  CLR  TEXT  BUFR 

T5  = 3 THEN  7785  : RtM  END  OF  LIST 

U3< < )<<T1-1 )*T6+ 1,1 5>  TO  R9* < ) <T3, 65-T3>  : RtM  LOAD  LIN  BUF 

T1  = T1  + 1 : RtM  I NCR  SIM  SBL  INDX 

T3  = T3  + LEN < R9< > + 5 : REM  INCR  LIN  BUF  INDX 

T5  = 1 : RtM  SLT  LIN  NO)  EMPTY 

ST R < U2< < T 1 ) , 1 , 1 ) O HE X< 00) THEN  7675:  RtM  MORE  SIM  SBLS 

T5  <>  1 THEN  7785*.  RtM  BUFR  EMPTY 

T5  = 3 : RtM  SET  END  OF  LIST 

7690  : REM  OUTPUT  THE  BUFFER 

: REM  EXIT 


o 
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7790 
7795 
7800 
7805 
7810 
7815 
7820 
7825 
7830 
7835 
7840 
7845 
7850 
7855 
7860 
7865 
7870 
78  75 
7880 
7885 
7890 
7895 
7-300 
7905 
7910 
7-315 
7920 
7325 
7930 
7935 
7940 
7945 
7950 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM  ** 
REM  *•* 
REM  ** 
REM  ** 
REM 
OEFFN  ' 
IK 

GOSUB  ' 
GOSUB  ' 
G05U8  ' 
♦TRAN 

GOSUB  7 
GOSUB  ' 

IK 

GOSUB  ' 
GOSUB  ' 
GOSUB  ' 
♦TRAN 

FOR 

GOSUB  ' 
NEXT 
GOSUB  ' 
GOSUB  ' 
RETURN 


Subroutine 
Abstract  > 

To  save  page  containing  the  list  of  similar 
symbols. 

Variables  > 

BO*( ) > temp  storage  bufr  ! Q2*()  > page  buffer 
Q1  > pag  bufr  lin  indx  ! 


2 1 4 


214 

lOOt 

110 

101 


100 

100 


10O( 

no 

101 


lOO 

100 

no 


16-G1  >=  2 THEN  7880 

16.41.23,  "To  Continue  Go  to  :nxt0“,0) 
tDl,D2,D3,D4*,D5> 

(2, 1, 15,0) 

<G2*< ><65,960>,  R4*< )<177,4>)00  R 
Q1  = 2 

<Q1  , l,64,B0*(l),t" 

<01+1,1, 64,B0*<2>,0> 

01  = 01  + 3 

16-01  >-  5 THEN  7925 

16.41.23,  “To  Continue  Go  to  :nxt0",0) 
(D1  ,D2,D3,L)4*,D5) 

(2,1,15,0) 

<Q2*< )<65,960>,  R4*( )<177,4>)00  R 
01  = 2 
T1  = O TO  4 

tQl+Tl, l,64,BO*<Tl+3) ,0) 

T1 

<16  , 1,64,B0«<8),0  ) 

<D1,D2,D3,D4*,D5) 


REM  ENTRY 

REM  SPACE  AVAIARLE 
REM  END  O PAG  MSG 
REM  SAVE  PAGE 
REM  CLR  CRI  SCREEN 
REM  CLR  PAG  BUFFER 
REM  RESET  PAG  LIN  INDX 
REM  SAVE  LINE 
REM  SAVE  LINE 
REM  I NCR  LINE  INDX 
REM  SPACE  AVA I ABLE 
REM  END  OF  PAG  MSG 
REM  SAVE  PACE 
REM  CLR  CRT  SCREEN 
REM  CLR  PAC  BUFFER 
REM  RESET  PAG  LIN  INDX 
REM  BEG  LINE  INSERTION 
REM  SAVE  LINE 
REM  CONTINUE  TO  SAVE 
REM  SAVE  LAST  LINE 
REM  SAVE  PAGE 
REM  EXIT 


( 
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AU  THOK  S/st  E?I 


Subroutine  *♦***■»■»***+**■»*■■**■*******♦+■« 
Abstract  > 

To  insert  current  similar  symbol  into 
Variables  > 


T1  > position  to  insert  at 
02*0  > page  buffer 
U2  > sim  sbl  tbl  indx 


HEM  ** 

HEM  ** 

HEM  *■*  Subroutine  ^-ihhhhh*^**^*-***********^^*******-**-******  s l 
HEM  **  Abstract  > 

HEM  ■**  To  insert  current  similar  symbol  into  p 
REM  **  Variables  > 

REM  **  T1  > position  to  insert  at  ! Rl*<)  > st 

HEM  *•*  Q2*<>  > page  buffer  ' U2*(>  > si 

HEM  *•*  U2  > sim  sbl  tbl  indx  1 

REM  *■* 

REM  ******* 

UEFFN  ' 215 

R9*  = STH  < 112$  ( U2  >,1,15) 

T1  = 18  - INT(LEN<R9*>/2> 

GOSUB  ' lOO  < ll,Tl+24,  15,R9*tO) 

IN1T (20)  Rl*<> 

MAT  COPY  02*  ( )<792,AO>  TO  H1*()<1,40> 

*TRAN  ( 02* ( ) <792, 40> , R4*< ) <177, 4> )00  R 

COSUB  ' 101  ( 13,24, 1,0) 

MAT  COPY  U2*<  ><<U2-1  )*1E+1,  1S.M0  Rl*< > <14 , 15> 

GOSUB  ' 107  ( 13, 24,60, R0*,0) 

RETURN 


buffer. 


Rl*<>  > storage  buffer 
U2*<)  > sim  sbl  table 


REM  ENTRY 

REM  TEMP  STOP  SYMBOL 
REM  COMPUTE  CENTER 
REM  WR I I E SYMBOL 
REM  C.LH  STORAGE  UUFR 
REM  MOVE  P1XED  TEXT 
REM  CLH  TEXT  BUFFR 
REM  CLH  CRT  SCREEN 
REM  MOVE  IN  SYMROL 
REM  RE-t.OAD  PAG  BIJFR 
REM  EXIT 


AUTHQH  System:  Ph, 


ATH  306  - 2 


8065 

8070 

8075 

8080 

8085 

80-30 

80-35 

8100 

8105 

8110 

8115 

8180 

8185 

8130 

8135 

8140 

8145 

8150 

8155 

8160 

8165 

8170 

8175 

8180 

8185 

8130 

8195 

8800 

8805 

8810 

8815 

8880 

8885 

8830 

8835 

8840 

8845 

8850 

8855 

8860 

8865 

8870 

3875 

8880 

8885 

88-30 

88-35 

8300 

8305 

8310 

8315 

8380 

8385 

8330 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 
DIM 


Subroutine  n »»»« »»»»««'1hhhhhhhhhi « innnm im tnnnt  j i 5 

Abstract  > 

To  create  the  descr imnation  exersices. 

Variables  > 

U3*( ) > position  memory  butr  ! U4$< ) 

B2*( ) > random  # memory  bufr  1!  B3*() 

RO*< ) > temp  srch  id  ! R8*( > 

T1  > total  # of  sim  sbls  ! T8  > 

T3  > sim  sbl  tbl  loop  indx  ! T4  > 

Bl*()  > random  # mem  table  ! B8  > 

R9*( ) > temp  text  buffer  ! Q1  > 


> answers  to  exersices 

> random  # memory  bufr 

> srch  rturn  value 
symbol  occurence  indx 
sbl  occurence  loop  indx 
random  subscript 

page  bufr  line  indx 


816 


MAT  SEARCH 
IF 


IF 

INIT(OO) 
INIT  <00) 

FOR 

FOR 

GUSUB  ' 800 
GOSUB  ' 818 

IF 

NEXT 

NEXT 

MAT  COPY 
MAT  COPY 
GOSUB  ' 800 
GOSUB  ' 818 

MAT  COPY 
MAT  COPY 
GOSUB  ' 800 
IF 

IF 

MAT  COPY 
IF 

IN IT ( OO) 
GOTO 


U3*<88>1,U4*<6)1,B8*<80>1,B3*<80>1 
R0*< 1 ) = HEX (00) 

U2*< ) f = R0*(1>  TO  R2*<>  STEP  16 
R8*< 1 ) <>  HEX (0000)  THEN  8170 

R8*(l)  = HEX(OOAO) 

T1  = INT(FNR(VAL(R8*(1)))/16) 

TS  = I NT (88/T1 ) 

TB  <=  6 THEN  8190 

TS  = 6 

Bl*< ),B8*( ),B3«( ) 

U3*<  ) 

T3  = 1 TO  T1 
T4  = 1 TO  TS 
(88,B1*<1),B8,80) 

(B8,U3t(B8) ) 

U3*(B8)  = STR(U8*(T3), 16, 1) 

T3  <>  US  THEN  8835 

BIN(U4*<T4>)  = B8 
T4 
T3 

Bl*< ) TO  B8*( ) 

BS$( ) TO  Bl*( ) 

(88,B1*(1),B8,80) 

(B8,U3«(B8) ) 

T3  = B8 

Bl*< ) TO  B8*( ) 

B3*( ) TO  Bl*( ) 

(Q0(8),B1*<1),B8,80) 

B8  = VAL<STR(U8*(U8), 16, 1))THEN  8880 
BIN(U3*<T3>)  = B8 

VAL(B8*<1))  = 88  THEN  8380 

Bl*< ) TO  B3*( ) 

VAL(B3*<1)>  < 00(8)  THEN  8850 

B3*<  ) 

8850 

QOS<4)  = "1* 

Q1  = 2 

08  = 88 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  DEFINE  SRCH  ID 
REM  SRCH  SIM  SBL  TBL 
REM  SIM  SBL  TBL  FULL 
REM  SET  TO  BUFR  MAX 
REM  COMPUTE  # OF  SBLS 
REM  SET  OCCURENCE  INDX 
REM  OCCURENCE  INDX  OK 
REM  MAX  OCCURECNE  INDX 
REM  INIT  RND  MEM  TBLS 
REM  INIT  MEMORY  TABLE 
REM  SET  FOR  ALL  SBLS 
REM  ACRDING  TO  OCC  IDX 
REM  GEN  RND  SUBBCRPT 
REM  SPREAD  SUBSCRPT 
REM  SET  POS  MEM  BUFR 
REM  NOT  PRIMARY  SBL 
REM  STOR  ANSWERS 
REM  INCH  OCC  INOX 
REM  I NCR  SIM  SBL  INDX 
REM  SAVE  MEM  TBL  1 
REM  SET  TO  MEM  TBL  1 
REM  GEN  RND  SUBSCRPT 
REM  SPREAD  SUBSCRPT 
REM  STOR  RND  SUBSCRPT 
REM  SAVE  MEM  TBL  1 
REM  SET  TO  MEM  TBL  8 
REM  GEN  RND  SUBSCRPT 
REM  RND  SBL  SAME 
REM  S I OR  RND  SBL 
REM  POS  BUFR  FULL 
REM  SAVE  MEM  TBL  8 
REM  ALL  SBLS  NOT  USED 
REM  CLR  MEMORY  BUFR 
REM  CONT  TO  FILL  BUF 
REM  SET  COL  FLAG 
REM  INIT  PAG  LIN  INDX 
REM  INIT  PAG  COL  INDX 


o 
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AU I HOR  Syst em 


Phase  3 


ATH30&. a 


i ~r 


8430  REM  ** 

8438  REM  ** 

8435  REM  **  Abstract  > 

8440  REM  **  To  create  the  answers  to  the  descrimation  exerices. 

8445  REM  **  Variables  > 

8450  REM  **  U5*< ) > temp  sort  bufr  ! U6*< ) > sort  wo"R  bufr 

8455  REM  **  U4*<)  > answer  buffer  ! U3*()  > sim  sbl  bufr 

8460  REM  **  T1  > pag  col  indx  ! T3  > answer  indx 

8465  REM  **  T3  > value  of  answer  ! Q3$< ) > page  buffer 

8470  REM  ** 


8475  REM 


1 7 


8480  DEFFN  ' 317 

8485  DIM  U5*(7>3,U6*<6>3 

8490  MAT  SORT  U4*<)  TO  U5*<),  U6*<> 

8435  INIT(FF)  U5*<) 

8500  MAT  MOVE  U4*<  ) , U6*<1>  TO  U5*<1> 

8505  T1  = 40 

8510  T3  = 1 

8515  GOSUB  ' 100  < 3,34, 15, U3*(U2> ,0) 

8530  T3  * VAL(U5*(T3)> 

8535  CONVERT  T3  TO  R3*<1>,  (##> 

8530  STRAN  <R3*<  <1,1 >,  R4*< > <185, 4> > R 

8535  GOSUB  ' 100  ( 3, T1 . 3, R3*< 1 ) , 0) 

8540  T3  = T3  ♦ 1 

8545  T1  = T1  + 3 

8550  IF  SIR  < U5* (T3), 1, 1)  = HEX  ( FF ) THEN  8565 

8555  GOSUB  ' 100  < 3, Tl-1 , 1 , H , “ , 0) 

8S60  GOTO  8530 

8565  U3  = U3  + 1 

8S70  IF  STR(U3*(U3), 16, 1)=HEX<00)  THEN  8585 

8575  GOSUB  ' 101  (6,1,10,0) 

8580  *7 RAN  <Q3* ( ) <331 , 640>,  R4*< ) <177, 4> )0O  R 

8585  RETURN 


REM  ENTRY 

REM  DEFINE  SOR I BUFRS 
REM  SORT  ANSWER  BUFR 
REM  IN1T  SORT  BUFR 
REM  CREATE  SORTED  ANS 
REM  INI!  FAG  COL  INDX 
REM  IN1T  ANS  BUFR  INDX 
REM  INSERT  SYMBOL 
REM  COMPUT  VAL  OF  ANSR 
REM  CONVERT  TO  DISFLY 
REM  BLANK  FILL  NUMBR 
REM  WRITE  ANSWER 
REM  I NCR  ANS  INDX 
REM  INCH  COL  INDX 
REM  END  OF  ANS  LIST 
REM  INSERT  SEP  CHAR 
REM  CONT  LOAD  INC,  ANS 
REM  INCH  SIM  SBL  INDX 
REM  END  OF  SIM  SBLS 
REM  CL.R  CRT  SCREEN 
REM  CLR  PAG  BUFFER 
REM  EXIT 


( 
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AU  l HQR  53  x s-  "t  ern  = 


P ha  s e> 


— ATH3ot>.  a - a 


s 


8590  REM  ** 
8595  REM  ** 
8600  REM  ** 
8605  REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


Subroutine 
Abstract  > 

To  mimiumnize  the  chance  that  the  same  two  symbols 
will  appear  in  sequence. 

Variables  > 

B8  > random  subscript  ! U3$ ( ) > position  memory  bufr 

8630  REM  *"* 

863b  REM  ♦fr*****-*********-*******************-****-**-*'*** 


8610 

8615 

8620 

8625 


8640 

DEFFN  ' 

218  <B8,U3*<88)) 

REM 

ENTRY 

8645 

B8  = B8  - 7 

REM 

DCRMNT  BY  CONST 

8650 

IE 

B8  > 0 

TEiEN 

O 

$ 

CO 

REM 

VALIU  SUBSCRRI 

8655 

B8  - 28 

REM 

SET  TO  MAX 

8660 

IE 

U3*(B8>  = HEX<00) 

TEEN 

8675 

REM 

SLUT  FOUND 

8665 

B8  = B8  - 1 

REM 

DCRMNT  BY  CONST 

8670 

GOTO 

8650 

REM 

BRNCI  I TO  RNG  CHK 

867b 

RETURN 

REM 

EXIT 

AU  t I IOR 


Sy&  t E-rri  z 


Phase  .3 


ATH  30fc-  _ & 


tt 


7070 

7240 

7110 

- 

7215 

220 

- 

7200 

72'>S 

- 

7220 

7405 

~ 

7485 

7450 

- 

7440 

74-90 

- 

7420 

7675 

- 

7765 

7690 

- 

7780 

7730 

- 

7700 

774  b 

- 

7680 

7785 

- 

7740 

7770 

7380 

- 

7850 

7385 

- 

73-95 

8170 

- 

8160 

81-90 

- 

8180 

8235 

- 

8225 

8250 

- 

8305 

8315 

8280 

- 

8285 

8320 

- 

82-95 

8335 

- 

8375 

8410 

- 

8395 

8520 

- 

8560 

8555 

- 

8550 

8585 

- 

8570 

3650 

- 

8670 

8660 

“ 

8650 

8675 

- 

8660 
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rtUTHOK  S y s t:  e-m  = Phase  3 — ATH30fo.  2 — MAI' 

BO*<  - 7560  7565  7850  7885  7930  7940 

El*<  - 8190  8210  8245  8250  825b  8270  8275  8280  8300 

B2*(  - 8145  8190  8245  8250  8270  8295 

B3*(  - 8145  8190  8275  8300  8305  8310 

BS  - 8210  8215  8220  8230  8255  8860  8265  8280  8285  8230  8640  8645  8630  8655 

8660  8665 

01  - 7135  7165  7195  7710  7860  7905  7945 

D2  - 7135  7165  7195  7710  7860  7905  7945 

03  - 7080  7115  7135  7145  7165  7175  7195  7710  7860  7905  7945 

04*  - 7135  7165  7195  7710  7860  7905  7945 

05  - 7135  7165  7195  7710  7860  7905  7945 

QOt  - 8280  8305 

Q0*<  - 7365  8320  8375  8405 

Q1  - 7665  76-30  7695  7700  7725  7850  78/5  7880  7885  7890  7895  7920  7930  8325 


AUTHOR  Systom:  Phase  3 — ATM 306. _ a - ' 

0000  DEFFN'  O 

0001  DEFFN'  1 

0002  DEFFN'  2 

0003  DEFFN'  3 
????  DtFFN'  9 

- 7245 

7070  DEFFN'  50 
????  DEFFN'  100 

- 7590  7705  7855  7880  7885  7900  7930  7940  8025  8385  8515  8535  8555 
????  DEFFN'  101 

- 7575  7715  7865  7910  8045  8575 
????  DtFFN'  102 

- 7065 

????  DtFFN'  105 

- 7390 

????  DEFFN'  107 

- 8055 

????  DEFFN'  110 

- 7135  7165  7195  7710  7860  7905  7945 
????  DtFFN'  200 

- 8210  8255  8280 
????  DEFFN'  205 

- 7110  7140  7170  7210  7235 
????  DEFFN'  210 

- 7090  7125  7155  7185 
7335  DEFFN'  211 

- 7075 

7555  DtFFN'  212 

- 7095 

7645  DEFFN'  213 

- 7100 

7845  DEFFN'  214 

- 7105 

8010  DEFFN'  215 

- 7130 

8140  DEFFN'  216 

- 7160 

8480  DEFFN'  217 

- 7190 

8640  DEFFN'  218 

- 8215  8260 


MAP 


560 
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5.19  ATH306.3 

The  purpose  of  the  'ATH306.3'  program  is  to  create  the  Learn  Symbol 
Definitions  (Flowchart  and  Directions)  pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH306.3'  program 
listing  and  reference  maps. 


AUTHOR  S/Et  r?m 


P ha eo  3 


ATH30fc. 3 


CNTNL 


(J 


I 


\ 


7000  Xittt  Program  > Al.JTHOR/3  (ATH306.  3)  Version  > 5.0  3500  T/VP  780335 

7010  RtM  *■*  Abstract  *«****♦*#******♦**■»*■«■**•**■»*+*■*♦■**•»*•»♦♦•»♦■»*****•►»•»***■»*■» 

7030  RtM  **  ** 

7030  RtM  ■*"*  This  program  will  create  the  introduction  pages  to  ** 

7040  RtM  *■»  tho  'Learning  The  Symbol  Definitions'.  *■* 

7050  RtM  *>  ** 


7070 

RtM  ** 

7080 

RtM  *•* 

7030 

GOSUB 

/ 

103 

< "DATASUBPROGHAM- , “ ATH106. 3“ , “9000“ ) 

RtM 

LOAD  DATA  FORMATS 

7100 

UtFFN 

/ 

050 

RtM 

DEFINE  ENTRY 

71 10 

D3  = 33 

REM 

CLR  PAGE  INDX 

7130 

04  = OO 

REM 

CLR  ADRS  INDX 

7130 

OUSUB 

/ 

310 

RtM 

INSRT  SDL  SET  # 

7140 

GOSUB 

* 

110 

<D1,D3,D3,D4*,D5> 

REM 

SAV  PAG  ON  DISK 

7150 

GOSUB 

* 

305 

(1) 

RtM 

LOAD  NXT  FORMAT 

7160 

D3  ~ 33 

RtM 

CLR  PAGE  INDX 

7170 

04  =•  OO 

REM 

CLR  ADRS  INDX 

7180 

GOSUB 

/ 

310 

RtM 

INSRT  SBL  SET  # 

7190 

GUSUB 

/ 

110 

(D1,D3,D3,D4*,D5> 

RtM 

SAVE  PAC  ON  DISK 

7300 

GOSUB 

/ 

010 

REM 

RTURN  TO  AUTO  MODE 

AUTHOR  Sys-tem 


P ha  s e? 


ATH  UOfc.  _ 3 


V MAP 


L>1 

- 7140 

7130 

D2 

- 7140 

7190 

D3 

- 7110 

7140  716.0  7190 

04* 

- 7140 

7190 

DS 

- 7140 

7190 

04 

- 7120 

7170 

c 
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AU I HOR  System:  Phase  3 — ATHSOfc. 3 — MAP 

0000  DEFFN'  0 

0001  DtFFN'  1 

000 2 DtFFN'  2 

0003  DtFFN'  3 
????  DtFFN'  10 

- 7200 

7100  DEFFN'  bO 
777?  DtFFN'  102 

- 70-30 

777?  DtFFN'  110 

- 7140  7190 
777?  DtFFN'  20S 

- 7150 

????  DtFFN'  210 

- 7130  7 ISO 


o 


564 


TAEG  Report  No.  59 


ATH306.4 

The  purpose  of  the  'ATH3(86.4'  program  is  to  create  the  Learn  Symbol 
Definitions  (Definitions  and  Rest  Directions)  pages  of  the  learning 
module. 

The  remainder  of  this  section  presents  the  'ATH306.41  program 
listing  and  reference  maps. 


ALJ 

7000 

7010 

7050 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7150 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7500 

7510 

7550 

7530 

7840 

7550 

7560 

7870 


I HCIK  Sy  &-t  em  : P ha  & e 3 — ATH 306 . 


CNTRI 


create  the  list  of 
and  Memory  Aids  used  in  the  learning 


Z##  Program  > AUTHOR/ 3 
RbM  **  Abstract  ********* 
REM  ** 

RbM  **  This  program  will 
RbM 
RbM 
RbM 
RbM  ** 

RbM  ** 

GUSUB 
DEFFN 


(A1H306.4)  Version  > 5.0  5500  1 /VP  780358 


** 


Symbols,  Definitions 
of  the  symbols. 


105 

050 


( ‘DATASUBPROGRAM*  , "ATH106.  4*  , "9000*  ) 


D3 

Q4 

Q1 

T1 


35 

00 

03 

UO 


gosub 

GOSUB 

GOSUB 

COSUB 

GOSUB 

If 

GOSUB 

GOSUB 


GOSUB 

GOSUB 

GOSUB 


510 

511 
5 15 

513 

514 

515 
50b 


RO*  <>  HEX (0000) 


THEN  7170 


(1) 
D3  = 
Q4  = 


35 

00 


510 

110 

Oil 


<D1,D5,D3,D4*,DS> 


REM  LOAD  DATA  FORMATS 
REM  DEFINE  ENTRY 
REM  CLR  PAGE  INDX 
REM  CLR  ADRS  INDX 
REM  IN1T  LINE  INDX 
REM  SET  SSL  TBL  INDX 
REM  INSRT  SBL  SET  # 

REM  SAVE  LOWER  TEXT 
REM  LOAD  MEMORY  AID 
REM  LOAD  DEFINITION 
REM  WRITE  TO  PAG  BUFR 
REM  NOT  END  OF  SSL  SET 
REM  SAVE  PAG  ON  DISK 
REM  LOAD  NXT  FORMAT 
REM  CLR  PAGE  INDX 
REM  CLR  ADRS  INDX 
REM  INSRT  SBL  SET  # 

REM  SAVE  PAG  ON  DISK 
REM  RUTRN  TO  AUTO  MODE 


566 
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t. 


AU1HQH  System:  Pha 


— ATH3QG _ A — 


7580  REM  *-* 

7590  REM  ** 

7300  REM  ** 

7310  REM  ** 

7350  REM  ** 

7330  REM  ** 

7340  REM  ** 

7380  REM  ** 

7360  REM  ** 

7370  REM  ** 

7380  REM 
7390  OEFFN 
7400  DIM 
7410  MAT  CORY 
7450  *TRAN 
7430  GOSUB  ' 101 
7440  RETURN 


Subroutine 
Abstract  > 

To  save  last  line  of  text  format  in  a temp  storage 
buffer. 

Variables  ) 


5 1 1 


B0*( ) > temp  storage  buffer 
R4*< ) > conversion  buffer 


Q5*( ) > page  buffer 


511 


BO*  < 1 )64 

Q5* < ) <961 , 64 > TO  B0*()<1,64> 
(05*0  <961, 64>,  R4*( ><177,4>)00  R 
(16,1,1,0) 


: REM  ENTRY 

: REM  DEFINE  WORK  BUFR 
: REM  SAVE  TEXT 
*.  REM  CLR  TEXT  BUFFER 
: REM  CLR  CRT  SCREEN 
: REM  EXIT 


< 


o 


567 


AUTHOR  System 


P Pi  a s.e  3 


ATH  30e  _ 4 


a.  a 


7450  REM  ** 

7460  HEM  ** 

74S0  REM  **  Abstract  > 

7490  REM  **  To  load  memory  aid  into  temp  buffer  and  determine 
7500  HEM  **  approx,  size  of  text  (in  lines). 

7510  REM  **  Variables  > 

7520  REM  **  B2*()  > mem  aid  storage  bufr  I 00*0  > register  stack 

7530  REM  **  Q3*()  > sbl  tbl  lokup  table  ! Rl*(  ) > storage  buffer 

7540  REM  **  RO  > buffer  size  ! G1  > output  page  lin  indx 

7550  REM  *•*  Q 2*0  > page  buffer  ! R4*()  > conversion  buffer 

7560  REM  **  T1  > symbol  table  indx  ! R1  > item  id 

7570  REM  ** 


I'll"  krf  WIlUMUUMMI 

nr  rn  nrinririf  ““1 

DEFFN  ' 212 
DIM 

GDSUB  ' 105 
MAT  CORY 
IF 


IF 

COSUB  ' 100 
GOSUB  ' 110 
GOSUB  ' 101 
*TRAN 

RETURN 


B2*(16)32 

G0*( 1 ) = -l- 

(Q3*(T1,5),R0,R1) 

Rl*( ) TO  B2*( ) 

RO  <=  512 
RO  = 512 

RO  = I NT (RO/18)  + 1 
16-Q1  >*  RO 

( 16,41,23, "To  Continue 

(D1,D2,D3,D4*,D5> 

(3,1,14,0) 

(Q2*( )<129,B96>  , R4*( 
G1  = 03 


: REM  ENTRY 

: REM  DEFINE  WORK  BUFR 
I REM  SET  NULL  LOOKUP 
: REM  FETCH  MEMORY  AID 
: REM  LOAD  TEMP  BUFFR 
THEN  7660  : REM  BUFR  SIZ  OK 

: REM  SET  TO  BUFR  MAX 
: REM  CMPUTE  SIZE 
THEN  7730  : REM  SPACE  AVA1ABLE 
Go  to  :nxt0“,0):  HEM  INSR7  EC)P  MSG 
: REM  SAVE  PAG  CJN  DISK 
1 REM  CLR  CRT  SCREEN 
K177,4>)00  R : REM  CLH  TEXT  BUFFER 
: REM  RESET  LINE  INDX 
: REM  EXIT 


THEN  7730 


) <177, 4> )00  R 


Phase  3 


ATHBOfc. A 


1 3 


AUTHOR  Syst  e»rr»  = 


7740 

7750 

7750 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7850 

7870 

7880 

7890 

7900 

7910 

7950 

7930 

7940 

7950 

79€.0 

7970 

7980 

79-90 

8000 


REM  ** 

REM  ** 

REM  Subroutine  **HHi-****^**************^*****-***-iHt-iHf-**-**-iHi-* 
REM  **  Abstract  > 

REM  **  To  load  definition  into  temp  buffer  and  determine 
REM  **  approx,  size  of  text  < in  lines). 

REM  **  Variables  > 

REM  **  00*  < ) > register  stack 

REM  Q3*<)  > sbl  tbl  lokup  table  ! Rl*()  > storage  buffer 

REM  **  RO  > buffer  size  ! Q1  > ou 

REM  +*  Q 5*0  > page  buffer  ! R4*()  > 

REM  T1  > symbol  table  indx  ! R1  > it 

REM  **  T5  > scaled  buffer  size  ! 

REM  ** 

REM 

DEFFN  ' 213 


00* < ) > register  stack 
Q3*()  > sbl  tbl  lokup  table 
RO  > buffer  size 
02*0  > page  buffer 
T1  > symbol  table  indx 
T5  > scaled  buffer  size 


Rl*<)  > storage  buffer 
Q1  > output  page  lin  indx 
R4*()  > conversion  buffer 
R 1 > item  id 


GOSUB 


IF 

GUSUB  ' 
GOSUB  ' 
GOSUB  ' 
*TRAN 

RETURN 


Q0*<1)  = “1"  : 
<03*<T1,4),R0,R1)  : 
RO  = I NT (R0/18 ) + 1 : 
T5  = RO  : 
16-Q1  >=  RO  THEN  8000  : 

< 15,41,23, "To  Continue  Go  to  :nxt0",0) 


110  <D1,D2,D3,D4*,D5) 
101  <3,1,14,0) 

<Q2*< )<129,895>  , 
01  = 03 


R4*  ( ) < 1 77 , 4> ) 00  R 


REM  ENTRY 

REM  SET  NULL  LOOKUP 
REM  FETCH  DEFINITION 
REM  CMPUTE  SIZE 
REM  SAVE  BUFR  SIZE 
REM  SPACE  AVA I ABLE 
>:  REM  INSRT  EOP  MSG 
REM  SAVE  PAG  ON  DISK 
REM  CLR  CRT  SCREEN 
REM  CLR  TEXT  BUFFER 
REM  RESET  LINE  INDX 
REM  EXIT 


I 


AU 

1 HUR 

S3  X 

s»  t:  em  I F3"  h3  s.  c 

3 — 

ATH306. 4 — 3 1 

8010 

REM 

•*** 

3020 

REM 

*•* 

8030 

REM 

*"* 

Subroutine  hhhhhhhhmhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhi-**  2 14 

8040 

REM 

Abstract  > 

8050 

REM 

To 

Insert  the  definition, 

memory  aid,  and  symbol  into 

8060 

REM 

page  buffer. 

8070 

REM 

-*•* 

Variables  > 

8080 

REM 

M(  ) 

> line  number  mem  bufr 

! Q2*()  > page  buffer 

8030 

REM 

T2 

> page  bufr-  lin  indx 

! 01  > 

page 

bufr 

lin  indx 

8100 

REM 

•*** 

T1 

> symbol  table  indx 

! UO  > 

symbol  table  indx 

8110 

REM 

Q3*()  > symbl  lookup  table 

! Q7*()  > symbl  id  table 

8120 

REM 

•#■-* 

R5*( ) > single  char  storage  ! Q9*< ) > i/o  buffer 

8130 

REM 

44 

R9*()  > scratch  buffer 

! T3  > 

temp 

col  indx 

8140 

REM 

44 

T4 

> symbol  length 

! RO* 

> eof 

flag 

8150 

REM 

44 

T5 

> bufr  siz  of  deffn 

! T6 

> left  margin  adjustmnt 

8160 

REM 

•*-* 

8170 

REM 

8180 

DEFFN 
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REM 

ENTRY 

8190 

DIM 

M(2) 

REM 

DEFINE  WORK  BUFR 

8200 

T2  = 01 

REM 

S7  0R  LINE  INDX 

8210 

T6  = 6 

REM 

SET  LEFT  MARGIN 

8220 

IF 

Q0*(9>  <>  “Y" 

TRIFN 

8270 

REM 

OPTION  NO‘1  SE.L 

8230 

IE 

T5  <>  1 

THEN 

8270 

REM 

NOI  ONE  LINE 

8240 

MAT  CORY 

R 1*  ( XI,  18>  TO  R9*()<1, 

64  > 

REM 

S I OR  ONE  LINE 

8250 

T4  = LEN(R9*<1)> 

REM 

CMPUT  LEN  OE  DEFN 

8260 

T6  = T6  + (20-74) 

REM 

CMPUT  MARGN  ADJUST 

8270 

COSUB 

' 107 

( T2, T6, 26, 03* ( T1 , 4 ) , VAL  < QO* ( 10 ) ) ) 

REM 

INSRT  DEFINITION 

8280 

M< 1 ) = 01 

REM 

STOR  LINE  INDX 

8290 

MAT  CORY 

B2*( ) TO  Rl*( ) 

REM 

FETCH  MEM  AID 

8300 

GUSUB 

' 107 

( T2, 43, 63, 03*  < T1 , 5 ) , VAL ( 00* ( 10 ) ) ) 

REM 

INSRT  MEM  AID 

8310 

M<2)  = 01 

REM 

STOR  LINE  INDX 

8320 

COSUB 

' lOO 

(T2,4, 1,R5*(9),0) 

REM 

INSRI  ITEM  FLAG 

8330 

DATA  LOAD 

BA  T #2,  < Q3* ( T 1 , 3 ) , RO* ) 09* ( ) 

REM 

FETCH  SYMBOL 

8340 

MAT  CORY 

09*  < ) < 1 , 1 5>  TO  R9*  (XI, 

64> 

REM 

LOAD  INTO  BUFR 

3350 

T4  - LEN ( R9* ( 1 ) ) 

REM 

CMPUTE  LENGTH 

8360 

T3  = 34  - I NT ( T4/2 ) 

REM 

CMPUTE  COL  INDX 

8370 

COSUB 

' lOO 

( T2, T3, T4, R9*( 1 ) , 0 ) 

REM 

INSRT  SYMBOL 

8380 

01  = M(l>  + 1 

REM 

SET  LINE  INDX 

83-30 

IE 

M( 1 ) > M(2> 

THEN 

8410 

REM 

IF  M ( 1 ) MAXIUM 

3400 

01  = M(2 ) + 1 

REM 

RESET  LINE  INDX 

8410 

T1  = T1  + 1 

REM 

I NCR  SBL  INDX 

8420 

IE 

07* (UO, 1 ) = 07* ( T1 , 1 ) 

THEN 

8440 

REM 

NO  1 END  OE  SET 

8430 

RO*  = EIEX(OOOO) 

REM 

SET  EOF  FLAG 

8440 

RETURN 

REM 

EXIT 

570 
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UNCLASSIFIED 
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AUTHOR  System:  Phase  3 — ATH30G. A — S 

84  SO  RtM  ** 

8460  RtM  **  n ||  h n ^ h hh  „ „ K „ , M M M m m » „ w , „ , n „ „ „ » „ » , , M ,,  , a j £ 

8480  RtM  **  Abstract  > 

8490  HEM  •**  To  save  final  page  of  text  on  the  disk. 

8S00  RtM  **  Variables  > 

8510  RtM  **  B0$()  > temp  storage  buffr  ! Q2*<  > > page  buffer 

8520  RtM  ** 

8530  RtM  ’•HHHHHHHHHHHHHHHMHHHHHHMHHHHHHHHHHHHHHMHHHHHMf' 

8540  OtFFN  '215  : REM  ENTRY 

8550  GOSUB  ' lOO  < 16, 1 , 64, B0$ < 1 ) , 0)  : REM  INSRT  LAST  LINE 

8560  GOSUB  ' 110  <D1 , 02, 03, 04*, 05)  : RtM  SAVE  PAG  ON  DISK 

8570  RETURN  : REM  EXIT 


AUl HOR 
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P ha ed  3 — 

ATH306. A 

B0*< 
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7A00 

7410 

00 

in 

IT 

O 

B3*< 

- 

7600 

7630 

8290 

U1 

- 
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7690 
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Da 

“ 
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7690 
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8560 

D3 
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7330 

7260 

7690 
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8560 
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- 

7360 

7690 

7960 

8560 

05 

- 

7360 

7690 

7960 

8560 

M< 

- 

8190 

8380 

8310 

8380 

8390 

8400 

00*  < 

- 

7610 

7900 

8330 

8270 

8300 

Q1 

- 

7130 

7670 

7720 

7940 

7990 

8300  8380  8310 

8380  8400 

02$  < 

- 

7A10 

7430 

7710 

7980 

03*  < 

7630 

7910 

8270 

8300 

8330 

QA 

7130 

7240 

Q7*< 

“ 

8A30 

094  < 

- 

8330 

8340 

HO 

“ 

7630 

7640 

7650 

7660 

7670 

7910  7930  7930 

7940 

RO* 

7300 

8330 

8430 

R1 

- 

7630 

7910 

Rl*< 

- 

7630 

8340 

8290 

R4*< 

- 

7A30 

7710 

7980 

R5*( 

- 

8330 

R9*< 

- 

83  AO 

8350 

8340 

8350 

8370 

T1 

- 

71  AO 

7630 

7910 

8370 

8300 

8330  8410  8430 

Ta 

- 

8300 

8270 

8300 

8330 

8370 

, 

T3 

- 

8360 

8370 

' 

TA 

- 

8350 

8360 

8350 

8360 

8370 

T5 

- 

7930 

8230 

T6 

- 

8310 

8360 

8370 

UO 

- 

7140 

8430 
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0000  DEFFN7  0 
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0003  DEFFN 7 3 
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- 7370 

7100  DtFFN7  50 
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- 7680  7350  8330  8370  8550 
????  DEFFN7  101 

- 7430  7700  7370 
????  DtFFN7  103 

- 7030 

????  DEFFN7  105 

- 7630  7310 
???*?  DtFFN7  107 

- 8370  8300 
????  DEFFN7  110 

- 7360  7630  7360  8560 
????  DtFFN7  305 

- 7330 

???*?  DtFFN7  310 

- 7150  7350 
73*30  DEFFN7  311 

- 7166) 

7530  DEFFN7  313 

- 7170 

78*30  DtFFN7  313 

- 7180 

8180  DtFFN7  814 

- 7130 

8540  DtFFN7  315 

- 7310 
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ATH306.5 


TAEG  Report  No.  59 


The  purpose  of  the  'ATH306.5'  program  Is  to  create  the  Practice 
Defining  the  Symbols  (Flowchart  and  Directions)  pages  of  the 
learning  module. 


The  remainder  of  this  section  presents  the  ’ATH306.5'  program 
listing  and  reference  maps. 


C 


575 


AUTHOR  Syst  ern  s P ha  < 


— ATM 306 - 


— CNTRI 


7000 

7010 

7oao 

7030 


X##  Pr 
REM  ** 
REM  ** 
HEM  ** 


ogram  > AUTHOR/ 3 
Abstract 


(ATH306.5)  Version  > 3.0  3300  T/VP  780333 


This  program  will  create  the  introduction  frames  to 


7040 

REM  *-* 

the  'Practice  Defining  the  Symbols'  section. 

** 

7050 

HEM  ** 

7060 

REM  #** 

Hfr- 

HHHH 

HHHHHMHHHHHHHHHHHHHHHHHHHHHHHHHt  4HHHHH 

HHHUH 

HHHUHHHHHHHHHUHHHHf 

7070 

REM  *-* 

7080 

hem  ** 

7090 

GOSUB 

/ 

103 

( “DATASUBPROGRAM" , "ATH106. 5“ , "9000“ ) 

REM 

LOAD  DATA  FORMATS 

7100 

DEFFN 

/ 

050 

REM 

DEFINE  ENTRY 

7110 

D3  = 33 

REM 

CLR  PAG  INDX  FLG 

7130 

04  = 00 

REM 

CLR  ADRS  INDX 

7130 

G0SU6 

/ 

310 

REM 

INSRT  SBL  SET  it 

7140 

GOSUB 

/ 

110 

<D1,D3,D3,D4*,D5) 

REM 

SAVE  PAG  ON  DISK 

7150 

GOSUB 

/ 

305 

(1) 

REM 

LOAD  NXT  FORMAT 

7160 

D3  = 33 

REM 

CLR  PAG  INDX  FLG 

7170 

04  = OO 

REM 

CLR  ADRS  INDX 

7180 

GOSUB 

/ 

310 

REM 

INSRT  SBL  SET  # 

7190 

GOSUB 

/ 

110 

<D1,D3,D3,D4*,D5> 

REM 

SAVE  PAG  ON  DISK 

7300 

GOSUB 

/ 

013 

REM 

RTURN  TO  AUTO  MOOE 

576 


AUTHOR  Syst em 


P ha  s.  e- 


ATH30fe.  €. 


CNTRL 


7000  X#it  Program  > AUTHUR/3  <ATH30€..6>  Version  > 2.0  £200  T/VP  780322 

7005  RbM  **  Abstract  .ihhhhhhhhhhhhhhhhhhhhhhhhhhhhhmhhhhhhhhhhhhhhhhhhhmhhhhi. 


7010 

7015 

RLM 

RbM 

+-* 

-fr* 

This  program  will  construct  the  practice  excrrsies 

*"* 

7020 

REM 

and  answers  for  the  'Practice  Defining  the  Symbols' 

*"* 

7025 

REM 

section. 

** 

7030  RbM  »■»»»« 


7035 

RLM  ** 

7040 

RbM  ** 

7045 

COSUB 

/ 

102 

< “DATASUBPROGRAM" , " ATH10E. 6" , “9000" ) 

RLM 

LOAD  DATA  FORMATS 

7050 

DhEFN 

/ 

050 

REM 

DEFINE  ENTRY 

7055 

D3  = OO 

REM 

SET  PAC  INDX  FLG 

7050 

Q4  * 00 

REM 

CL.R  ADRS  INDX 

705.5 

GUSUB 

/ 

215 

REM 

GEN  SSL  SET  TBL 

7070 

GOSUB 

/ 

210 

REM 

INSR  f SSL  SET  tt 

7075 

GOSUB 

/ 

£11 

REM 

SAVE  LOWER  TEXT 

7080 

COSUB 

/ 

212 

REM 

INSRT  SSL  LISI 

7085 

GOSUB 

/ 

213 

RbM 

INERT  SBL  TEST 

70-30 

IE 

T9  = 0 THEN  7125 

REM 

IF  E:ND  OF  SEGU 

7095 

GOSUB 

/ 

214 

RbM 

SAVE  PAGE  ON  DSK 

7100 

RESTORE 

1 

REM 

RSTR  FORMT  INDX 

7105 

GUSUB 

/ 

205 

( 1 ) 

REM 

RE-LOAD  FORMAT 

7110 

D3  * 32 

REM 

CLR  PAG  INDX  FLG 

7115 

04  = OO 

REM 

CLR  ADRS  INDX 

7120 

GO  10 

7070 

REM 

CREATE  ANOTHR  FMT 

7125 

GOSUB 

/ 

215 

REM 

SAVE  L.AST  PAGE 

7130 

GUSUB 

/ 

205 

<1> 

REM 

LOAD  NXT  FORMAT 

7135 

D3  = 32 

REM 

CLR  PAG  INDX  FLG 

71  AO 

04  = OO 

REM 

CLR  ADRS  INDX 

7145 

GOSUB 

/ 

210 

REM 

INSRT  SBL  SET  # 

7150 

GOSUB 

/ 

110 

(D1,D2,D3,D4$,D5) 

REM 

SAVE  PAG  ON  DISK 

7155 

GOSUB 

i 

013 

RbM 

RTURN  TO  AUTU  MODE 

580 
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7150 
7155 
7170 
7175 
7180 
7185 
7 ISO 
719b 
7800 
7805 
7810 
7815 
7880 
7885 
7830 
7835 
7840 


********************************^**--*-*-i(--ii.-ihhh<-*  2ii 


REM  ** 

REM  ** 

REM  *■*  Subroutine 
REM  **  Abstract  > 
REM  **  To  save 

REM  *■*  storage 
REM  **  Variables 
REM  *•*  Q8S  ( ) > 

REM  **  R4SO  > 

REM  ** 


last  line  of  text  buffer  in  a temp 
buffer. 

■j. 

page  bufftr 
conversion  buffer 


B0S()  > temp  storage  buffer 


DEFFN  ' 811 
DIM 

MAT  CORY 
STRAN 

G0SU6  ' 101 
RETURN 


BO'S  <1)64 

Q8S< ><951,54 > TO  BOS  (XI,  64  > 

(Q8S(  )<951,64>  , R4S(  X177,  4>)00  R 
( 15,1,1,0) 


: REM  ENTRY 

: RE.M  DEFINE  WORK  BUFRS 
: REM  LOAD  )JRK  BUFR 
: REM  CLR  TEXT  BUFFER 
: REM  CLR  CRT  SCREEN 
: REM  EXIT 
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AUTHQW  Sys-ternr  F’-l-.aass 


ATHBOt..  €3 


rfm  *-* 

RLM  ** 
RLM  ** 
RLM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  •*■» 
REM  ** 
REM  ** 
REM  ** 
REM  *■* 


Sub  rout  ino 
Abstract  > 

To  insert  a selection  of  symbols  and  symbol  definitions 
from  the  symbol  set  table  into  the  page  buffer. 

If  insufficient  symbols  to  fill  space  or  symbol 
definition  too  long  fill  space  with  others  symbols 
from  same  symbol  set. 

Variables  > 

U2*()  > symbl  set  table  ! U3$()  > sbl  set  loKup  tabl 

Bl*<  ) > systm  memory  buffr  ! B2*  < ) > memory  buffr  #1 


U3  > sbl  set  lohup  tbl  indx 
Q1  > page  buffer  line  indx 
T1  > symbol  table  index 
RO  > storage  bufr  size 
T3  > bufr  line  indx  (temp) 
T5  > symbol  length 
R5*()  > single  char  buffer 


U3$()  > sbl  set  loRup  table 
B2*<)  > memory  buffr  #1 
T9  > end  of  sequence  flag 
T7  > total  sbls  in  curnt  set 
QO$<)  > stacR  register  flags 
R1  > item  id  indx 
R9$(  > > scratch  bufr 
T€.  > bufr  col  indx  (center) 
BS  > random  subscript 


REM  ** 

RLM  *-»**************-tHf-*-#***-*HHl*-*-)t-*-*H******-*****-*-*-* 

ULFFN  ' 5 IE 

DIM  U3*(8)l,U2*(15)lfe,B2*(5)l 

INIT(OO)  U3*() 

U3  = 1 
T9  = 1 
Q1  * 9 

MAT  COPY  B2*(>  TO  Bl*() 

gosub  ' aoo  (T7,bimi>,bs,s> 

Ti  = VAL(STR(U2MUy),16.,l>> 

QOM1)  = "1“ 

COSUB  ' 10b  (Q3M I1,4),R0,R1> 

RO  - I NT  (RO/36.)  + 1 

IF  16-Q1  >~  RO  THEN  742b 

GOSUB  ' 217  (U2M1),U3M1),B2M1)) 

GO  10  7b  10 

T3  = Q1 

GOSUB  ' 107  ( T3,  24,  62,  Q3$  (11,4),  VAI_  < 00$  ( 10)  ) ) 

Q1  = Q1  + 1 

R9M1)  = STR(U2*(BS), 1,  15) 

Tb  * LEN(R9M1>) 

TS  = 13  - I NT (Tb/2) 


MAT  COPY 
GOSUB  ' c 


GOSUB 

IF 

GOSUB 

G010 

G0E1© 


7 45b 

COSUB  ' 

iOO 

(T3,T£.,Tb,R9M  1 ) ,0) 

REM 

INSRl  SYMBOL 

74E0 

GOSUB  ' 

100 

(T3,22, 1,R5M9>,0> 

RLM 

INSRl  HEM  FLAG 

746.  b 

BIN(U3MU3>>  - BS 

RLM 

STOR  SBL  SSSCRPr 

7470 

U3  = U3  + 1 

RLM 

INCH  LOKUP  TBL  IDX 

747b 

MAT  COPY 

81M  ) TO  E1EM ) 

REM 

UPUAT  MEM  TBL  #1 

7480 

IP 

T7  <>  VAL(EJ2M1)> 

THEN 

7505 

REM 

IF  END  OP  SEGU 

7485 

T9  = 0 

REM 

SET  EOF  FLAG 

7490 

INI T (00) 

B2M  ) 

REM 

CL.R  MEM  TBL  #1 

7495 

GOSUB  ' 

217 

(U2*(1),U3M1),B2M1)) 

REM 

F1L  RLMAING  SPACL 

7500 

GCJl  0 

7510 

REM 

BRANCH  TO  EXIT 

7505 

IF 

Q1  < 16. 

THEN 

7385 

REM 

FETCH  NEW  SBL 

7510 

U3  * U3  - 1 

REM 

CMPUT  TOTAL  SBLS 

751b 

RETURN 

REM 

EXIT 

REM  ENTRY 

REM  DEFINE  WORK  BUFR'' 
REM  INI T BUFFR 
REM  IN)  T L.OKUP  INDX 
REM  INI!  EOE  FLAG 
REM  IN1T  LINE  INDX 
REM  RESET  SYS  MEM  BUFR 
REM  GEN  RND  SUBSCRPT 
REM  CMPUT  SBL  TBL  INDX 
REM  SET  NUL  LOKUP  PLC 
REM  FETCH  DEFINITION 
REM  CMPUT  APPROX  SIZ 
REM  IV-  ENOUGH  SPACE 
REM  FILL  REMA1NG  SPACL 
REM  BRANCH  TO  EXIT 
REM  S i ORE  LINE  INDX 
RLM  INSRl  DEFINITION 
REM  I NCR  LINE  INDX 
REM  STORE  SYMBOL 
REM  CMPUT  SBL  L.ENCTH 
REM  CMPUT  COL  CENTER 
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REM  ** 

REM  ** 

REM  **  S 
REM  **  A 
REM  ** 

REM  ** 

REM  ** 

REM  **  V 
REM  ** 

REM  ** 

REM  ** 
REM  ** 
REM  ** 

REM  ** 
REM  ** 

REM  *■»*-»* 
DEFFN  ' 
DIM 

1NI1 (OO) 
INIT(OO) 
EOR 


Abstract  > 

To  create  a list  of  symbols  selected  from  those  symbols 
used  in  lower  portion  of  frame.  The  list  is  6 lines 
of  randomly  ordered  symbols. 

Variables  > 

B4*()  > temp  line  buffer  ! B5*()  > curnt  symbol  bu 

Bl*()  > system  memory  buffer  ! 62*0  > memory  buffer  # 

00*0  > stack  register  buffer  ! U3  > total  symbls  in  li 


random  subscript 
temp  line  bufr  index 
length  of  symbol 


65*0  > curnt  symbol  buffer 
62*0  > memory  buffer  #1 
U3  > total  symbls  in  list 
T1  > bufr  line  indx  (loop) 
T4  > sbl  list  lokup  index 
R5*0  > single  char  buffer 


DIM  B4*<1>64,B5*(1)15,B3*(5)1 

1NI1 (OO)  Bl*(> 

INIT(OO)  B3*<) 

EOR  T1  = 2 TO  6 

T3  = 24 

INIT (20)  B4*( ) 

MAT  COPY  B3*()  TO  Bl*() 

MAT  COPY  Bl*()  TO  B3*() 

GOSUB  ' 200  (U3, 61*0),  68,  5) 

T4  ~ VAL (U3* (B8 ) ) 

MAT  COPY  U2*(X(T4-1)*16+1,15>  TO  B5*(X1,15> 
T5  = LEN(B5*( 1 ) ) 

IF  T3+T5  <=  €-0  TEEN  7685 

IF  U3  <>  VAL ( 6 1 * ( 1 ) ) TEEN  7645 

lNIT(OO)  Bl*( > 

GOTO  7750 

MAT  COPY  B5*(  )<1,T5>  TO  B4*(XT3,T5> 

T3  = T3  + T5 

IF  T3  > 56  TEEN  7750 

MAT  COPY  R5*()<9, 1>  TO  64*()<T3+1,2> 

T3  = T3  + 3 

MAT  COPY  B3*()  TO  Bl*() 

COSUB  ' 202  (B1*,B1*( 1 > ,B8) 

IF  Bl*  <>  EEX(OO)  TEEN  7735 

BIN(B1*(1)>  = VAL(B1*( 1 ) ) + 1 
MAT  COPY  Bl*()  TO  63*0 

IE  U3  <>  VAL(B3*(  1 ) ) TEEN  7640 

INIT(OO)  Bl*( ) 

GOTO  7640 

GOSUB  ' 100  (Tl, 24, 40, STR(64*(1), 24,40>,0) 

NEXT  Tl 

RETURN 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  INIT  SYS  MEM  BUFR 
REM  INIT  MEM  BUFR  #1 
REM  BEGIN  LINE  INDX 
REM  INIT  COL  INDX 
REM  CLR  LINE  BUFR 
REM  RESET  SYS  MEM  BUFR 
REM  UPDAT  MEM  BUFR  #1 
REM  GEN  RND  SBSCRPT 
REM  FETCH  TBL  INDX 
REM  FETCH  SYMBOL 
REM  CMPUT  SBL  LENGTH 
REM  IF  LINE  NO)  FULL 
REM  IF  LIST  NOT  EMPTY 
REM  CLR  SYS  MEM  BUFR 
REM  WRITE  CURNT  LINE 
REM  LOAD  LINE  BUFR 
REM  I NCR  LINE  INDX 
REM  IF  LINE  FULL 
REM  LOAD  SEP  CHAR 
REM  I NCR  LINE  INDX 
REM  RESE1  SYS  MEM  BUFR 
REM  UPDAT  SYS  MEM  BUFR 
REM  DUPLIC1AT  SBL 
REM  I NCR  BITS  ON  COUNT 
REM  UPDAT  MEM  BUFR  #1 
REM  IF  NOT  END  Of  LIST 
REM  CLR  SYS  MEM  BUFR 
REM  START  LIST  OVER 
REM  WRITE  LINE  BUFR 
REM  I NCR  LINE  INDX 
REM  EXIT 
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AUTHOR  System:  F'  ha  s e 3 — ATH30G.  ■&  — a l a 

7765  REM  ** 

7770  REM  ** 

7780  REM  **  Abstract  > 

7785  HEM  **  Td  save  page  current  page  on  disk  and  insert 

7790  REM  **  message  indicating  that  section  continues  on  next 

7795  REM  **  page. 

7800  REM  ** 

7805  REM 

7810  OEFTN  '514  ; REM  ENTRY 

7815  GOSUB  ' 100  < 16, 41 ,23, "To  Continue  Go  to  :nxt0",0>:  REM  END  OF  PAG  MSG 
7850  GOSUB  ' 110  (D1,D5,D3,D4*,D5)  : REM  SAVE  PAG  ON  DSK 

7855  RETURN  : RE,.}  EXIT 
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mss 

7900 

7905 

7910 

7915 

7920 

7925 

7930 

7935 

7940 

7945 

7950 

7955 

7960 

7965 

7970 

7975 

7980 

7985 

7990 

7995 

8000 

8005 

8010 

8015 

8020 

8025 

8030 

8035 

8040 


RtM  *■* 
RtM  ** 
RLM  *•* 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
RtM  ** 
REM  ** 
RtM 
DtFFN  ' 
INIT(OO) 
INIT(OO) 
INIT(OO) 
INI! (OO) 


IF 

DATA  LOAD 
MAT  CORY 


Subroutine 
Abstract  > 

To  generate  and  store  the  list  of  symbols  in  the 
current  symbol  set. 

Variables  > 

U2*<)  > symbl  list  table 
B3*<)  > memory  buffer  #2 
T1  > sbl  tbl  lokup  indx 
T7  > sbl  list  tbl  indx 
03*  < ) > sbl  lokup  table 


2 1 6 


B2*()  > memory  buffer  #1 

Bl*<)  > system  memory  buffer 

UO  > sbl  tbl  lokup  indx 
Q7*()  > sbl  id  table 

Q9*< ) > i/o  buffer 
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U2*< ) 

Bl*( ) 

B2*( ) 

B3*<  ) 

T1  = UO 
T7  = 1 

Q7*<UO, 1)  <>  07* (71,1)  THEN  8035 
BA  T #2,  < 03*  < T 1 , 3 ) , RO* ) 09*0 
09*  < ) < 1 , 1 5>  TO  U2*(  )<(T7--1)*16+1,  15> 
BIN<STR(U2*<T7>,  16,1))  = T1 


GOTO 


RETURN 


T1  = 

T1  + 

1 

: REM 

INCH 

SBL  TBL  INDX 

T7  = 

T7  + 

1 

: RtM 

INCR 

SBL  LSI  INDX 

8000 

: REM 

FETCH 

NXT  SBL 

T7  = 

T7  - 

1 

: RtM 

CMPUT 

TOTAL  SBLS 

REM  ENTRY 

REM  IN1T  TABLE  BUFR 
REM  CLR  SYS  MEM  BUFR 
REM  CLR  MEM  BUFR  #1 
REM  CLR  MEM  BUFR  #2 
REM  IN1T  SBL  TBL  INDX 
RtM  IN1T  SBL  LST  INDX 
REM  END  C)F  SBL  SET 
REM  FETCH  SYMBOL 
RtM  STOH  SYMBOL 
REM  SI  OR  SBL  TBL  INDX 


REM  EX I) 


WflttMMttNIMttSl 


r 
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8045 

8050 

805b 

8050 

8055 

8070 

8075 

8080 

808b 

8090 

8095 

8100 

8105 

8110 

8115 

8120 

8125 

8130 

8135 

8140 

8145 


REM 

REM 

RtM 

REM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

RtM 

REM 

REM 

RtM 

RtM 

RtM 

RtM 


Subroutine 

Abstract  > 

To  fill  the 
symbol  from 
on  current  page. 

Variables  > 

U2t<)  > symbol  list  table 

B2t<)  > memory  buffer  #1 

Blt< ) > system  memory  buf r 

T7  > total  sbls  in  list 

ROtO  > search  id 

QOt< ) > stack  register  buf r 

Q3tO  > sbl  tbl  lokup  table 

R1  > item  id 

R9t< ) > scratch  buffer 

T5  > buffer  col  index 

Bit  > memory  indx  fig 


2 1 7 


space  remaining  on  a page  with  a 
current  set  that  has  not  been  inserted 


U3*<>  > sbl  set  lookup  table 
B3t<)  > memory  buffer  #2 
Q1  > output  page  line  indx 
B8  > random  subscript 
R2t<)  > srch  return  buffer 
T1  > sbl  tbl  lokup  indx 
RO  > buffer  size 
T3  > temp  bufr  line  indx 
Tb  > length  of  symbol 
R5t< ) > single  char  bufr 
T9  > end  of  list  flag 


8150 

UfcFFN  ' 

217 

<U2t(l),U3t(l>,B2t<l>) 

REM 

ENTRY 

8155 

INIT(OO) 

B3t( ) 

REM 

CLR  MEM  BUFR  #2 

8150 

IF 

01  >=  15 

THEN 

8335 

REM 

If  PAGE  FULL 

8155 

MAT  COPY 

B3t<  > TO  Bit < ) 

REM 

RESET  SYS  MEM  BUFR 

8170 

GOSUB  ' 

200 

<T7, Bit < 1 ) , B8, 5) 

RtM 

GEN  RND  SB9CHP1 

8175 

If 

T7  < VAL ( B 1 1 < 1 > ) 

THEN 

8335 

RtM 

END  OF  SBLS 

8180 

BIN(ROt<l) ) = B8 

REM 

CCMV  TU  SRCH  ID 

8185 

MAT  SEARCH 

U3t<  ) , = ROt(l)  TO  R2tO 

REM 

SRCH  FOR  SAM  SBL 

8190 

IP 

R2t ( 1 ) = HEX (OOOO) 

THEN 

8205 

RtM 

IF  NO  DUPLICIATES 

8195 

If 

T7  <>  VAL ( B It ( 1 > ) 

THEN 

8170 

REM 

If  ALL  SBLS  ON  PAG 

8200 

GOTO 

8335 

REM 

BRANCH  TO  EXIT 

8205 

QOt(l)  = "1" 

REM 

SET  NULL  LOKUP  FLG 

8210 

T1  = VAL(STR(U2t(E(8),  15,  1)  ) 

. REM 

FETCH  LSI  TBL  INDX 

8215 

GOSUB  ' 

105 

<Q3t ( T1 , 4) , RO, R1 ) 

RtM 

FETCH  DEFINITION 

8220 

RO  = I NT (RO/35)  + 1 

REM 

C.MPUT  APPROX  SIZ 

8225 

If 

15-01  < RO 

THEN 

8170 

RtM 

SBL  DOES  NOT  FIT 

8230 

T3  = 01 

REM 

STORE  LINE  INDX 

8235 

GOSUB  ' 

107 

(T3, 24,52, G3t (T1 , 4 > , VAL(QOt ( 10) ) ) 

REM 

INSR7  DEFINITION  ! 

C240 

01  = 01  + 1 

REM 

I NCR  LINE  INDX 

8245 

R9t < 1 ) = STR ( U2t  < B8 ) , 1 , 1 5 ) 

REM 

STORE  SYMBOL 

8250 

T5  = LEN ( R9t ( 1 ) ) 

REM 

CMPUT  SBL  LENGTH 

8255 

T6  = 13  - I NT <T5/2) 

REM 

CMPUT  COL  CENTER 

8250 

GOSUB  ' 

100 

(T3, T5, T5, R9t < 1 ) , 0) 

REM 

INSRT  SYMBOL 

8255 

GOSUB  ' 

100 

(T3,22, l,R5t(9) ,0) 

REM 

INSRT  ITEM  FLAG 

8270 

MAI  COPY 

Bit ( ) 10  B3t ( ) 

REM 

UPDAT  MEM  BUFR  #2 

8275 

MAT  COPY 

B2t ( ) TO  Blt( ) 

REM 

RESET  SYS  MEM  BUFR 

8280 

BIN(U3t <U3) ) * 88 

REM 

ADO  TO  INDX  TBL 

8285 

U3  = U3  + 1 

REM 

INCH  1BL  INDX 

82-30 

GOSUB  ' 

202 

<Blt,Blt< 1 > ,88) 

REM 

ADO  TO  MEM  BUFFR 

8295 

If 

Bit  <>  HEX (00) 

THEN 

8155 

REM 

DUPLICATE  SBL 

8300 

BIN<Blt < 1 ) > « VAL (Bit ( 1 ) ) 

♦ 1 

REM 

I NCR  SYS  COUNTER 

8305 

MAT  COPY 

Bit ( ) TO  B2t( ) 

REM 

UPDAT  MEM  BUFR  #1 

8310 

IF 

77  <>  VAL(B2t ( 1 ) ) 

THEN 

8150 

REM 

MORE  SBLS  TO  SCAN 

8315 

If 

T9  = 0 

THEN 

8335 

REM 

END  OF  SBL  LIST 

8320 

T9  = 0 

REM 

SET  END  Of  PAG  FLG 

8325 

IN1T<00) 

B2t  < ) 

RtM 

CLR  MEM  BUFR  #1 

8330 

GOSUB  ' 
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( U2t ( 1 > , U3t ( 1 ) , B2t ( 1 ) ) 

REM 

FILL  REMAINC  SPACE 

8335 

RETURN 

REM 

EXIT 
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# MAP 


7070 

- 

7120 

7125 

- 

7090 

7385 

- 

7505 

7425 

- 

7410 

7505 

- 

7480 

7510 

- 

7420 

7500 

7640 

- 

7735 

7745 

7645 

- 

7670 

7685 

- 

7665 

7735 

- 

7720 

7750 

- 

7680 

7695 

8000 

- 

8030 

8035 

- 

8000 

8160 

- 

8310 

8165 

- 

8295 

8170 

- 

8195 

8225 

8205 

- 

8190 

8335 

- 

8160 

8175  8200  8315 

4>  AUTHOR  S/Btem:  P”  »"..£=>  s Ef  3 — ATH  30€  - €>  --  V MATJ 


BOt<  - 7220  7225  7880 

Bit  - 7715  7720  8290  8295 

Bit ( - 7380  7385  7't75  7610  7635  7640 

7975  8165  8170  8175  8195  8270 
B2t < - 7355  7380  7415  7475  7480  7490 

B3t<  - 7605  7615  7635  7640  7710  7730 

B4t<  - 7605  7630  7685  7700  7750 

B5t<  - 7605  7655  7660  7685 

B8  - 7385  7390  7440  7465  7645  7650 

D1  - 7150  7820  7885 

02  - 7150  7820  7885 

D3  - 7055  7110  7135  7150  7820  7885 

D4t  - 7150  7820  7885 

05  - 7150  7820  7885 

QOt < - 7395  7430  8205  8235 

Ql  - 7375  7410  7425  7435  7505  8160 

Q2t<  - 7225  7230 

Q3t ( - 7400  7430  8005  8215  8235 

04  - 7060  7115  7140 

Q7t<  - 8000 

Q9t ( - 8005  8010 

HO  - 7400  7405  7410  8215  8220  8225 

ROt  - 8005 

ROt ( - 8180  8185 

R1  - 7400  8215 

R2t ( - 8185  8190 

R4t < - 7230 

R5t ( - 7460  7700  8265 

R9t  ( - 7440  7445  7455  8245  8250  826.0 

T1  - 7390  7400  7430  7620  7750  7755 

T3  - 7425  7430  7455  7460  7625  7665 

8265 

T4  - 7650  7655 

T5  - 7445  7450  7455  7660  7665  7685 

T6  - 7450  7455  8255  8260 

T7  - 7385  7480  7995  8010  8015  8025 

T9  - 70-30  7370  7485  8315  8320 

i in  — 7Qon  orv^o 

U2t<  - 7355  7390  7415  7440  7495  7655 

U3  - 7365  7465  7470  7510  7645  7670 

L)3t  ( - 7355  7360  7415  7465  7495  7650 


7645  7670  7675  7710  7715  7725  7730  7740 
8275  8290  8300  8305 

7495  7980  8150  8275  8305  8310  8325  8330 
7735  7985  8155  8165  8270 


7715  8170  8180  8210  8245  8280  8290 


8225  8230  8240 


7990  8000  8005  8015  8020  8210  8215  8235 
7685  7690  7695  7700  7705  8230  8235  8260 


7690  8250  8255  8260 
8035  8170  8175  8195  8310 


7970  8010  8015  8150  8210  8245  8330 
7735  8280  8285 
8150  8185  8280  8330 
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ATH30fc.  €■ 


MAP 


0000  DfcFFN'  0 

0001  DfcFFN'  1 
0003  DfcFFN'  a 
0003  DfcFFN'  3 
????  DfcFFN'  13 

- 7155 

7050  DfcFFN'  50 
????  DEFFN'  100 

- 7455  7450  7750  7815  7880  8350  8355 
????  DfcFFN'  101 

- 7335 

????  DfcFFN'  103 

- 7045 

????  DEFFN'  10b 

- 7400  8315 
????  DfcFFN'  107 

- 7430  8335 
????  DfcFFN'  110 

- 7150  7830  7885 
????  DEFFN'  300 

- 7385  7645  8170 
????  DfcFFN'  303 

- 7715  8390 
????  DfcFFN'  305 

- 7105  7130 
????  DfcFFN'  310 

- 7070  7145 
7315  DfcFFN'  311 

- 7075 

7350  DfcFFN'  313 

- 7080 

7600  DfcFFN'  313 

- 7085 

7810  DfcFFN'  314 

- 7095 

7875  DEFFN'  315 

- 7135 

7965  DfcFFN'  316 

- 7065 

8150  DfcFFN'  317 

- 7415  7495  8330 
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ATH3(96. 7 

The  purpose  of  the  'ATH306.7'  program  is  to  create  the  Test  Yourself 
(Flowchart)  page  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH306.7'  program  listing 
and  reference  maps. 


AUTHOR 


P h-a  s i? 


ATH306.  ~7 


V MAK» 


Syst Bm : 


01  - 7140 

Da  - 7140 

03  - 7110  7140 

04*  - 7140 

05  - 7140 

04  - 7120 
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AUTHOR  Sy&tem:  Phase  3 — ATH306.7  — ' MAP 

0000  UEFFN'  0 

0001  DfcFFN'  1 

0002  DfcFFN'  2 

0003  DfcFFN'  3 
????  DfcFFN'  14 

- 7150 

7100  DfcFFN'  SO 
????  DfcFFN'  102 

- 7090 

????  DfcFFN'  110 

- 7140 

????  DfcFFN'  210 

- 7130 


( 
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ATH306.8 

The  purpose  of  the  'ATH3f56.8'  program  is  to  create  the  Test  Yourself 
(Directions,  Memory  Aids,  and  Answers)  pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH3(J6.8'  program 
listing  and  reference  maps. 
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CI^TTHCL. 


AUTHOR  S x =■►  -t  e>m  = 


P ha  & e 3 


— /NTH  BOC.  _ S3  — 


7000  Xtttt  Program  > AUTHOR/ 3 <ATH306.8)  Version  > 2.0  2200  T/VP  780323 

7010  RbM  **  Abstract 


7020  RbM  **  *+ 
7030  RbM  *•*  This  program  will  construct  the  test  and  answer  frames  ** 
7040  REM  included  in  the  'Test  Yourself'  section.  ** 
7050  RbM  *•*  ** 


7060  R EM  ******HH»HH*^1HMHt^^-)HHHHHHHHH*^^1HHH«-**iH«'HHI’*****4HH*****^****-tHH*'***-* 


7070 

RtM  ** 

7080 

RbM  *■* 

70-30 

GOSUB 

/ 

102 

< “DATASUBPROGRAM"  , " ATH106.  8"  , "9000“ 

): 

7100 

DEFFN 

/ 

050 

7110 

D3  = 00 

7120 

Q4  = 00 

7130 

CUSUB 

/ 

210 

7140 

COSUB 

/ 

211 

7150 

COSUB 

/ 

212 

7160 

CUSUB 

/ 

110 

<D1,D2,D3,D4*,D5) 

7170 

RbM  *-* 

7180 

CUSUB 

/ 

205 

(1) 

7190 

D3  = 32 

7200 

04  = OO 

7210 

GOSUB 

/ 

210 

7220 

COSUB 

/ 

213 

7230 

CUSUB 

/ 

214 

(5) 

7240 

GOSUB 

/ 

215 

7250 

RbM  *•* 

7260 

GOSUB 

/ 

205 

(1) 

7270 

D3  = OO 

7280 

04  = OO 

72-30 

GOSUB 

/ 

210 

7300 

CUSUB 

' 

213 

7310 

GOSUB 

' 

214 

(4) 

7320 

COSUB 

' 

215 

7330 

RbM  ** 

7340 

COSUB 

/ 

015 

2 

RtM  LOAD  DATA  FORMATS 
REM  DEFINE  ENTRY 
RbM  SET  PAG  INDX  FLG 
RbM  CLR  ADRS  INDX 
RbM  INSR'I  SBL  SET  It 
REM  GEN  RND  SBL  LIST 
REM  INSR'I  TEST  SBLS 
RbM  SAVE  PAG  ON  DISK 

REM  LOAD  NXT  FORMAT 
REM  CLR  PAG  INDX  FLG 
RbM  CLR  ADRS  INDX 
REM  INSRT  SSL  SET  # 

RbM  SAVE  L-OWR  TEXT 
REM  INSRT  MEM  AIDS 
REM  SAVE  PAG  ON  DISK 

REM  LOAD  NXT  FORMAT 
REM  SET  PAG  INDX  FLG 
REM  CLR  ADRS  INDX 
RbM  INSRT  SBL  SET  # 

RbM  SAVE  LOWR  TEXT 
RbM  INSRT  ANSWERS 
RbM  SAVE  PAGE  ON  DISK 

RbM  RTURN  TU  AUTO  MODE 
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P h-a  be  3 


ATH30G. a 


Sll 


i 


7350 

RtM 

7360 

RtM 

•** 

7370 

RtM 

Subroutine  »» * **■*  211 

7380 

RtM 

*■*  Abstract  > 

7390 

RtM 

*"* 

To  generate  a random  list  of 

symbols  from  the 

7400 

RtM 

*•* 

current  symbol  set. 

7410 

RtM 

Variables  > 

7480 

RtM 

** 

U2*()  > random  symbol  list 

! Bl*( ) > system  memory  buff r 

7430 

REM 

T1  > symbol  tbl  indx  (temp) 

! UO  > symbol 

tbl  indx 

7440 

RtM 

T7  > total  symbols  in  list 

! B8  > random 

subscript 

7450 

RtM 

U3*(>  > temp  symbol  list 

! T2  > sbl  Is- 

t indx  (temp) 

7460 

RtM 

Q7*()  > symbol  id  table 

! 03*0 

> symbol  lokup  table 

7470 

RtM 

*"* 

09*0  > i/o  buffer 

! RO*  > scratch  register 

7430 

RtM 

7490 

RtM 

******^**SH*^***********SHH*-*-«- #■*■*■#•*■*■*■*■*+■*+■* 

7500 

UEFFN  ' 

211 

RtM 

ENTRY 

7510 

DIM 

U2*(  15)  16,U3*(  15)  16 

RtM 

DEFINE  WORK  BUFRS 

7580 

lNIT(OO) 

U2*<  ) 

RtM 

CLR  TABLE 

7530 

INI  1(00) 

U3*(  ) 

REM 

CLR  TABLE 

7540 

INIT(OO) 

Bl*<  ) 

RtM 

CLR  SYS  MEM  BUFR 

7550 

T1  = UO 

REM 

IN1T  SBL  TBL  INDX 

7560 

T2  - 1 

RtM 

IN1T  SBL  LST  INDX 

7570 

T7  = 1 

RtM 

INI!  SBL  LST  INDX 

7580 

IF 

07*<U0, 1)  <>  G7*(T1,1) 

THEN  7650 

RtM 

END  OF  SBL  LIST 

7590 

DATA  LOAD  BA  T #2,  (Q3*(T 1,3) , RO*) 

09*  ( ) 

RtM 

FETCH  SYMBOL 

7600 

MAT  C0P\ 

09* ( ) < 1 , 1 5>  TO  U3* ( ) < ( T7- 

1 )*16+1 , 15> 

REM 

STORt  SYMBOL. 

7610 

BIN(SIR(U3*(T7), 16, 1 ) ) = 

T1 

REM 

SI  OR  SBL  TBL  INDX 

7620 

T1  = T1  + 1 

RtM 

INCR  SBL  TBL  INDX 

7630 

T7  = T7  + 1 

REM 

INCR  SBL  LSI  INDX 

7640 

GO  10 

7580 

REM 

CHECK  NX!  SBL 

7650 

T7  = T7  - 1 

REM 

CMPUT  LIST  Sl^t 

7660 

GOSUB  ' 

200  ( 77, B 1*  ( 1 ) , B8, 20) 

RtM 

GEN  RND  SUBSCRIPT 

7670 

U2*(T5>  = U3*(BS> 

RtM 

SI  OR  RND  SYM30L 

7680 

T2  = T2  + 1 

REM 

INCR  SBL  LSI  INDX 

7690 

IF 

VAL  < B 1 * < 1 ) ) < T7 

THEN  7660 

RtM 

NOT  END  OF  LI SI 

7700 

RETURN 

RtM 

EXIT 

597 


AUTHOR  System:  Phase  3 — ATH306.a  —SI 


7710  RtM  ** 

7720  RtM  *■* 

7730  RtM  **  Subroutine  ***************+*********+*-*■■»■*-»■■#+■*  ■#*■#•♦*-*•»■ -»*-*■*  515 
7740  RtM  **  Abstract  > 

7750  RtM  **  To  insert  the  list  of  random  test  symbols. 

7760  RtM  *•*  Variables  > 

7770  RtM  **  Tl*(>  > item  number  buffer  ! T2  > page  buffer  line  indx 

7780  RtM  •*"*  T1  > symbol  tbl  indx  ! U24><)  > rnd  symbol  list 

7790  RtM  R4*<)  > conversion  buffer  ! TV  > total  symbol  in  list 

7800  RtM  **  T3  > end  of  column  1 ! T4  > begining  of  column  2 

7810  RtM  •** 

7820  RtM 


7830 

DEFFN  ' 

212 

7840 

DIM 

Tl*<2)4 

7850 

T2  = 10 

7860 

T3  = I NT ( (T7-1 >/2>  + 1 

7870 

FUR 

T1  = 1 TO  T3 

7880 

T4  = T1  ♦ T3 

7890 

CONVERT 

T1  TO  T1*<1>,  <##.#) 

7900 

CONVERT 

T4  TO  Tl«<2),  <##.#> 

7910 

*TRAN 

(T1*()<1,1>,  R4*< )<185,4>> 

R 

7920 

*TRAN 

<T1*0<4,  1>,  R4*< ><185,4>> 

R 

7930 

$ TRAN 

<T1*<><5, 1>,  R4*( ><1B5,4>) 

R 

7940 

*TRAN 

<T1*<><8, 1>,  R4*< ><1B5,4>) 

R 

7950 

IF 

STR<U2<<<T1 ) , lb,  1 ) “HEX  < OO) 

THEN 

7980 

7960 

GOSUB  ' 

IOO 

<T2,24,4,T1*<1),0) 

7970 

GOSUB  ' 

IOO 

<T2,28, 15, U2*<  T 1 ) ,0) 

7980 

IF 

STR<U2t < T4 ) , 16, 1 >=H£X(0O> 

THEN 

8010 

7990 

GOSUB  ' 

IOO 

<T2,44,4,T1*<2),0) 

8000 

CUSUB  ' 

100 

<T2,48, 1S,U2*<T4>,0) 

8010 

T2  = T2  + 1 

8020 

NEXT 

T1 

8030 

RETURN 

REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  IN1T  BUFR  LIN  INDX 
REM  CMPUT  MID  POINT 
REM  LIST  TABLE 
REM  CMPUT  BEG  COL  2 
RtM  CREATE  ITEM  ID 
REM  CREATE  ITEM  ID 
REM  BLANK  FILL  NUMBR 
REM  BLANK  FILL  NUMBR 
REM  BLANK  FILL  NUMBR 
REM  BLANK  FILL  NUMBR 
REM  NULL  SYMBOL 
REM  INSRT  ITEM  NUMBR 
REM  INSRT  SYMBOL 
REM  NULL  SYMBOL 
REM  INSRT  ITEM  NUMBR 
REM  INSRT  SYMBOL 
REM  I NCR  LINE  INDX 
RtM  CONT  TBL  LIST 
RtM  EXIT 


I 


AUTHOR  System:  Phai 


— ATHSOfc. 


8040  RbM  ** 

8050  RbM  ** 

8050  REM  ** 

8070  RbM  ** 

8080  HbM  ** 

8090  HbM  *+ 

8100  RbM  ** 

8110  RbM  ** 

8120  HbM  ** 

8130  HbM  ** 

81  AO  HbM  ****^**********^***************-*******-»**** 

8150  UbFFN  ' 213 

8150  DIM  BOt  < 1 ) 5A 

8170  MAT  COPY  Q2*  < > <951 , 54>  TO  B0«()<1,54> 

8180  *TRAN  <Q2.*<  )<951,54>,  R4*< > < 177, 4> >00  H 

8190  GUSLIB  ' 101  (15,1,1,0) 

8200  HETURN 


Subroutine  ■ihI'#-ihhhhhhhhhhhhhhhhmhhhhhhhhhhhhhhhhhhhhhhhI"#  2 13 
Abstract  > 

To  save  the  last  line  of  page  buffer  in  a temp 
storage  buffer. 

Variables  > 

E0$()  > temp  storage  buffr  ! 

R4$()  > character  conv  bufr  ! 


Q2*()  > output  page  buffer 


RbM  ENTRY 

RbM  DEFINE  WORK  BUFR 
RbM  LOAD  1 EMP  BUFFR 
RbM  CLR  PAGE  BUFFR 
RbM  CLR  CRT  SCREEN 
RbM  EXIT 


599 


4 


AUTHOR 


-fc  ern  : 


Phase  3 — ATH^Ofe..  S — 


8810 

8830 

8830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8980 

8330 

3340 

8350 

8360 

8370 

3380 

8990 

8400 

8410 

8480 

8430 

3440 

8450 

8460 

8470 

8480 

84-90 

8500 

8510 

8580 

8530 

8540 

8550 

8560 

8570 

8580 

35-30 

8600 

8610 


REM  *+ 
Nt.pi  ** 
REM  *+ 
REM  ** 
RUM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *+ 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 


Abstract  > 

To  insert  either  the  memory  aids  or 
for  those  symbols  used  in  the  test. 
Variables  > 

(31  > output  bufr  line  indx  ! T1  > 

T8  > symbol  tbl  lokup  indx  ! Q0*< 

Q3*()  > sbl  lookup  table  ! RO  > 

R 1 > item  id  ! 08*( 

R4*()  > char  conversion  bufr  ! T3  > 

R9*()  > scratch  line  bufr  ! R5*( 

U8S()  > rnd  symbol  list  ! T4  > 

T7  > total  symbols  to  list  ! T5  > 


the  definitions 


REM  ** 

NEM 

UEFFN  ' 814  (T4)  : 

Q1  = 3 : 

EON  T1  = 1 TO  T7  : 

T8  = VAL(STR(U8*(T1  ),  16,  1 ) ) : 

qo*(1)  - -l-  : 

ensue  ' 105  (G3*(T8,t4>,ro,ri > : 

RO  = INT (R0/38)  + 1 : 

IF  16-Q1  >=  RO  THEN  8510  : 

GOSUB  ' 100  ( 16,41,83, "To  Continue  Go  to  :nxt0“,0) 
GUSUB  ' 110  (01, 08, 03, 04*, 05)  I 

CUSUB  ' 101  (3,1,14,0)  : 

*TRAN  ( Q3* ( ) <139, 89G> , R4* ( ) <177, 4> )00  R : 

Q1  = 3 : 

T3  = Q1  : 

GOSUB  ' 107  (T3,86,68,G3*(  1 8, T 4 ) , VAL <Q0*( 10)  ) ) : 

Q1  = Q1  + 1 : 

T5  = (Tl-1 )*16  + 1 : 

CONVERT  T 1 TO  R9*(l>,  (#*.#)  : 

* TRAN  (R9*()<1,1>,  R4*( ) <185, 4> ) R : 

*TRAN  ( R9* ( ) <4, 1 >,  R4*< ) <185, 4> ) R : 

MAT  COPY  U2*(XT5, 15>  TO  R9*(X5,  16> 

GOSUB  ' 10O  (T3,6,80,R9*( 1 ) ,0)  : 

NEXT  T 1 : 

RETURN  : 


11  > symbol  list  indx 
G0*<)  > register  stack 
RO  > buffer  size 
Q8*( ) > output  page  buffer 
T3  > bufr  line  indx  (temp) 
R5*( ) > single  char  storage 
T4  > symbol  tbl  item  index 
T5  > symbol  list  indx  (temp) 


REM  ENTRY 

REM  INI!  OUFR  LIN  INDX 
REM  BEGIN  LISTING 
REM  FETCH  SBL  TBL.  INDX 
REM  CLR  INDX  LOKUP  FLG 
REM  FETCH  SBL  TEXT 
REM  CMPUT  BUFR  SIZE 
REM  SPACE  AVA1ABLE 
):  REM  1NSRT  EUP  MSC 
REM  SAVE  PAG  ON  DISK 
REM  CLR  CRT  SCREEN 
REM  CLR  PAGE  BUFFR 
REM  RESET  BUFR  INDX 
REM  STORE  BUFR  INDX 
REM  INSRT  TEXT 
REM  I NCR  BUFR  INDX 
REM  CMPUT  LSI  TBL  IDX 
REM  CREATE  ITEM  NI.IMBR 
REM  BLANK  FILL  NUMBER 
REM  BLANK  FILL  NUMBER 
REM  LOAD  SYMBOL 
REM  INSRT  SYMBOL 
REM  CONT  LIST ING 
REM  EXIT 


P ha  b e 3 


ATH  306  - Sit 


SIS 


t 


8620 

RtM  ** 

8630 

HEM  ** 

8640 

HLM  *■* 

Subroutine 

2 1 5 

8650 

RtM  *■» 

Abstract  > 

8660 

RtM  *•* 

To  save  page  on  disk  after  reloading 

last  line  of 

8670 

RtM  ** 

text  from  storage  buffer. 

8680 

RtM  ** 

Variables  > 

8630 

RtM  ** 

B0*O  > temp  storage  buffer  ! 02* < ) 

> output  page 

buffer 

8700 

RtM  *+ 

8710 

NLM  **-*hhh>*-ihhhhhh* #shhhhhm  »»^»*»»*»»»»»»»»»»»»»» 

8720 

UEFFN 

' 215 

: REM  ENTRY 

8730 

GOSUB 

' 100  <16,1,64,B0*(1>,0) 

: REM  INSRl 

LAST 

LINE 

8740 

GOSUB 

' 110  < D1 , D2, D3, D4* , 05 ) 

: REM  SAVE  RAGE 

ON  DISK 

8750 

RETURN 

: RtM  EXIT 

O 

601 


AU1  I IQK 


P h St  Bl?  3 


ATH30G. « 


=»*  MAI 


7580 

- 7640 

7650 

- 7580 

7660 

- 7690 

7980 

- 7950 

8010 

- 7980 

8510 

- 8450 

F>  ha  se  3 


ATHaOfe.  fc{ 


V MAP 


AU  i HOR  Syst  e-m  S 


80*  < 

- 

8160 

8170 

8730 

Bit  ( 

- 

7540 

7660 

76-90 

BS 

- 

7660 

7670 

01 

- 

7160 

8470 

8740 

□a 

- 

7160 

8470 

8740 

D3 

- 

7110 

7160 

71-90 

7370 

8470 

8740 

D4* 

- 

7160 

8470 

8740 

D5 

- 

7160 

8470 

8740 

QO*< 

- 

8430 

8bao 

Q1 

- 

8390 

8450 

8500 

8510 

8530 

03*  < 

- 

8170 

8180 

8490 

03*  ( 

- 

7590 

8430 

8530 

04 

- 

7iao 

7300 

7380 

07*  ( 

- 

7580 

09*  < 

- 

7590 

7600 

HO 

- 

8430 

8440 

8450 

RO* 

- 

75-90 

R1 

- 

8430 

R4*< 

- 

7910 

7930 

7930 

7940 

8180 

8490 

8560 

8570 

R9*< 

- 

8550 

8560 

8570 

8580 

8590 

T1 

- 

7550 

7680 

75'90 

7610 

7630 

7870 

7880 

78-90 

7950 

7970 

8030 

8400  8410  8540 

8550 

8600 

1 1*< 

- 

7840 

78*90 

7900 

7910 

7930 

7930 

7940 

7-96.0 

7990 

Ta 

- 

7560 

7670 

7680 

7850 

7960 

7970 

79-90 

8000 

8010 

8410 

8430 

8530 

T3 

- 

7860 

7870 

7880 

8510 

8530 

8590 

T4 

- 

7880 

7900 

7980 

8000 

8380 

8430 

8530 

T5 

- 

8540 

8580 

17 

- 

7570 

7600 

7610 

7630 

7650 

7660 

76-90 

7860 

8400 

UO 

- 

7550 

7580 

ua*( 

- 

7510 

7530 

7670 

7950 

7970 

7980 

8000 

8410 

8580 

U3*< 

- 

7510 

7530 

7600 

7610 

7670 

( 


AU 1 HOK  Syetem:  Phase  3 

0000  DtFFN'  0 

0001  DfcFFN'  1 
0008  DtFFN'  a 
0003  DtFFN'  3 
????  DEFFN'  IS 

- 7340 

7100  UtFFN'  SO 
????  DtFFN'  lOO 

- 796.0  7970  79-30  8000  8460  8S90  8730 
????  DtFFN'  101 

- 8130  8480 
????  DtFFN'  108 

- 70-30 

????  DtFFN'  10S 

- 8430 

????  DtFFN'  107 

- 8580 

????  DtFFN'  110 

- 71 GO  8470  8740 
????  DEFFN'  800 

- 7660 

????  DtFFN'  805 

- 7180  7860 
????  DtFFN'  810 

- 7130  7810  7890 
7500  DtFFN'  811 

- 7140 

7830  DtFFN'  818 

- 7150 

8150  DtFFN'  813 

- 7880  7300 
8380  DEFFN'  814 

- 7830  7310 
8780  DtFFN'  815 

- 7840  7380 


ATH306.  i3  — 


604 
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5.25  ATH306.9 

The  purpose  of  the  'ATH306.9'  program  is  to  create  the  Test  Yourself 
(End  of  Test  and  Rest  Directions)  pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH306.9'  program 
listing  and  reference  maps. 


IS 


o 


G 


605 


AU  I I ION  Sy  st  pm 


P ha  s-e  3 


ATH JOG - S 


CNTKI 


7000 

7010 

7oao 

7030 

7040 

7050 

7060 

7070 

7080 

7050 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 


f 


X##  Program  > AUTHOR/ 3 (ATH306.9)  Version  > 2.0  2200  T/VP  780323 

KhM  fr*  Abstract  ********************  **************^******-tH»--iHt--iHHH«- **■»-*■#■ 


REM  **  ** 
REM  **  This  program  will  construct  the  end  of  test  ** 
REM  **  instructions  for  the  'Self  Test'.  ** 
HEM  **  ** 


REM  ** 
REM  ** 

DIM 

T9*l 

GOSUB 

/ 

102 

< "DATASUBPROGRAM" 

DEFFN 

/ 

050 

D3  = 

32 

Q4  = 

00 

GOSUB 

/ 

210 

GOSUB 
REM  ** 

110 

(Dl, 

D2, 03, 04*, 05) 

GOSUB 

/ 

205 

(1) 
D3  = 

32 

Q4  = 

OO 

GOSUB 

/ 

210 

GOSUB 

/ 

211 

GOSUB 

/ 

212 

GOSUB 
REM  ** 

/ 

110 

(Dl , 

02,03,04*, 05) 

IF 

GOSUB 

/ 

006 

T9* 

* HEX (OO) 

GOSUB 

/ 

025 

"A1H106.9" 


"9000“ ): 


THEN  7270  : 


REM  DEFINE  FLAG 
REM  LOAD  DATA  FORAMTS 
REM  DEFINE  ENTRY 
REM  CLR  PAG  INDX  FLG 
REM  CLR  AORS  INDX 
REM  INSRT  SBL  SET  # 
REM  SAVE  AGE  ON  DISK 

REM  LOAD  NXT  FORMAT 
REM  CLR  PAG  INDX  f LG 
REM  CLR  ADHS  INDX 
REM  INSRI  SBL  SET  # 
REM  INSRT  SBL  SET  # 
REM  INSRT  END  OF  SET 
REM  SAVE  PAGE  ON  DISK 

REM  END  OF  SBL  SETS 
REM  RTURN  TO  BEG  SEOU 
REM  RTURN  TO  NXT  SEOU 


c 

606 


AU  I HOF?  Sys-t  om 


F > ha  si?  3 


ATH 306 _ 9 


1 ± 


RtM  ■»* 

RtM  ** 

RtM  **  Sub  l 
REM  **  Abs' 
RtM  **  Ti 
RtM  **  -tl 
RtM  **  Var 
RtM  **  Q, 
RtM  **  R! 
RtM  **  Ti 
RtM  *•*  Q 
RtM  +* 

L)EFFN  ' 21 
MAT  COPY 
MAT  SEARCH 


Subroutine  »n  * » * »««<hhhi -ihhhhhhhhh> 
Abstract  > 

Td  insert  the  current  symbol  set 
the  text. 

Variables  > 

Q2*< ) > output  page  buffer  ! 

R5*( ) > single  char  storage  ! 

T2  > buffer  position  indx  ! 

GY*(>  > symbol  id  table  ! 


2 1 1 


number  into 


CONVERT 
GOSUB  ' 
RETURN 


Q2*< ><129,6A>  TO  R9*<K1,64> 
CH  R9*(),  = RS*(10)  TO  R2*<> 

T2  * FNR  < VAL  < H2* ( 1 > ) ) + 1 
T3  = VAL(Q7*(U0,1)) 

T3  TO  STR<R3*<1),T2,2),  <##> 
100  <3,1,64,R9*<1),0) 


R9*<  ) > temp  storage  buffer 
R2*<>  > srch  return  buffer 
T3  > symbol  set  numbr 


REM  ENTRY 

REM  STOR  TEXT  LINE 
RtM  SRCH  FOR  INSRT  PUS 
RtM  CMPUT  POSITION 
REM  FETCH  SSL  SET  # 

RtM  LOAD  SSL  SET  # 

REM  INSRT  TEXT 
RtM  EXIT 


ALJI  HOR  Syst  e?m 


Phase  3 


ATHaOCv.  '3 


*r:S. 


i s 


7490 

REM 

7500 

REM 

*-* 

ir 

*-» 

o 

REM 

*•* 

7520 

REM 

#■* 

7590 

REM 

7540 

REM 

-fr* 

7550 

REM 

7560 

REM 

•fHf 

7570 

REM 

7580 

REM 

7590 

REM 

7600 

DEFFN  ' 

7610 

7620 

If 

7630 

7640 

GOTO 

7650 

If 

7660 

7670 

7680 

GOTO 

7690 

7700 

CONVERl 

7710 

*TRAN 

7720 

COSUB  ' 

7730 

7740 

RETURN 

Subroutine 
Abstract  > 

To  check  if  las  symbol  set  module  has  been  created. 
Variables  > 

UO  > current  symbol  tbl  indx 
Q7*()  > symbol  id  table 
R0*( ) > return  buffer  flag 


2 1 2 


T 1 > symbol  tbl  indx  (temp) 
Q0( ) > numeric  register  stack 
R9*< ) > scratch  line  buffer 


212 


T1  = UO 
Q7*(UO, 1) 
T1  + 


>=  Q0<2) 
T1 

HEX(FF) 


lOO 


Q7*(T1, 1 ) 

T1  = 

7620 
Tl-1 
UO  = 

TO*  = 

7740 

R9* < 1 ) = “of  all  ##  symbols.* 
Q0(2)  TO  STR ( R9* < 1 ) , 8, 2 ) , (#tt) 
(R9*< )<S, 1>,  R4*( )<185,4>)  K 

(6, 24, 40, R9* ( 1 ) , 0) 

T9*  = HEX  (00) 


THEN  7650 


THEN  7600 


REM  ENTRY 

REM  IN1T  SBL  TBL  INDX 
REM  END  Of  SBL  SET 
REM  INCH  SBL  TBL  INDX 
REM  CHECK  NXY  SBL 
REM  END  OF  MODULES 
REM  RESET  SBL  TBL  INDX 
REM  CLR  END  Of  SET  FLG 
REM  BRANCH  TO  EXIT 
REM  IN1T  LINE  TEXT 
REM  LOAD  NUMBR  (Jf  SBLS 
REM  BLANK  FILL  NUMBR 
REM  INSRT  TEXT 
REM  SET  END  Of  SET  FLG 
REM  EXIT 


608 


AU I HOR  Sy st ern 


Phase  3 


ATh  1 BOG  - -3 


4*  !>1/%fr~ 


/a  70  - 7abo 
7G20  - 7640 

7650  - 76a0 

7690  - 7650 

7740  - 7GS0 


/M_r  1 HQH 

s.  -fc  (E»m  : 

Phase  3 — ATH306.9  — V M/M 

01 

- 

7150 

7230 

02 

- 

7150 

7230 

03 

- 

7120 

7150 

7180 

7230 

04* 

- 

7150 

7230 

05 

- 

7150 

7230 

00  < 

- 

7650 

7700 

02*  < 

- 

7420 

04 

- 

7130 

7130 

07*  ( 

- 

7450 

7€30 

H2*< 

- 

7430 

7440 

H4*  ( 

“ 

7710 

R5*< 

- 

7430 

R9*< 

- 

7420 

7430 

7460 

7470 

7690  7700  7710  7720 

71 

- 

7610 

7620 

7630 

7650 

7660 

T2 

- 

7440 

7460 

13 

- 

7450 

7460 

T9* 

- 

7090 

7250 

7670 

7730 

UO 

- 

7450 

7610 

7620 

7660 

Phase  3 


ATH30€.  - -3 


MAP 


AUTHOR  System: 

0000  DEFFN'  0 

0001  DEFFN'  1 

0002  DEFFN'  2 

0003  DEFFN'  3 
????  DtFFN'  & 

- 7260 

????  DEFFN'  25 

- 7270 

7110  DEFFN'  50 
????  DEFFN'  100 

- 7470  7720 
????  DEFFN'  102 

- 7100 

????  DEFFN'  110 

- 7150  7230 
????  DEFFN'  205 

- 7170 

????  DEFFN'  210 

- 7140  7200 
7410  DEFFN'  211 

- 7210 

7600  DEFFN'  212 

- 7220 
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ATH307.0 

The  purpose  of  the  'ATH3JJ7.0'  program  is  to  create  the  Practice 
Defining  All  the  Symbols  (Overview  and  Direction)  page  of  the 
learning  module. 

The  remainder  of  this  section  presents  the  'ATH307.0'  program 
listing  and  reference  maps. 


AUI'HQH 


Phase  3 — ATH30V. O — CNTkL 


2##  Prog 
REM  *-* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *■*•»•* 
REM  *■* 
REM  *-* 
GOSUB  ' 
UEFFN  ' 


GDSUB 

GOSUB 

GOSUB 


ram  > AUTHOR/3  (ATH307.0)  Version  > 5.0  5500  T/VP  780353 

Abstract  )hhhhhh»  >■»*** 

** 

This  program  will  construct  the  introduction  frame  ** 

to  the  'Practice  Defining  All  The  Symbols'  section.  ** 


105  ( “ DATASUBPRCJGR  AM " , " ATH 1 07 . 0 * , “ 9000 " ) 
050 

D3  = 35 
04  = 44 

510 

110  <D1,D5,D3,D4*,DS> 


REM  LOAD  DATA  FORMATS 
REM  DEFINE  ENTRY 
REM  CLH  PAG  INDX  FLG 
REM  SET  ADRS  INDX 
REM  INSRT  t;  OF  SBLS 
REM  SAVE  PAG  ON  DISK 
REM  R1URN  fC  AUTO  MODE 


/SLJ  I HQR  System:  Phai 


— ATHiJ07.0  — 


6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

€310 

6320 

6330 

6340 

6350 


HEM  ** 

HEM  ** 

RLM  *♦ 

REM  ** 

HEM  ** 

HEM  ** 

HEM  ** 

REM  *♦ 

REM  *•* 

REM  ** 

HEM  ** 

REM 
DEFFN  ' 210 
MAT  COPY 
MAT  SEARCH 

CONVERT 

♦TRAN 

GOSUB  ' 100 
RETURN 


Subroutine 
Abstract  > 

To  insert  the  total  number  of  symbols  into  the 
text  of  the  format. 

Variables  > 

Q2*()  > ouput  page  buffer  ! R9*( 

R5*()  > single  char  storage  ! T1  > 

QO< ) > numeric  register  stk  ! R4*( 


2 1 O 


) > scratch  line  buffer 
buffer  position 
) > conversion  buffer 


Q2$( > <129, 64 > TO  R9*< )<1,64> 
R9*(>,  ” R5*(10)  TO  R2*<> 

T1  = FNR  < VAL ( H2*  < 1 > ) > 

QO:2)  10  STR<R9*< 1 ) ,1 1,2) , <##) 
(R9*(XT1,1>,  R4*(K185,4>>  H 
(3,1,64,R9*(1),0> 


REM  ENTRY 

REM  LOAD  LINE  BUFFER 
REM  SRCH  LINE  BUFR 
REM  CMPUT  BEG  POS 
REM  LOAD  TOTAL 
REM  BLANK  FILL  NUMBH 
REM  INSRT  TEXT 
REM  EXIT 


O 
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RMMMMMMHamm 


AUTHOR  S/stem: 


F'  ha  bb  3 


ATM 307 _ O - V 


01 

6140 

02 

- 

6140 

03  ' 

6110 

6140 

04* 

- 

6140 

05 

- 

6140 

00< 

- 

6320 

02*  ( 

- 

6290 

04 

- 

6120 

R2*( 

“ 

6300 

6310. 

H4*( 

- 

6330 

N5*( 

“ 

6300 

K9*< 

- 

6290 

6300 

T1 

- 

6310 

6320 

6320  6330  6340 
6330 


MAI ' 
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AUTHOR  Sys-tem:  Phase  3 — ATH 3C7 . O -- 

0000  ObFFN'  0 

0001  D6FFN'  1 

0002  UEFFN'  2 

0003  U6FFN'  3 
????  DtFFN'  20 

- €>150 

6100  DtFFN'  50 
????  DtFFN'  100 

- 6340 

????  DtFFN'  102 

- 6050 

????  DtFFN'  110 

- 65  40 

6280  DtFFN'  210 

- 6130 


M/M' 
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■MU 


TAEG  Report  No.  59 


5.27  ATH307.1 

The  purpose  of  the  'ATH307.T  program  Is  to  create  the  Practice 
Defining  All  the  Symbols  (Practice  Exercises  and  Answers)  pages 
of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH307.1'  program 
listing  and  reference  maps. 


( 


I 


AUTHOR  System: 


P ha  i 


ATH307, 


CNTRL. 


X#1t  Program  > AUTHOR/3  (ATH307.1)  Version  > 3.0 
RtM  ** 

HEM  **  This  program  will  construct  the  practice 

RtM  **  and  answers  for  the  'Practice  Defining  A1 
RtM  **  section. 

REM  ** 

REM  ** 

GOSUB  ' 103  C DAT ASUBPROGR AM “,“ATH 107.1 ","9000"): 

DEFFN  ' 050  : 

RtM  ■** 

DIM  T9*1,B3*(30>1  : 

INI! (00)  83* < ) : 

D3  = 00  : 

00(13)  = 01  : 

GOSUB  ' 310  : 

00(13)  = 00  : 

RESTORE  1 : 

GOSUB  ' 305  (1)  : 

04  = 00  : 

GOSUB  '311  : 

GOSUB  ' 110  (D1,03,D3,D4*,D5>  : 

REM  *+ 

GOSUB  ' 305  (1)  : 


3300  T/VP  780333 


ex  cersies 
1 the  Symbols' 


D3  = 33 
04  * 00 


GOSUB  ' 313 
GOSUB  ' 313 
GOSUB  ' 314 
REM  ** 

IF 

GOSUB  ' 037 


T9*  = HEX (OO) 


THEN  8150  : 


RtM  LOAD  DATA  FORMATS 
RtM  DEFINE  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  CLR  MEM  BUFR  #1 
REM  SET  PAG  INDX  FLG 
REM  SET  NUL  D1SPLY  FLG 
REM  GEN  SBL  LSI  TBL 
REM  CLR  NUL  DISPLY  FLG 
RtM  REST  OR  DATA  P01NTR 
REM  RtSTOR  DATA  FORMAT 
REM  CLR  ADRS  INDX 
REM  INSRl  SBL  LIST 
REM  SAVE  PAG  ON  DISK 

REM  LOAD  NXT  FORMAT 
REM  CLR  PAG  INDX  FLG 
REM  CLR  ADRS  INDX 
REM  SAVE  LAST  BUFR  LIN 
REM  INSRl  SBL  ANWSRS 
REM  SAVE  PAG  ON  DISK 

RtM  CONT  EXCERISES 
REM  R1URN  TO  AUTO  MODE 
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AU1  HQR  System:  Phase  3 


I c 


ATH30T.  1 — 2» 


€>330  REM  ** 
€•340  RtM  *■* 
6350  RtM  ** 
6360  RtM  ** 
6370  RtM  ** 
6380  RtM  *•* 

63- 30  RtM  ** 
6400  RtM  ** 
6410  RtM  *•* 
6420  RtM  ** 
6430  RtM  ** 
6440  RtM  ** 
6450  RtM  ** 
6460  RtM  ** 
6470  RtM  ** 
6480  RtM  *-» 

64- 30  RtM  ** 
6500  RtM  ** 
6510  RtM 
6520  DtFFN 
6530  DIM 
6540  RtM  ** 
6550  PRINT 
6560  PRINT 
6570  PRINT 
6530  RtM  ** 


**#*■**»♦■»'»■»+*♦•»♦■»*■**■»*■»*■»'»+*•»*■»♦+*«***'»****•»■»  2 10 


Subroutine 
Abstract  > 

To  generate  a list  of  symbols  to  be  used  as  practice 
symbols  in  the  two  frame  sequence. 

If  insufficient  symbols  to  fill  space  or  symbol 
definition  too  long  fill  space  with  others  symbols 
from  symbol  table  not  already  list  on  current  page. 
Variables  > 

U2*<>  > symbl  1st  table 
Bl*(>  > systm  memory  buffr 
U2  > sbl  1st  lokup  tbl  indx 
page  buffer  line  indx 
storage  bufr  size 
bufr  line  indx  (temp) 

> numeric  register  stk 


Q1 
RO 
T3  > 
00  < ) 


03* ( ) > sbl  tbl  lokup  indx 
B2*()  > memory  buffr  #1 
T9*  > end  of  sequence  flag 
GO*()  > stack  register  flags 
R1  > item  id  indx 
09*0  > i/o  buffer 
B8  > random  subscript 


210 


B3*(20)1,U2*(15>16 


RtM  ENTRY 

REM  DEFINE  WORK  UUFRS 


HEX ( 030A0A0A0A ) 


REM  CLR  CHI  SCREEN 


e 

L 


n g 
b 1 


S y m b o 1 ‘ 


65-30 

INI! (FF> 

U2S<  > 

REM 

INIT  SBL  LST  BUFR 

6600 

lNlT(OO) 

B3*(  ) 

REM 

CLR  MEM  BUFR  #2 

6610 

INIT(OO) 

Bl*(  > 

REM 

CLR  SYS  MEM  BUFR 

6620 

U2  = 1 

REM 

INIT  LOKUP  INDX 

6630 

T9*  = HEX (OO) 

REM 

INIT  EOF  FLAG 

6640 

fll  s 3 

REM 

INIT  LINE  INDX 

6650 

MAT  COPY 

B2*< ) TU  Bl*( ) 

REM 

RESET  SYS  MEM  BUFR 

6660 

COSUB  ' 200 

(00(2) , Bl*( 1 ) ,88, 20) 

REM 

GEN  RND  SUBSCRPT 

6670 

QO*( 1 ) = "1“ 

REM 

SET  NUL  LOKUP  K.G 

6680 

GOSUB  ' 105 

(Q3*(B8,4),R0,R1 > 

REM 

FETCH  DEFINITION 

6690 

RO  * 1NT (RO/36)  + 1 

REM 

CMPUT  APPROX  SI 2 

6700 

IF 

16-01  >=  RO 

THEN 

6730 

REM 

IF  ENOUGH  SPACE 

6710 

GOSUB  ' 215 

(U2*(1),B2*(1) ) 

REM 

FILL  REMA1NG  SPACE 

6720 

GOTO 

6870 

REM 

BHANCH  TO  EXIT 

6730 

T3  = 01 

REM 

STORE  LINE  INDX 

6740 

GOSUB  ' 107 

<T3,26,62,03*(B8,4),VAL(00*(10>  > > 

HEM 

INERT  DEFINITION 

6750 

01  * 01  + 1 

REM 

I NCR  LINE  INDX 

6760 

DATA  LOAD 

BA  T #2,  (Q3*(B8,3>,R0*> 

Q9*( ) 

REM 

FETCH  SYMBOL 

6770 

MAT  COPY 

09*()<1,15>  TU  U2*(X(U2- 

-1  )*16M,  15> 

REM 

STORE  SYMBOL 

6780 

BIN(STR(U2*(U2), 16, 1>)  * 

B8 

REM 

STORE  LOOKUP  INDX 

6790 

U2  = U2  + 1 

REM 

INCH  LST  TBL  IOX 

6800 

MAT  COPY 

Bl*( ) TO  B2*( ) 

REM 

UP DAT  MEM  TBL  #1 

6810 

IF 

00(2)  <>  VAL ( B2* ( 1 ) ) 

THEN 

6860 

REM 

IP  END  OF  SEGU 

6820 

T9*  = HEX(FF) 

REM 

SET  EOF  FLAG 

6830 

1N1T(00) 

02*  < ) 

REM 

CLR  MEM  TBL  #1 

6840 

GOSUB  ' 215 

(U2*( 1 ) ,82* ( 1 ) ) 

REM 

F1L  REMAING  SPACE 

6850 

GOTO 

6870 

REM 

BRANCH  TU  EXIT 

6860 

IF 

01  < 16 

THEN 

6660 

REM 

FETCH  NEW  SOL 

6870 

U2  * U2  - 1 

REM 

CMPUT  TOTAL  S8LS 

6880 

RETURN 

REM 

EXIT 
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AUTHOR  S/stem 


P ha  s-  e 


ATH307. 1 


1 1 


€.890  RtM  ** 
€.900  RtM  *•* 
6910  RtM  ** 
6920  REM  ** 
6930  REM  ** 
6940  RtM  ** 
6950  REM  ** 
6960  REM  ** 
6970  RtM  *■* 
6980  REM  ** 
6990  REM  ** 
7000  REM  ** 
7010  RtM  *■» 
7020  REM  ** 
7030  REM  ** 


7040 

7050 

OEFFN  ' 211 

■ M W « M U 

nrwwir*r 

REM 

ENTRY 

7060 

DIM 

B4*( 1 )64,B5*( 1)15 

REM 

DEFINE  WORK  BUFRS 

7070 

INIT(OO) 

Bl*(  ) 

REM 

CLR  SYS  MEM  BUFR 

7080 

1N1T(00) 

B3*(  > 

REM 

CLR  MEM  BUFR  #2 

7090 

for; 

T1  = 2 TO  15 

RtM 

BEGIN  LINE  INDX 

7100 

T3  * 24 

REM 

IN1T  COL  INDX 

7110 

1N1T (20) 

84*  ( > 

RtM 

CLR  LINE  BUFR 

7120 

MAT  CORY 

B3*( ) TO  Bl*(> 

REM 

RESET  SYS  MEM  BUFR 

7130 

MAT  CORY 

Bl*( ) TO  B3*( ) 

REM 

UPUAT  MEM  BUFR  *1 

7140 

GOSUB  ' 200 

(U2, B 1* ( 1 ) , B8, 20) 

REM 

CEN  RND  S8SCRPI 

7150 

T4  = B8 

REM 

FETCH  TBL  INDX 

7160 

MAT  CORY 

U2*( )<(T4-1 )*16+1 , 15>  TO 

B5*(  XI,  15> 

REM 

FETCH  SYMBOL 

7170 

T5  * LEN(B5*( 1 ) > 

RtM 

CMPUT  SBL  LENGTH 

7180 

IF 

T3+T5  <=  60 

THEN 

7220 

RtM 

IF  LINE  NOT  FULL 

7190 

IF 

U2  <>  VAL(B1*( 1 ) ) 

THEN 

7140 

RtM 

IF  LIST  NOT  EMPTY 

7200 

1NIT<00) 

Bl*(  ) 

REM 

CLR  SYS  MEM  BUFR 

7210 

GOTO 

7350 

REM 

WRITE  CURNT  LINE 

7220 

MAI  COPY 

B5*(X1,T5>  TO  B4*(XT3, 

T5> 

REM 

LOAD  LINE  BUFR 

7230 

T3  * T3  4-  T5 

REM 

I NCR  LINE  INDX 

7240 

IF 

T3  > 56 

THEN 

7350 

REM 

IF  LINE  FULL 

7250 

MAI  CORY 

R5*()<9, 1>  TO  B4*( ) <T3+1 

,s> 

REM 

LOAD  SEP  CHAR 

7260 

T3  * T3  ♦ 3 

REM 

I NCR  LINE  INDX 

7270 

MAT  CORY 

B3*( ) TO  Bl*( ) 

REM 

RESET  SYS  MEM  BUFR 

7280 

GOSUB  ' 202 

(B1*,B1*( 1 ) ,B8) 

RtM 

UPDAT  SYS  MEM  BUFR 

7290 

IF 

Bl*  <>  HEX (00) 

THEN 

7320 

REM 

DUPLIC I AT  SBL 

7300 

BIN(B1*( 1 ) ) * VAL(B1*(1>>  + 1 

REM 

I NCR  BITS  ON  COUNT 

7310 

MAT  CORY 

Bl*()  TO  B3*( ) 

REM 

UPDAT  MEM  BUFR  #1 

7320 

IF 

U2  <>  VAL(B3*( 1 ) ) 

THEN 

7130 

REM 

IF  NOT  END  OF  LIST 

7330 

INIT(OO) 

B 1*  ( ) 

REM 

CLR  SYS  MEM  BUFR 

7340 

G010 

7130 

REM 

START  LIST  OVER 

7350 

GOSUB  ' 100 

(T1,24,40,STR(B4*(1),24, 

40) ,0) 

REM 

WR11E  LINE  BUFR 

7360 

NEXT 

T1 

REM 

I NCR  LINE  INDX 

7370 

RETURN 

REM 

EXIT 

Subroutine 
Abstract  > 

To  create  a list  of  symbols  selected  from  those  symbols 
to  be  used  on  page  2 of  sequence.  The  list  is  14  lines 
of  randomly  ordered  symbols. 

Variables  > 

B4*()  > temp  line  buffer 
Bl*( ) > system  memory  buffer 
QQ*( ) > stack  register  buffer 
'■'<  > random  subscript 
• 3 > temp  line  bufr  index 
T5  > length  of  symbol 


1 1 


BS*()  > curnt  symbol  buffer 
B3*( ) > memory  buffer  #2 
U2  > total  symbls  in  list 
T1  > bufr  line  indx  (loop) 
T4  > sbl  list  lokup  index 
R5*()  > single  char  buffer 
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c 


621 


AUTHOR  Sys-tem 


P h3  s-  e 


ATHa07. X 


St  X 3 


7550 

7570 

7580 

7590 

7500 

7510 

7520 

/530 

7540 

7550 

7550 

7570 

7580 

7590 

7700 

7710 

7720 

7730 

7740 

7750 

7750 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7850 

7870 

7880 

7890 

7900 

7910 


REM 

*“* 

REM 

** 

REM 

REM 

** 

REM 

*■* 

REM 

*-* 

REM 

•JHf 

REM 

REM 

REM 

-*-* 

REM 

•I 

REM 

REM 

*-* 

REM 

** 

REM 

** 

REM 

UEFFN 

Subroutine 
Abstract  > 

To  insert  the  answers  to  the  pract 
in  a sorted  manner  on  the  second  f 
Variables  > 

U3*()  > sort  work  buffer  ! U4*( ) 
U5*( ) > sorted  symbol  list  ! U2*() 
G1  > output  page  line  indx  ! T1  > 
T2  > sbl  table  lookup  indx  ! T3  > 
Q3»()  > sbl  tbl  indx  buffr  ! R9*( ) 
T5  > symbol  length  ! T6  > 

R5*( ) > single  char  buffer  ! 


2 1 3 


213 


DIM 

MAT  SORT 
MAT  MOVE 
REM  *+ 


U3*(15)2,U4*(15>2,U5*(15>15 
U2*( ) TO  U3*( ),  U4*< ) 
U2*(>,  U4*(l>  TO  U5*(l> 


ice  excersises 
rame  of  sequence. 

> sort  locator  buffer 

> symbol  list  table 
sbl  list  indx  (loop) 
line  indx  (temp) 

> scratch  buffer 
column  center 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  SORT  SBL  LSI 
REM  GEN  SORTED  LIST 


G1  = 3 

FOR  T1  * 1 TO  U2 

T2  = VAL(STR(U5*(T1>,15,1)> 

QO*(  1 ) = M* 

GOSUB  ' 105  (Q3*(T2,4),R0,R1> 

T3  = Q1 

GOSUB  ' 107  (T3,25,52,Q3*(T2.4),VAL(Q0*(10) ) ) 
Q1  = Q1  + 1 

R9*(l>  = STR(U5*(T1),1,15) 

T5  = LEN(R9*(1) ) 

T5  = 13  - I NT (T5/2) 

GOSUB  7 lOO  (T3,T5,T5,R9*(1),0) 

GOSUB  ' 100  (T3,22, 1,R5*(9),0) 

NEXT  T1 

RETURN 


REM  IN1T  LINE  INDX 
REM  GEN  LIST 
REM  FETCH  LOOKUP  INDX 
REM  SET  NUL  LUKUP  FLG 
REM  FETCH  DEF1N1T ION 
REM  STOR  LINE  INDX 
REM  INSRT  DEFINITION 
REM  I NCR  LINE  INDX 
REM  STORE  SYMBOL 
REM  CMPUT  SBL  LENGTH 
REM  CMPUT  COL  CENTER 
REM  INSRT  SYMBOL 
REM  INSRT  ITEM  FLAG 
REM  CONT  LISTING 
REM  EXIT 
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AUTHPR  .System: 


ATM 30T- 


REM  ** 
REM  ** 
REM  **, 
REM  ** 
HEM  ** 
REM  *+ 
REM  ** 
REM  ♦* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *-» 
REM  ** 
REM  ** 
REM  ** 


Abstract  > 

To  fill  the  space  remaining  on  a page  with  a 
symbol  from  current  set  that  has  not  been  inserted 
on  current  page. 

Variables  > 

4 U2*< ) > symbol  list  table  ! QO( ) > numeric  register  stack 

B2*(>  > memory  buffer  #1  ! B3*<)  > memory  buffer  #2 

Bl*< ) > system  memory  bufr  ! Ql  > output  page  line  indx 

- U2  > total  sbls  in  list  ! -B8  > random  subscript 

RO*()  > search  id  ) R2*<)  > srch  return  buffer 

QOSO  > stack  register  bufr  ! T1  > sbl  tbl  lokup  indx 

Q3*< ) > sbl  tbl  lokup  table  ! RO  > buffer  size 

R1  > item  id  ! T3  > temp  bufr  line  indx 

R5*<)  > single  char  bufr 
T9*  > end  of  list  flag 


09*  O > i/o  buffer 
BIS  > memory  indx  fig 


8270 

DEFFN  ' 215 

<U2*(1>,B24<1>> 

8280 

INIT(OO) 

B3*<  ) 

8290 

IF 

Ql  >=  16 

THEN  8590 

8300 

MAT  COPY 

B3*<  > TO  Bl$( ) 

8310 

GOSUB  ' 200 

<Q0(2) , Bl*< 1 > , B8, 20) 

8320 

IK 

Q0<2)  < VAL<B1*U>> 

THEN  8590 

8330 

BIN<HO*< 1 ) > = B8 

8340 

MAT  SEARCH 

U2*<  X16,225>,=R0*(  1 )T0  R2*OSTEP  16 

8350 

IK 

R2*<1)  = HEX ( OOOO ) 

THEN  8380 

8360 

IK 

U2  <>  VAL<B1*< 1 ) > 

THEN  8310 

83Y0 

GOTO 

8590 

8380 

QO*< 1 ) = *1" 

8390 

COSUB  ' 105 

<Q3*<B8,4>,R0,R1> 

8400 

RO  = INT(R0/3fc.)  + 1 

8410 

IF 

16-Q1  < RO 

THEN  8310 

8420 

T3  = Ql 

8430 

GOSUB  ' 107 

<T3,26,62,03*<B8,4),VAL<Q0*<10) ) ) 

8440 

Ql  * Ql  ♦ 1 

8450 

DATA  LOAD 

BA  T #2,  <Q3*<B8.,3>,R0*> 

09*  < ) 

8460 

MAT  COPY 

Q9*<X1,15>  TO  U2*<X<U2- 

1 >*16+1, 15> 

8470 

BIN<SlR<U2*LU2), 16,  1 > ) = 

B8 

8480 

U2  ” U2  + 1 

8490 

MAT  COPY 

Bl*< ) TO  B3*< ) 

8500 

MAT  COPY 

B2*< ) TO  Bl*< ) 

8510 

GOSUB  ' 202 

<B1*,U1*< 1 ),B8> 

8520 

IF 

Bl*  <>  HEX  <OOT 

THEN  8300 

8530 

BIN(B1*( 1 ) ) = VAL < B 1 * < 1 > ) 

+ 1 

8540 

MAT  COPY 

Bl*< ) TO  B2*< ) 

8550 

IF 

00(2)  <>  VAL<B2*<1>> 

THEN  8300 

8560 

T9*  = HEX<FF) 

85  70 

1N1T <00) 

B2*<  ) 

8580 

GUSUB  ' 215 

<U2*<1),B2*<1>> 

8590 

RETURN 

REM  ENTRY 

REM  CLR  MEM  BUFR  #2 
REM  If  RAGE  FULL 
REM  RESET  SYS  MEM  BUFR 
REM  GEN  RND  SBSCRRT 
HEM  END  DR  LIST 
REM  CONV  TO  SRCH  IU 
REM  SRCH  FOR  SAM  SBL 
REM  If  NO  DUPLIC IATES 
REM  If-  ALL  SBLS  ON  PAG 
REM  BRANCH  TO  EXI I 
REM  SET  NULL.  LOKUP  F LG 
REM  FETCH  DEFINITION 
REM  CMPUT  APPROX  SIZ 
REM  SBL  DDES  NOT  FIT 
REM  STORE  LINE  INDX 
REM  INSRI  DEFINITION 
REM  I NCR  LINE  INDX 
REM  FETCH  SYMBOL 
REM  STORE  SYMBOL. 

REM  STORE  LOOKUP  INDX 
REM  INCH  LST  TBL  IDX 
REM  UPDAT  MEM  BUFR  #2 
REM  RESET  SYS  MEM  BUFR 
REM  ADO  TO  MEM  BUFFR 
REM  DUPLICATE  SBL 
REM  I NCR  SYS  COUNTER 
REM  UPDAT  MEM  BUFR  #1 
REM  MORE  SBLS  TO  SCAN 
REM  SET  END  OF  PAG  F LG 
REM  CLR  MEM  BUFR  #1 
REM  FILL  REMAING  SPACE 
REM  EXIT 
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r 1 


AUTHOR 

s "t  Dm  r 

P ha  s 

tE*  3 — 

ATH 307 _ 

1 

— V-*  MAP 

B0*< 

- 

7500 

7510 

7530 

8030 

8040 

Bl* 

- 

7aso 

73-30 

8510 

8530 

Bl*< 

- 

6610 

6650 

6660 

6800 

7070 

7130 

7130 

7140 

7190 

7300 

7270 

7280 

7300 

7310 

7330 

8300 

8310 

8330 

8360 

8490 

8500 

8510 

8530 

8540 

B2*( 

- 

t-iao 

6130 

6650 

6710 

6800 

6810 

6830 

6840 

8370 

8500 

8540 

8550 

8570 

8680 

B3*< 

- 

6530 

6600 

7080 

7130 

7130 

7370 

7310 

7330 

8380 

8300 

8490 

B4*< 

- 

7060 

7110 

7330 

7350 

7350 

B5*( 

- 

7060 

7160 

7170 

7330 

6S 

6660 

8510 

6680 

6740 

6760 

6780 

7140 

7150 

7280 

8310 

8330 

83-30 

8430 

8450 

8470 

D1 

- 

&aao 

8050 

02 

- 

6aao 

8050 

D3 

- 

6140 

6330 

6350 

8050 

04* 

- 

€530 

8050 

D5 

- 

6330 

8050 

Q0( 

- 

6150 

6170 

6660 

6810 

8310 

8330 

8550 

QO*< 

- 

6670 

6740 

7800 

7830 

8380 

8430 

Q1 

- 

6640 

6700 

€.730 

6750 

6860 

7770 

7830 

7840 

8390 

8410 

8430 

8440 

oa*< 

- 

7510 

7530 

Q3*( 

- 

6680 

6740 

6760 

7810 

7830 

8330 

8430 

8450 

04 

- 

6300 

6360 

0-3*  < 

- 

6760 

6770 

8450 

8460 

R0 

- 

6680 

6690 

6700 

7810 

8390 

8400 

8410 

R0* 

- 

6760 

8450 

RO*( 

- 

8330 

8340 

R1 

- 

€680 

7810 

8390 

Ra*< 

- 

8340 

8350 

R4*( 

- 

7530 

R5*< 

- 

7350 

7890 

K9*< 

- 

7850 

7860 

7880 

T1 

- 

70-30 

7350 

7360 

7780 

77-30 

7850 

7900 

Ta 

- 

77-30 

7810 

7830 

T3 

“ 

6730 

8430 

6740 

7100 

7180 

7330 

7330 

7240 

7350 

7360 

7830 

7830 

7880 

78-30 

8420 

T4 

- 

7150 

7160 

T5 

- 

7170 

7180 

7330 

7330 

7860 

7870 

7880 

T6 

- 

7870 

7880 

T9* 

- 

6130 

6310 

6630 

6830 

8030 

8560 

ua 

- 

€630 

6770 

6780 

6790 

6870 

7140 

7190 

7330 

7780 

8360 

8460 

8470 

8480 

ua*< 

6530 

6590 

6710 

6770 

6780 

6840 

7160 

7740 

7750 

8370 

8340 

8460 

8470 

8580 

U3*( 

- 

7730 

7740 

U4*( 

- 

7730 

7740 

7750 

U5*< 

“ 

7730 

7750 

77-30 

7850 

0000  DfcFFN'  0 

0001  DfcFFN'  1 

0002  DfcFFN'  2 

0003  DfcFFN'  3 
????  DfcFFN'  27 

- €>320 

6100  DfcFFN'  bO 
????  DfcFFN'  1O0 

- 73bO  78110  7890  8030  8040 
????  DEFFN'  101 

- 7b40 

????  DfcFFN'  102 

- €>090 

????  DfcFFN'  10b 

- 6680  7810  8390 
????  DfcFFN'  107 

- 6740  7830  8430 
????  DfcFFN'  110 

- 6220  80 bO 
????  DfcFFN'  200 

- 6660  7140  8310 
????  DfcFFN'  202 

- 7280  8b 10 
????  DfcFFN'  20b 

- 61 ‘30  6240 
6b20  DfcFFN'  210 

- 6160 

VObO  DEFFN'  211 

- €.210 

7490  DfcFFN'  212 

- 6270 

7720  DfcFFN'  213 

- 6280 

8010  DfcFFN'  214 

- 6290 

8270  DEFFN'  21b 

- 6710  6840  8580 


TAEG  Report  No.  59 


ATH307.2 

The  purpose  of  the  'ATH307.2'  program  is  to  create  the  Practice 
Defining  All  the  Symbols  (Ending  and  Practice  Directions)  pages 
of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH307.21  program 
listing  and  reference  maps. 


628 


■it 1 


0 


n 


AUTHQK 

&ooo 

X*# 

Prog 

6010 

REM 

**  , 

6050 

REM 

*•* 

6030 

REM 

** 

6040 

REM 

6050 

REM 

*-* 

6060 

REM 

6070 

REM 

6080 

REM 

60-30 

REM 

6100 

GOSUB  ' 

6110 

DEFFN  ' 

6150 

6130 

6140 

GOSUB  ' 

6150 

REM 

*-* 

6160 

GOSUB  ' 

6170 

6180 

6190 

GOSUB  ' 

6500 

GOSUB  ' 

5dyst  B-m  z 


f-'  ha  5 B 

( ATH307 . 5 ) 


3 — ATH30V.a  — CNTRL. 

Version  > 5.0  5500  I /VP  780355 


This  program  will  construct  -the  end  of 
instructions  for  the  'Practice  Definin 
section. 


practice 

g All  The  Symbols' 


105  ( "DAI  ASUBPROGRAM** , “ATH107.S* , "9000“  ) 
0S0 

D3  - 35 
04  = 00 


SOS  <1> 

D3  = 35 
04  = 00 


058 


REM  LOAD  DATA  FORMATS 
REM  DEFINE  ENTRY 
REM  CLR  PAG  1NDX  FLG 
REM  CLR  ADRS  INDX 
REM  SAVE  PAG  ON  DISK 


: REM  LOAD  NXT  FORMAT 
: REM  CLR  PAG  INDX  PLG 
: REM  CLR  ADRS  INDX 
: REM  SAVE  PAG  ON  DISK 
: REM  RTURN  TO  AUTO  MODE 


629 


I ! 


P ha  s b 


3 


AT  H307 - £ 


S7  MAP 


AUTHOR  ti  y & P em  : 


ui 

- 6140 

6190 

U£? 

- 6140 

6190 

L>3 

- biao 

6140  6170  6190 

L>4* 

- 6140 

6190 

L>5 

- €.140 

61-30 

Q4 

- €.130 

6190 

/ V 

( ) 


630 


0000  DfcFFN'  0 

0001  DfcFFN'  1 

0002  DfcFFN'  2 

0003  DfcFFN'  3 
????  DfcFFN'  28 

- 6200 

6110  DfcFFN'  60 
????  DfcFFN'  102 
- 6100 

????  DfcFFN'  110 

- 6140  6130 
????  DfcFFN'  20b 
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5.29  ATH308.0 

The  purpose  of  the  'ATH3f88.p'  program  Is  to  create  the  Criterion 
Test  (Directions)  page  of  the  learning  module. 

The  remainder  of  this  section  presents  the  ‘ ATH308.(8'  program 
listing  and  reference  maps. 


AUI  Byst  em 


P h<3  E.E>  I=i 


A1 H^OS. O 


CNTKL 


6000  X##  Program  > AUTH0K/3  (ATH3D8.0)  Version  >2.0  2200  1 /VP  780323 

6020  HEM  ** 

6030  HEM  **  This  program  will  construct  -the  introduction  frame 

6040  REM  **  to  the  'Criterion  Test'  section. 

6050  HEM  ** 

6070  HEM  ** 

6080  REM  ** 

60-90  04* (45)  = 04*  (42)  : REM  IN11  MEMORY  ADRS 

6100  IF  00(11)  = 00  THEN  6180  : REM  IF  NO  TESTS 

6110  REM  ** 

6120  GOSUB  ' 102  ( "DATASUBPRClGRAM"  , “ATH108.0"  , "9000”  ) : REM  LOAD  DATA  FORMA! 

6130  DEFFN  ' 050  : REM  DEFINE  ENTRY 

6140  D3  = OO  : REM  SET  PAG  INDX  FLC 

6150  04  = 45  : REM  SET  AfJRS  INDX 

6160  GOSUB  ' 110  <D1,D2,D3,D4*,D5>  : REM  SAVE  PAG  ON  DISH 

6170  REM  ** 

6180  GOSUB  ' 029  : REM  RTURN  TD  AUTO  MC 


THEN  6180 


REM  INI!  MEMORY  ADRS 
REM  IF  NO  TESTS 


102  ( "DATASUBPROGRAM" , “ ATH108.0" , "9000" ) : REM  LOAD  DATA  FORMA! S 


050 

D3  = OO 
04  = 45 

110  (D1 ,02,03,04*, 05) 


: REM  DEFINE  ENTRY 
: REM  SET  PAG  INDX  F LG 
: REM  SET  ADRS  INDX 
: REM  SAVE  PAG  ON  DISK 

: REM  RTURN  TO  AUTO  MODE 


C 


633 


AUTHOR  3yst E?m : Phase  3 — ATH30B.  O — ' MAH 

0000  UtFFN'  0 

0001  UtFFN'  1 

0002  UtFFN'  a 

0003  UtFFN'  3 
????  UtFFN'  23 

- 6180 

6130  UtFFN'  60 
????  UtFFN'  102 
- 6120 

????  UtFFN'  110 
- 6160 


( ) 
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ATH308.1 

The  purpose  of  the  'ATH308.1'  program  is  to  create  the  Criter 
Test  (Tests,  Answers,  End  of  Test  Directions,  and  Congratulat 
pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH3J98.T  program 
listing  and  reference  maps. 


/M_r  I HUR  Syst  om 


Phase  3* 


ATH308. 1 


<Jlx|TRL_ 


6000  X##  Program  > AUTHOR/ 3 (ATH308.1)  Version  > 5.0  3500  T/VP  780353 


6050  REM  **  ** 

6030  RLM  *■*  This  program  will  construct  the  desired  number  of  ** 

6040  REM  *■*  criterion  tests.  This  sequence  includes  the  the  test  ** 

6050  REM  **  symbols  displayed  in  a random  order,  the  answers  to  the  ** 

6060  HEM  **  test  and,  end  of  test  instructions  for  each  test.  ** 

6070  REM  **  ** 

6030  REM  ** 

6100  REM  ** 


6110  GOSUB  ' 103  (" DAT ASUBPROGRAM", "ATH108. 1“, "9000" ):  REM  LOAD  DATA  FORMAT S 
6150  DEFFN  ' 050  : REM  DEFINE  ENTRY 

6130  D3  = 33  : REM  CLR  PAG  INDX  FLG 

6140  <34  = 00  : REM  CLR  ADRS  INDX 

6150  T1  = 00  : REM  IN1T  TST  INDEX 

6160  REM  ** 


6170 

IF 

QO  < 1 1 ) 00 

THEN 

6530 

: 

REM 

IF  NO  TESTS 

6180 

REM  ** 

6190 

GOSUB 

/ 

310 

RF.M 

INSRT  TEST  NUMBR 

6500 

GOSUB 

/ 

514 

REM 

SAVE  LOWR  TEXT 

6310 

GOSUB 

/ 

311 

REM 

CREATE  TEST  SBLS 

6350 

GOSUB 

/ 

316 

REM 

SAVE  PAG  ON  DISK 

6330 

REM  ** 

6340 

GOSUB 

/ 

505 

<1) 

REM 

LOAD  NXT  FORMAT 

6550 

D3  = 33 

REM 

CLR  PAG  INDX  FLG 

6560 

04  = 00 

REM 

CLR  ADRS  INDX 

63/0 

GOSUB 

/ 

310 

REM 

INSRT  TEST  NUMBR 

6580 

GOSUB 

/ 

314 

REM 

SAVE  LOWR  TEXT 

63-90 

GOSUB 

/ 

515 

a 

a 

REM 

CREATE  ANSWERS 

6300 

GOSUB 

/ 

316 

a 

REM 

SAVE  PAG  ON  DISK 

6310 

REM  ** 

6350 

GOSUB 

/ 

505 

(1) 

REM 

LOAD  NXT  FORMAT 

6330 

D3  = 35 

REM 

CLR  PAG  INDX  FLG 

6340 

04  = 00 

REM 

CLR  ADRS  INDX 

6350 

GOSUB 

/ 

310 

REM 

INSRT  TEST  NUMBR 

6360 

GOSUB 

/ 

513 

REM 

CLEAR  EXT  R TEXT 

6370 

GOSUB 

/ 

110 

( D1 , 03, 03, D4$, D5 ) 

REM 

SAVE  PAG  ON  DISK 

6380 

REM  ** 

6390 

IF 

T1  = Q0<11) 

THEN 

6460 

REM 

IF  END  OF'  TESTS 

6400 

REST  ORE 

1 

REM 

REST  OR  DATA  PONTR 

6410 

GOSUB 

/ 

305 

(1) 

REM 

REST OR  DATA  FMT 

6450 

D3  = 35 

REM 

CLR  PAG  INDX  FLG 

6430 

04  = 00 

REM 

CLR  ADRS  INDX 

6440 

GOTO 

6190 

REM 

CREATE  NXT  TEST 

6450 

REM  ** 

6460 

GOSUB 

/ 

505 

(1) 

REM 

LOAD  NXT  FORMAT 

6470 

D3  = 35 

REM 

CLR  PAG  INDX  FLG 

6480 

04  = 48 

REM 

CLR  ADRS  INDX 

6490 

GOSUB 

/ 

314 

REM 

SAVE  LAST  LINE 

6500 

COSUB 

/ 

315 

REM 

INSRT  GROUP  NAME 

6510 

GOSUB 

/ 

516 

REM 

SAVE  PAG  ON  DISK 

6530 

REM  *■* 

6530 

GOSUB 

/ 

030 

: 

REM 

RTURN  TO  AUTO  MODE 

AU» HUK 


6540  REM  ** 

6SS0  RtM 

6b60  RtM  **  Subroutine  iHHf*****-«HHH*^********^*******+******-**-ii-****  510 
6570  RtM  **  Abstract  > 

6580  RtM  **  To  insert  the  current  criterion  test  number  into 

6590  RtM  **  the  frame  text. 

6600  RtM  **  Variables  > 

6610  RtM  *■*  Q2*<  ) > output  page  buffer  ! R2*()  > srch  return  buffer 

6620  RtM  *■*  R9*<)  > scratch  line  bufr  ! 11  > total  tests  generated 

6630  RtM  *■*  R5SO  > single  char  storage  ! T2  > line  bufr  position 

6640  RtM  ** 

6660  DEFFN  ' 210  : REM  ENTRY 

6670  MAT  COPY  02*<K1,64>  TO  R9*()<1,64>  : REM  LOAD  LINE  BUFR 

6680  ADO  (R9*(l),80)  : RtM  CLR  UNDtRSCORL 

66-30  MAT  SEARCH  R9*<),  = R5*<10>  TO  R2*<  > : RtM  SRCH  FOR  POS 

6/00  T2  = FNR<VAL(R2*<1)>>  + 1 : RtM  CMPUT  POSITION 

6710  CONVERT  TH-1  TO  STR  <R9*<  1 ) „ T2, 2) , <#4t>  : REM  LOAD  TEST  NUMBR 

6720  ADO  <R9*<1>,80>  : REM  RESET  UNDRSCORt 

6730  GOSUB  ' IOO  < 1 , 1 , 64, R9* < 1 > , O)  : REM  INSRT  TEXT 

6740  RETURN  : REM  EXIT 


AUTHOR  tiy  E.-tem:  Ph-as-E-  3 — ATH  308  - 1 — 22  ± 1 


6750  RkM  ** 

€>760  RkM  ** 

€>780  RkM  *♦  Abstract  > 

6730  REM  **  To  create  criterion  Test  Questions. 

€>800  RkM  **  Variables  > 

€>810  REM  **  Tl*()  > memory  sbl  ordr  ! Q9$<)  > scratch  bufr 

€>820  REM  **  Tb  > total  sbl  indx  ! T2  > curnt  row  indx 

6830  RkM  ■*"*  T3  > curnt  col  indx  ! B8  > random  subscrpt 

6840  RkM  **  Q3*<>  > symbol  table  ! R9*( ) > temp  lin  buf 

6850  RkM  *•*  R5*<  ) > single  char  bufr  ! R4*<  ) > conversions 

€>860  REM  Q0*()  > single  byte  figs  ! Q0<  ) > numeric  flags 

6870  RkM  **  T4  > column  indicator  ! 

6880  RkM  ** 


6900  UfcFFN  ' 211 

6910  DIM  Tl*<75)16 

6920  INIT(OO)  Bl«<) 

6930  Q0*<4)  = HEX < 31) 

6940  T2  = 2 

6950  T3  = 6 

6-360  FOR  T5  = 1 TO  QO<2) 

6970  1N1T  < 5F ) R9*< ) 

6980  GOSUB  ' 200  <Q0(2) , 8 1* ( 1 ) , B8, 20) 

6-930  DATA  LOAD  BAT  #2,  <Q3*<B8,  3) , kO*  )Q9*<  ) 

7000  MAT  CORY  RS*<)<1,1>  TO  Q9FIX16, 1> 

7010  MAT  CORY  Q9S<X1,1S>  10  Tl* < X < T5- 1 ) *16+ 1 , 16> 
7020  T4  = LEN(T1*(T5)) 

7030  BlN<STR(Tlt(TS), 16, 1 ) ) =B8 

7040  CONVERT  T5  TO  SIR<R9*< 1 ) , 1 ,2) , <##) 

7050  STRAN  <R9«<X1,1>,  R4*()<185,4>)  R 

7060  MAT  CORY  Rb*( X8, 1>  TO  R9*<)<3,2> 

7070  MAT  CORY  Q94(X1,T4>  TO  R9* < X5,  T4+2> 

7080  COSUB  ' lOO  < T2, T3, 2b, R9* ( 1 ) , O) 

70-30  T2  = T2  + 1 

7100  IF  T2  < 16  THEN  7220 

7110  IF  Q0*<4)  <>  "2*  THEN  7180 

7120  IF  Tb  = QO(2>  THEN  7220 


RkM  ENTRY 
RkM  DEFINE  BUFFER 
RkM  ZERO  MEM  TABLE 
REM  INIT  COL.  XNOX  FLG 
REM  ROW  INDX 
REM  COL  INDX 
RkM  BEGIN  SBL  TBL  LOOP 
REM  INI!  LINE  BLFR 
REM  FECTH  RNDM  SBSCRPY 
REM  LOAD  SYMBOL 
HEM  CLR  EOI  CHAR 
RkM  STUR  SYMBOL 
RkM  CMPUT  SBL  LkN 
RkM  REMEMBER  SEQUENCE 
RkM  CMPUTE  ITEM  NUMBR 
RkM  BLANK  FILL  NUMBR 
RkM  LOAD  DEC  I MAL  POINT 
RkM  LOAD  SYMBOL 
RkM  LOAD  INTO  PAC  BUFR 
REM  INCH  ROW  1I\DX 
REM  NOT  END  OF  l-'AG 
REM  NOT  COL.  2 
REM  END  OF  SBL  TBL 


7130 

COSUB  ' 

100< 16,41,23,  "To  Continue  Go  to  :nxt0“,0) 

7140 

GOSUB  ' 

110 

<U1,D2,D3,D4*,D5) 

7150 

COSUB  ' 

101 

(2, 1, 15,0) 

7160 

♦TRAN 

< Q2S ( ) <6b, 960> , R4^( ) <177, 4> )00  R 

7170 

00^(4)  = "0“ 

7180 

AOO 

<QO$ (4) , 01 ) 

71-30 

T2  - 2 

7800 

CONVERT 

QO* ( 4 ) 10  T4 

7210 

T3  - 6tl 4 

7220 

NEXT 

T5 

7230 

RETURN 

RkM  LOAD  CONT  MSG 
REM  SAVE  CURRNT  PAGE 
REM  CLR  CRT  SCREEN 
REM  CLR  PAGE  BUFR 
RkM  RESET  COL  I NCI OR 
REM  I NCR  COL.  INCTUR 
RkM  RESET  ROW  INDX 
REM  CCJNV  COL  NUMBR 
REM  CMPUTE  COL  INDX 
REM  CUNT  SBL  TBL  LOUP 
REM  EXIT 


7240  RhM  ** 

7250  RhM  ** 

75€.0  REM  *•» 

7270  RhM 
7280  RhM  ** 

7290  RhM  *+ 

7300  RhM  ** 

7310  RhM  ** 

7320  RhM  ** 

7330  RhM  ** 

7340  RhM  *•* 

7350  RhM  *-* 

7350  RhM  ** 

73/0  RhM  ***■ 

7380  UEFFN  ' 212 

7390  T2  = 3 

7400  FOR  T5  = 1 TO  QO<2) 

7410  T4  = VAL(STR(T1*<T5), 16, 1)) 

7420  Q0*<1)  = "1" 

7430  GOSUB  ' 105  <G3*(T4,4> ,R0,R1 > 

7440  RO  = I NT (RO/32)  + 1 

7450  IF  RO  <=  16-T2  TFIEN  7510 

7460  GOSUB  ' 100< 16, 41 , 23, " To  Continue  Go  to  :nxt0*,0> 
7470  GOSUB  ' 110  <D1 , 02, D3, D4t, D5) 

7480  GOSUB  ' 101  (3,1,14,0) 

74-30  t TRAN  < 02*  < ) < 129, 896 > , R4*  < ) < 1 77 , 4>  > 00  R 

7500  T2  ~ 3 

7510  GOSUB  ' 107  ( T2, 28, 60, 03* ( T4, 4 ) , VAL < 00$ ( lO) ) ) 

7520  INn<20)  R9*<> 

7530  CONVERT  T5  TO  SI R <R9* < 1 ) , 1 , 2) , <##> 

/S'iO  *TRAN  (R9*(  XI,  1>,  R4*<) <185, 4> > H 

7550  MAT  COPY  R5*<)<8, 1>  TO  R9*<><3,2.> 

7560  MAT  COPY  Tl*<  ) <<T5-1  >*16+1 , 15>  TO  R94<  ><5,  16>- 

7570  MAT  COPY  R5*<)<9,  1>  TO  R9*(K21,2> 

7580  GOSUB  ' lOO  < T2, 6, 22, R9*< 1 > , O) 

7530  T2  = 01  + 1 

7600  NEXT  T5 

7610  RhTURN 


Abstract  > 

To  create  the  Answers  for  Criterion  Test 
Variables  > 

TB  > curnt  row  indx 
T4  > symbol  tbl  indx 
03*0  > symbol  table 
RO  > length  of  ans. 

Q9*<)  > i/o  buffer 
R5*()  > single  chars 


T5  > sbl  sequence  indx 
TltO  > seqnce  mem  tbl 
GO( ) > numeric  flags 
R94<>  > temp  line  bufr 
R4*< ) > conversions 
01  > output  bufr  lin  indx 


RhM  ENTRY 
REM  SET  ROW  INDX 
REM  BEG  SBL  TBL  LOUP 
RhM  CMPUT  SBL  TBL  INDX 
RhM  SET  NULL  LOOKUP 
REM  LOAD  DEF1N1T ION 
RhM  CMPUT  LINE  NEEDED 
RhM  SPACE  AVAIABLL 
RhM  LOAD  CONT  MSG 
REM  SAVE  PAGE 
REM  CLR  CRT  SCHEEN 
RhM  CLR  PAGE  BUFR 
RhM  SET  ROW  INDX 
RhM  LOAD  TEXT 
RhM  CLR  LINE  BUFR 
RhM  CMPUT  ITEM  NUMBR 
RhM  ZhRO  FILL  NUMBR 
RhM  LOAD  DEC  I MAI,  POINT 
RhM  LOAD  SYMBOL 
RhM  LOAD  SEPLRAOK 
RhM  LOAD  INTO  PAG  BUFR 
RhM  INCH  ROW  INDX 
RhM  CONT  SBL  TBL  LOOP 
REM  EXIT 


AU  I HON  Sy  s-tem 


P ha  & e 13 


ATH30a. X 


3?  1 3 


RLM  *•* 

RLM  *■» 

RhM  *■*  Subroutine  hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh»  2 13 
Rb.M  **  Abstract  > 

RLM  **  To  erase  and  position  text  to  refelect  proper 
RLM  **  instructions. 

RLM  **  Variables  > 

RLM  **  T1  > total  tests  generated  ! Q0< ) > numeric  register  stack 

RLM  **  Q2*< ) > output  page  bufr  ! R4*<)  > conversion  buffer 

RLM  **  B0*<)  > temp  storage  buffer  ! 

RLM  ** 

RLM  •JHHHHHHHHHHHHHMHMHMHHHHHHHHHHHHHHHHMHHHHHHHHHf 

DLFFN  ' 313 
DIM  BO* <5)64 

T1  = T1  + 1 

IF  T1  = Q0< 1 1 ) THEN  7830 


Q0( ) > numeric  register  stack 
R4*()  > conversion  buffer 


IF 

RLM  ** 
GOSUB  ' 
tTRAN 
GOTO 
RLM  ** 

MAT  CORY 


101  <13,1,3,0) 

< Q3* < ) <769, 193> , R4*< ) <177, 4> >00  R 

7-360 


RLM  ENTRY 

RLM  DEFINE  WORK  BUFR 
RLM  INCH  TEST  INDX 
RLM  IF  LND  OF  TESTS 

REM  CLR  CRT  SCREEN 
RLM  CLR  RAC  BUFFR 
REM  BRANCH  TO  EX  I I 


COSUB  ' 
*TRAN 
COSUB  ' 
GOSUB  ' 
COSUB  ' 
COSUB  ' 
GOSUB  ' 
RLM  ** 
RLTURN 


Q3*<  X769,  1’33>  TO  B0*<X1,19H>  : RLM  LOAD  TEMP  BUFFR 

B0*<  5)  = BO* < 3 ) : RLM  LOAD  TEMP  BUFFR 

STR < BO* < 3 ) , 30, 34 ) = "the  symbols,  paying" 

S1R<B0*< 3) , 30, 34)  = "special  attention  to  the" 

STR<B0*<4) , 30, 34)  = "ones  you  missed..." 

<7,1,10,0)  : RLM  CLR  CRT  SCREEN 

<Q3*< )<385,640>,  R4*< > <177, 4> >00  R : RLM  CLR  PAG  BUFFER 


101  <7,1,10,0) 

<Q3*< ) <385, 640>, 
100  <07, 1 ,64, B0*< 1 ) ,0) 
100  <08, 1 ,64 , B0*<3 > ,0) 
100  < 09, 1 ,64, B0*<  3) , 0) 
100  <10,1, 64, B0*<4) , 0) 
100  <16,1 ,64, B0*< 5) , O) 


RLM  CLR  PAG  BUFFER 
REM  RE-LOAD  TEXT 
REM  RE-LOAD  TEXT 
REM  RE-LOAD  TEXT 
REM  RE-LOAD  TEX) 
REM  RE-LOAD  TEXT 

REM  EXIT 


■WP' 


mm 


AU  I NOR  Sy  s-t  E>m s 


' h<3  B & 


— ATH308. 1 — 


7970  RLM  ** 

7980  REM  »-* 

79- 90  RbM  **  Subroutine  *********■**•**♦**■*****•»•■**•»•***■»■« 
8000  RbM  **  Abstract  > 

8010  RbM  **  To  save  lower  part  of  page. 

8050  RbM  **  Variables  > 

8030  RbM  *■*  B0*(  ) > temp  storage  bufr  ! Q5*()  > page 

8040  RbM  *•* 

80S0  REM 

8060  UEFFN  ' 514 

8070  MAT  COPY  05*  < ><961, 64 > TO  B0*(K1,64> 

8080  *TRAN  <Q5*< > <961 ,64>,  R4*< )<177,4>)00  R 

80- 90  GOSUB  ' 101  (16,1,1,0) 

8100  RETURN 


Q5*()  > page  buffer 


RbM  ENTRY 
REM  LOAD  TEMP  BUFR 
RbM  CLR  RAG  BUFFR 
REM  CLR  CRT  SCREEN 
REM  EXIT 


c 
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AUI  HLlR  Sy&tem:  P ha 


/STM  308 


- ^ 1 


RtM  ** 

RtM  ** 

RtM  **  Subroutine  e 1 s 

RtM  **  Abstract  > 

RtM  **  To  write  The  name  or  rating  of  the  group  using  this 
RtM  **  learning  module. 

RtM  **  Variables  > 

RtM  *-*  RO*  > begin  sctr  adrs  ! RO  > siz  of  text  bufr 

RtM  **  Rl*()  > storage  buffr  ! 08*0  > pag  buffer 

RtM  *■*  Q1  > row  indx  ! 08  > col  indx 


conversion  buf! 


RtM  *-*  RO*  > begin  sctr  adrs  ! RO  > siz  of  tex 

RtM  **  Rl*<)  > storage  buffr  ! 08*0  > pag  buf 

RtM  *■*  Q1  > row  indx  ! Q 8 > col  indx 

RtM  *•*  R4*<)  > conversion  buf! 

RtM  ** 

DEFFN  ' 815 

GOSUB  ' 10b  (RO*, RO, 00081 > 

It  RO  <=  160  THEN  88-30 

*TRAN  (Rl*( ) <160, 1856>,  RA*< > <177, 4> )00  R 

RO  = ISO 

MAT  COPY  Rl*<  )<1,R0+51>  TO  R 1* ( ) <R0*88, RO+81  > 
MAI  CORY  Q8*O<408,81>  10  Kl*<) <1 , R0+81> 

GOSUB  ' 107  <07,84,60,R0*,0) 

IR  08* (01,08-8)  = THEN  8340 

GOGUB  ' lOO  <01 ,08-1 ,1,".“,0) 

RETURN 


THEN  88-30 


THEN  8 3 AO 


RtM  ENTRY 

REM  FETCH  TEXT 

RtM  BUF  SIZ  OK 

RtM  CLR  STORAGE  BUFR 

RtM  SET  TO  MAXIUM 

RtM  POSITION  BUFR  TEXT 

REM  LOAD  r-IXtD  TEXT 

RtM  LOAD  RAG  BUFFER 

REM  CHCK  FOR  PERIOD 

REM  LOAD  PERIOD 

REM  EXIT 
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AUTHOR  System:  Phase  IS 


ATH30S. 1 - a 


8350  REM  ** 
83€-0  HEM  *■* 
8370  RLM  ** 
8380  HEM  ** 
83-30  HEM  ** 
8400  RLM  ** 
8410  REM  ** 


Subroutine  ************** *^««**hhhhhhhhi^**hhhhhhhhhhi*  5 1 
Abstract  > 

To  save  current  Rage. 

Variables  > 

B0*<)  > temp  storage  buffer  ! 


8480  HEM  ** 

8430  REM  *■*■»•»*■***■*******■***•**•****■*■»*♦**•***♦*****■**•»•*** 
8440  DEFFN  ' 81 & 

8450  G05UB  ' 100  < 16, 1 , 64, BO* < 1 > , 0> 

8460  COSUB  ' 110  tDl , 02,  D3,  D4*,  U5> 

8470  RETURN 


REM  ENTRY 
REM  RE-LOAD  TEXT 
REM  SAVE  RACE 
REM  EXIT 


1 t- 


6 


c 


645 


o 


AU  I HOF?  S y s-  -t  urn 


P ha &d  3 


ATH30S. X 


V MAP 


B04<  - 7750  7830  7840  7850  7860  7870  7 '300  7910  7930  7930  7940  8070  8450 

B14<  - 6920  6980 

B8  - 6980  6990  7030 

01  - 6370  7140  7470  8460 

02  - 6370  7140  7470  8460 

D3  - 6130  6250  6330  6370  6420  6470  7140  7470  8460 

D44  - 6370  7140  7470  8460 

D5  - 6370  7140  7470  8460 

Q0<  - 6170  6390  6960  6980  7120  7400  7770 

Q04<  - 6930  7110  7170  7180  7200  7420  7510 

Q1  - 7590  8320  8330 

Q2  - 8320  8330 

024 ( - 6670  7160  7490  7800  7830  7890  8070  8080  8300  8320 

034 ( - 6990  7430  7510 

04  - 6140  6260  6340  6430  6480 

094  ( - 69-30  7000  7010  7070 

R0  - 7430  7440  7450  8250  8260  8280  82-30  8300 

R04  - 69-30  8250  8310 

R 1 - 7430 

R14<  - 8270  82-30  8300 

R24<  - 6690  6700 

R44 ( - 7050  7160  7490  7540  7800  7890  8080  8270 

R54<  - 6690  7000  7060  7550  7570 

R94 ( - 6670  6680  6690  6710  6720  6730  6970  7040  7050  7060  7070  7080  7520  7530 

7540  7550  7560  7570  7580 
T1  - 6150  6390  6710  7760  7770 

T14(  - 6910  7010  7020  7030  7410  7560 

T2  - 6700  6710  6940  7080  7090  7100  7190  7390  7450  7500  7510  7580  7590 

T3  - 6950  7080  7210 

T4  - 7020  7070  7200  7210  7410  7430  7510 

T5  - 6960  7010  7020  7030  7040  7120  7220  7400  7410  7530  7560  7600 


647 


AUTHOR  SX&'te-™ 


P ha &e  3 


ATH30S . 1 


MAR 


0000  UtFFN'  0 

0001  UfcFFN'  1 

0002  DEFFN ' 2 

0003  DEFFN'  3 
????  DEFFN'  30 

- €.530 

€120  DtFFN-  50 
????  DtFFN-  100 

- €730  7080  7130  74€0  7580  7900  7910  7920  7930  7940  8330  8'i50 
????  UtFFN'  101 

- 7150  7480  7790  7880  8090 
????  DtFFN'  102 

- €110 

????  DtFFN'  105 

- 7430  8250 
????  DtFFN'  107 

- 7510  8310 
????  DtFFN'  110 

- €370  7140  7470  8460 
????  DtFFN'  200 

- €980 

????  DEFFN'  205 

- €240  €320  €410  €4€0 
€€€0  DEFFN'  210 

- €190  €270  €350 
€•300  DtFFN'  211 

- €210 

7380  UfcFFN'  212 

- €290 

7740  DtFFN'  213 

- €3€0 

80€0  UtFFN'  214 

- €200  €280  €4-30 
8240  UfcFFN'  215 

- €500 

8440  UtFFN'  21€ 

- €220  €300  €510 


MUSI 


TAEG  Report  No.  59 


ATH  309.(8 

The  purpose  of  the  'ATH309.0'  program  is  to  create  the  Suggestions  for 
Refresher  Training  pages  of  the  learning  module. 

The  remainder  of  this  section  presents  the  'ATH309.0'  program 
listing  and  reference  maps. 


I 


mm 


AUl HUN 


iy  E-temS  Ph-a&e  3 — ATH  309  _ O — CNTRI 


6000 
6010 
6020 
6030  RfcM 
6040  RLM 
6050  REM 
6060  RtM 


X##  Program  > AUTHOR/3  (ATH309.0)  Version  > 2.0  2200  T /VP  780323 

RfcM  ** 

This  program  will  construct  the  frames  describing 
the  suggestions  for  refresher  training. 


*•* 


6070 

RtM  ** 

6080 

RtM  ** 

60-30 

GOSUB 

/ 

102 

6100 

DEFFN 

/ 

050 

6110 

6120 

6130 

GOSUB 

/ 

110 

6140 

RfcM  ++ 

6150 

GOSUB 

/ 

205 

6160 

6170 

6180 

GOSUB 

/ 

110 

6190 

RfcM  ** 

6200 

GOSUB 

/ 

205 

6210 

6220 

6230 

GOSUB 

/ 

210 

fc240 

RfcM  ** 

6250 

GOSUB 

/ 

003 

D3  = 32 
Q4  = 46 


D3  = 32 
Q4  = 00 


D3  = 32 
Q4  = 49 


>:  RfcM  LOAD  DATA  FORMATS 
: RtM  DEFINE  ENTRY 
: REM  CLR  PAG  INDX  FLG 
: RtM  SET  ADRS  INDX 
: REM  SAVE  PAG  ON  DISK 

: REM  LOAD  NXT  FORMAT 
: RtM  CLR  PAG  INDX  FLG 
: RfcM  CLR  ADRS  INDX 
: RtM  SAVE  PAG  ON  DISK 

: RfcM  LOAD  LND  OF  FILE 
: REM  CLR  PAG  INDX  FLG 
: REM  SLT  ADRS  INDX 
: RfcM  SAVE  LND  OF  FILL 

: RfcM  RTURN  TO  MAIN  PROG 
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y u>  '■iiginiji 


r 
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AUTHON  Syste-m:  Phase  3 — ATH3<J'=>.  O — 


6560 

t.a/0 

6580 

6530 

6300 

6310 

63ao 

6330 

6340 

6350 

6360 

6370 

63110 

6390 

6400 

6410 

6450 

6430 

6440 

6450 

6460 

6470 


REM  ** 
REM  ** 
HEM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 
GOSUB 

IE 

GOSUB 

GOSUB 

GOSUB 


Subroutine 
Abstract  > 

To  save  last  frame  of  learning  module. 
Variables  > 

D5  > output  format  index  ! Q4t( ) > pag 
QO< ) > numeric  registr  stk  ! Wit  > binary 


5 1 0 


adrs  memory  bufr 
page  address 


510 

110 


103 

103 

103 


DATA  SAVE 
RETURN 


(Dl,D5,D3,D4t,D5) 

Q4t ( 47 ) = Q4t ( 49 ) 

D5  = 3 TEEN  6470 

(Wit, 1,00(6), 00(7) -(00(8) -1 >,0,  1 ) 
04t ( 47 ) = Wit 
( Q4t ( 49 ) , W1 , W5, W3, O, 5 ) 

( Wit, Wl, 00(6), 00(7)- (00(8) -1 ) ,0, 1 ) 

Q4t ( 49  > = Wit 

Qlt (D5)  = Wit 

BA  T #3,  (Dl,R0)Qlt( ) 


REM  ENTRY 
REM  SAVE  FRAME 
REM  S i OR  LAS  ) ADRS 
REM  SEOU  1NDX  FORMAT 
REM  CMPUT  FRST  FCH  ADR 
REM  SI  OR  ERST  FCH  ADRS 
REM  CMPUT  END  FICH  ADR 
REM  CMPUT  END  FICH  ADR 
REM  S I OR  END  F ICH  ADRS 
REM  INSRT  INTO  INDX 
REM  SAVE  INDX  BUFFER 
REM  EXIT 


( ) 


F-'  ha  & e 


3 


rtTH  30-3  _ O 


AU  f HUH  Byst em Z 

6470  - 6390 


Ft 


AU  I NOR  Sy  s-t  pm:  P ha 


3 — ATHaO-3.  (J 


v mai-* 


01 

- 

€>130 

€180 

€370 

€460 

U2 

- 

0130 

€180 

6370 

€450 

D3 

- 

€110 

€130 

61€0 

€180 

€210 

D4$ 

- 

€>130 

€180 

€370 

D5 

- 

€•130 

€180 

€370 

€390 

00< 

- 

€400 

€430 

Ql*< 

- 

€450 

€4€0 

04 

- 

€120 

€170 

€220 

04*  ( 

- 

€380 

€410 

€420 

€440 

HO 

- 

€460 

W1 

- 

€420 

€430 

Wl* 

- 

€400 

€410 

€430 

€440 

€450 

wa 

- 

€420 

W3 

- 

€420 

AU  1 HQR  Sy  s-fct?m:  P ha  s e 3 — ATM 303 . O — 

0000  DbFFN ' O 

0001  DbFFN'  1 

0002  DbFFN ' 2 

0003  DbFFN'  3 

- 6250 

6100  DbFFN'  SO 
????  DbFFN'  102 

- 6000 

????  DbFFN'  103 

- 6400  6420  6430 
????  DbFFN'  110 

- 6130  6180  6370 
????  DbFFN'  205 

- 6150  6200 
6360  DbFFN'  210 

- 6230 


" MAH 
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° 5.32  ATH3INDX 

The  purpose  of  the  'ATH3INDX'  program  is  to  update  the  disk  lookup 
index  on  each  output  diskette  if  a multivolume  output  was  created. 

The  program  will  also  scan  each  page  of  the  learning  module  replacing 
all  symbolic  page  references  to  the  actual  page  number. 

The  'ATH31uDX'  program  is  presented  in  two  parts. 

5.32.1  ATH3IDX1 

This  part  of  the  'ATH3INDX'  program  contains  the  control 
logic  for  performing  the  functions  described  above.  The 
’ATH3IDX1 ' program  also  contains  subroutines  201  to  213. 

The  remainder  of  this  section  presents  the  'ATH3IDX1 ' 
program  listing  and  reference  maps. 


AU  I I !GR  fciys-t  e>m 


I-'  ha  sc  3 


ATH 3 1 D X 1 


CN1  RL_ 


4000 

4004 

4008 

4018 

4016 

4020 

4024 

4028 

4032 

4036 

4040 

4044 

4048 

4052 

4056 

4060 

4064 

4068 

4072 

4076 


SiHt  Pro 
REM  ** 
RLM  *"* 
REM  ■** 
REM  ** 
REM 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
REM  ** 
REM  ** 
GOSUB 
UEFFN 
DIM 

COSUB 
REM  ** 


gram  > AUTHOR/3  (ATH3IDX1)  Version  > 2.0  2200  T/VP  780323 

Abstract  «-»-»*+«*++-»* 


This  program  will  scan  the  phase  III  output  file 

and  will  replace  all  code  references  to  there  approprate 

frame  address.  If  a fiche  format  file  was  created, 

then  a complete  index  will  be  created  for  each  fiche  page 

created.  Before  and  after  processing  if  more  than  one 

output  disk  was  created  then  all  index  sectors  on  all  disks 

will  be  updated. 


** 

** 

•a-#- 


102  ( "DATASUBPRUGRAM"  , "ATH1 10.0*  , "‘3000"  ) : REM  LOAD  INDX  FORMAT 


050 


T3*l 

T9*  = HEX(FF) 


201 


REM  DEFINE  ENTRY 
REM  DEFINE  EOF  FLAG 
REM  IN1T  EOF  FLAG 
REM  UPDATE  DISK  INOX 


4080 

GOSUB 

' 202 

4084 

GOSUB 

' 203 

4088 

GOSUB 

' 204 

40S2 

GOSUB 

' 205 

40-36 

GOSUB 

' 206. 

REM  LOAD  PAGE  FOR MAI 
REM  TEST  FOR  INDEX 
REM  SCAN  FOR  KEYWORD 
REM  PROCESS  KEYWORD 
REM  RE-SAVE  PAGE 


4100 

REM  *+ 

4104 

IF 

T-3* 

= HEX ( OO ) 

4108 

REM  *■» 

4112 

T-3* 

= HEX<FF) 

4116 

G05L6 

' 203 

4120 

GOSUB 

' 201 

4124 

REM  ** 

4128 

D1  = 

474747 

4132 

GOSUB 

' 004 

THEN  4080  : REM  LOAD  NXT  FURMAT 


: REM  SET  LAST  INDX  FL.G 
: REM  INSR1  LAST  INDX 
: REM  UPDATE  DISK  INDX 


: REM  SET  AUTO  L1S1  FLG 
: REM  RTURN  TO  MAIN  PROG 


Hf  . ••• 


AUTHOR  Sy  st  e-m  : P P«^>  se  3 


ATHillDX  1 


O 


i ( 
1 


4136  REM  ** 
4140  REM  ** 
4144  REM  ** 
4148  REM  ** 
4152  REM  ** 
4156  REM  ** 
4160  REM  ** 


Subroutine  ^•iHt*************-**************-**************  2 o 1 
Abstract  > 

To  update  all  index  sectors  on  all  volumes  of  the 
output  file,  only  if  more  than  one  volume  was 
created. 


4164 

REM 

■** 

Variables 

> 

4168 

REM 

■** 

004  < ) 

> 

register  stack 

! T1 

last  volume  id 

4172 

REM 

•** 

R04(  ) 

> 

input  register 

! T2 

> 

current 

volume 

indx 

4176 

REM 

094  ( ) 

> 

i/o  buffer 

! T3 

> 

curretn 

volume 

id 

4180 

REM 

■*Hfr 

DO 

> 

scratch  indx 

! D1 

> 

scratch 

indx 

4184  REM 
4188  REM 
4192  DEFFN 


4196 

4200 

4204 

4208 

4212 

4216 

4220 

4224 

4228 

4232 

4236. 

4240 

4244 

4248 

4252 

4256 

4260 

4264 

4268 

4272 

4276 

4280 

4284 

4288 

4292 

42-36 

4300 

4304 

4308 

4312 

4316 

4320 

4324 

4328 

4332 

4336 

4340 


201 
MAT  REDIM 
IF 


101 


094(64)4 

004(2)  <>  HEX ( 31 ) 
T2  = 1 
(1,1,16,0) 


THEN  4432 


GOSUB 

GOSUB  ' 101  (2, 1,0,0) 
PRINTUSING  4400,  “ " 
GOSUB  ' 101  (6, 1,0,0) 
PRINTUSING  4404,  “ “ 
REM  ** 

GOSUB  ' 091 
DATA  LOAD 
ROTATE 


BA  T #3,  (0,DO)  0-340 
(094(13), 4) 

T1  = VAL ( STR ( 094 (13), 1,1)) 


IF  T1  > 1 

GOSUB  ' 101  (10,1,0,0) 

PRINTUSING  4408,  * * 

4GI0  TONE  /005  (R84(4> ,R84(9) ) 

4GI0  TONE  /005  (R84(4) ,R84(9> ) 

GOSUB  ' 101  (10,1,1,0) 

GOTO  4232 

REM  *-» 

GOSUB  ' 101 
PRINTUSING 
GOSUB  ' 0-31 
DATA  LOAD 
ROTATE 


THEN  4280 


(6, 1, 1,0) 

4412,  T2 

BA  T #4,  (0,00)  094 ( ) 
(094(13), 4) 

T3  = VAL ( STR ( 094 ( 1 3 ) , 1 , 1 ) ) 


IF  T3  = T2 

GOSUB  ' 101  (10,1,0,0) 

PRINTUSING  4416,  T3,  T2 
4GI0  TONE  /OOS  (R84(4) ,R84(9> ) 
4GI0  TONE  /005  (R84( 4) , R84( 9 ) ) 
GUSUB  ' 101  (10,1,1,0) 

GOTO  4288 

REM  ** 

GOSUB  ' 101  (6,1, 1,0) 

PRINTUSING  4420,  “00“ 


THEN  4336 


REM  ENTRY 

REM  DEFINE  I/O  BUFR 
REM  NO  MULTI  DISKS 
REM  INIT  VOL  ID 
REM  CLR  CONSOLE  SC REN 
REM  POSITION  CUSOR 
REM  PRINT  HEADING 
REM  POSITION  CUSOR 
REM  PRINT  INSTRUCTION 

REM  RESPONCE  WAIT 
REM  LOAD  SYS  SECTOR 
REM  CONV  TO  DEC  VAL 
REM  STOR  VOL  ID 
REM  VALID  VOL  ID 
REM  POSITION  CUSOR 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  PAUSE  TONE 
REM  ERASE  ERR  MSG 
REM  BRANCH  TO  WAIT 

REM  POSITION  CUSOR 
REM  MOUNT  DISK  VOLUME 
REM  RESPONCE  WAIT 
REM  LOAD  SYS  SECTOR 
REM  CONV  TO  DEC  VAL 
REM  STOR  VOL  ID 
REM  VALID  VOL  ID 
REM  POSH  ION  CUSOR 
REM  PRINT  ERR  MSG 
REM  PAUSE  TONE 
REM  PAUSE  TONE 
REM  ERASE  ERR  MSG 
REM  BRANCH  TO  WAIT 

REM  ERASE  PROMPT 
REM  PRINT  TITLE 


€ 
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BEGIN  SAV  LOUP 
LOAD  1NDX  SCTR 
SAVE  INDX  SCTR 
POSITION  CUSOR 
PRINT  TITLE 
CONT  SAV  LOOP 

I NCR  VOL  ID  INDX 
VOLUMES  UPDATED 
LOAD  NXT  DISK 

IMAGE  FORMATS 

# # 

4404  X>>#  Mount  Last  Disk  used  into  the  PRIMARY  DISK  DRIVE  <<' 

4408  Z»#ERROR.  . .LAST  DISK  VOLUME  NOT  MOUNTED  OR  NO  MUTLIPLE  DISKS  << 

4412  Z»  Mount  Volume  ##  Into  the  SECONDARY  DISK  DRIVE  << 


4416 

X» 

ERROR. . .Volume  ##  is 

mounted  ... 

Mount  Volume  ## 

« 

4420 

X» 

Copying  Index 

Sectors  ... 

## 

<< 

4424 

REM  ** 

4428 

REM  ** 

4432 

RETURN 

: REM  EXIT 

4348 

FOR 

DO  * 1 TO  15 

a 

a 

REM 

4352 

DATA  LOAD 

BA  T #3,  <D0,D1) 

09*  ( ) 

a 

REM 

4356 

DATA  SAVE 

BA  T #4,  (DO,Dl ) 

09*  ( ) 

REM 

4360 

GOSUB  ' 101 

<6, 1,0,0) 

REM 

4364 

PRINTUSING 

4420,  DO 

REM 

436-8 

NEXT 

DO 

REM 

4372 

REM  ** 

4376 

T2  = T2  + 1 

REM 

4380 

IF 

T2  = T1 

THEN 

4432  : 

REM 

4384 

GOTO 

4280 

REM 

4388 

REM  ** 

4392 

REM  ** 

: 

REM 

43-36 

REM  ** 

4400 

X # * * 

UPDATING 

DISK 

I N D 

E X 

I ’ 


o 


AUTHOR  System:  Phase  3 — ATH 3 1 D X 1 — 


4820 

4824 

4828 

4882 

4836 

4840 

4844 

4848 

48b2 

4856 

4860 

4864 

4868 

4872 

*876 

4880 

4884 

4888 

4892 


HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
UEFFN 
DIM 
UEFFN 
UEFFN 
REM  *"» 


*•» 


Subroutine 
Abstract  > 

To  scan  the  current 
a keyword  in  found 
keywords  on  page. 
Variables  > 

G5*()  > keyword  indx 
T8*()  > keyword  info 


2 0 4 


page  buffer  for  a keyword.  If 
et  up  key  buffer.  Process  all 


buffer 

buffer 


T8  > keyword  bufr  indx 
T7  > page  buffer  indx 


Rb*<)  > single 
R2*()  > srch  r 
R2  > position 
T9*  > eof  flag 


char  buffer 
eturn  buffer 
in  index 


204 


HHHUHHUHHHUHHHUHUHHHHUUMHHUHHUHW-it 

T8*< 10, 3)2 
P<P)  - I NT  <P/2b6) 

Q(Q)  - Q - FNP(Q)*2S& 


REM  ENTRY 

REM  DEE  IN  WORK  BUFRS 
REM  DEFINE  FUNC1 1UN 
REM  DEFINE  FUNCTION 


4896 

IF 

T9*  » HEX(EF) 

THEN 

5192 

REM 

END  OF  FILE 

4900 

INIT(OO) 

TB*<  ) 

REM 

INI!  KEY  BUFR 

430* 

T8  = 1 

REM 

IN1T  KEY  INDX 

4908 

T7  = 1 

REM 

IN1T  BUFR  INDX 

4912 

IF 

T7  > 1024 

THEN 

4992 

REM 

END  OF  PACE 

4916 

MAT 

SEARCH 

Q2*<  >07,  1024-T7+1>,  -Rb*(b)  10 

R2*(  > 

REM 

SRCH  FOR  KEYWORD 

4920 

IF 

R2* ( 1 ) = HEX(OOOO) 

THEN 

4992 

REM 

NO  KEYWROS  FOUND 

4924 

T7  - FNR(VAL(R2*< 1 > ) > + 

T7 

REM 

I NCR  BUFR  INDX 

4928 

MAT 

SEARCH 

Q2*<  ><T7, 1024- T 7+1 >, =R5* ( 1 ) 10 

R2*<  > 

REM 

SRCH  FOR  END 

4932 

T6  = FNR ( VAL (R2*< 1 > > ) - 

1 

REM 

LENC1H  OF  KEY 

4936 

IF 

T6  <>  4 

THEN 

4984 

REM 

INVALID  KEY  L.EN 

4940 

MAT 

COPY 

Q2*  (><17,  T6>  TO  R9*  < > < 1 , 

64  > 

REM 

SiOR  KEYWORD 

4944 

MAT 

SEARCH 

Q5*(),  = STR ( R9* ( 1 > , 1 , 3 ) 

TO  RE* < > 

REM 

SRCH  KEYWRD  BUFR 

4948 

IF 

R2*( 1 ) * HEX(OOOO) 

THEN 

4984 

REM 

INVALID  KEY 

4952 

4956 

4960 

4964 

4968 

4972 

4976 

4980 

4984 

4988 

49-92 

4996 

bOOO 

5004 


R2  = FNR ( VAL ( R2* ( 1 ) ) ) 

R2  =-  I NT  ( R2/3 ) + 1 

BIN (SIR (1 8* ( T8, 1 ) , 1 , 1 ) ) = FNP ( T7- 1 ) 
B1N(STR(T8*(T8,  1),2,  1)>  - FNG(T7-1> 
B1N(STR (T8*(T8, 2) ,1,1))  = FNP<R2) 
BIN(STR(T8*(T8,2),2,1>>  = FN0<R2) 


GOTO 

IF 

REM  *# 
RETURN 


STR(T8*(T8, 3> , 1,2) 
T8  * T8  + 1 
T7  ~ T7  + T6 
4912 
T8  = 1 
T8  ~ T8  + 1 


Si  R ( R9* ( 1 >,4,1) 


THEN  5004 


REM  CMPUT  BUFR  POC 
REM  CMPUT  INDX 
REM  STUR  BUFR  POSITION 
REM  STUR  BUFR  PUSH  I UN 
REM  S I OR  INDEX 
REM  STUR  INDEX 
REM  Si  OR  KEYWORD  PRAM 
REM  I NCR  KEY  BUFR  INDX 
REM  I NCR  BUFR  INDX 
REM  SRCH  NXT  KEYWORD 
REM  ONLY  ONE  KEYWORD 
REM  ADJUST  INDEX 

REM  EXIT 
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AU  I I IGR  System 


P ha se  J 


ATH3IUX1 


a?  o 


5008  HEM  *•* 

5012  REM  *+ 

b016  HEM  *■*  Subroutine  ***«*******-****-**-»-»*-»-**-***-«-*-*-»**-***-tt*****-*-»**  a o 5 
5020  RLM  **  Abstract  > 

5024  HEM  **  To  insert  frame  address  corresponding  to  the  keyword. 

5058  RLM  •**  Variables  > 

5035  HEM  T8*(>  > keyword  data  buffer  ! T8  > keyword  bufr  indx 

5036  REM  **  T9*  > eof  flag  I T6  > branch  indx 

5040  REM  *•*  T8*  > binary  page  address  ! SI  > page  row  location 

5044  HEM  ■**  S 5 > page  col  location  ! 

50 A 8 REM  *•* 

5052  HEM  II  IHHHH1 1HHHHHMHC  II  » »■»■» 

5056  DE'FFN  ' 205  : REM  ENTRY 

5060  L>IM  T8*2  : REM  DEFINE  WORK  BUFRS 

5064  UEFFN  S<S)  * 256*VAL (STR ( T8* (S, 1 ) , 1 , 1 ) ) +FNT (S)  : REM  FUNCT ION 

506.8  DEFFN  T (T)  * VAL (ST R ( T8* ( T, 1 > , 2, 1 ) > : REM  FUNCTION 

5072  DEFFN  U(U)  - 256*VAL ( Si R ( T8* (U, 2), 1,1)) +FNV<U)  : HEM  FUNCTION 

5076  DEFFN  V(V>  = VAL < STR < T8* < V, 2 > , 2, 1 ) ) : REM  FUNCTION 

5080  HEM  ** 

5084  T8  - 1 : REM  IN1T  KEY  INDX 

5088  IF  T9*  = HEX (EF)  THEN  5192  : REM  END  OF  FILE 

j092  IF  T8*<T8, 1)  = HEX<0000)  THEN  5192  : REM  END  OF  KEYS 

50-36  T6  = FNU(T8)  : REM  FETCH  KEY  INDX 

5100  REM  ** 

5104  Rt.M  **•  ! skip  b ! skip  f ! index  ! close  ! practc  ! 

5108  REM  **  ! ! ! ! ! ! 

5112  ON  Tfc.  GOTO  5128  , 5132  , 5136.  , 5140  , 5144  , 

5148  , 5152  , 5156  , 5160  , 5164 

5116  REM  +*  ! ! ! ! ! ! 

5120  REM  ■*"*  ! end  ! disg  ! extra  ! extra  ! extra  ! 

5124  REM  ** 


5128 

COSUB 

' 

214 

( 1 , T8, T8* ) 

GOTO 

5172 

REM 

SKIP  BACK 

5132 

COSUB 

/ 

214 

(2, T8, T8* ) 

GOTO 

5172 

REM 

SKIP  FORWARD 

5136 

CUSUB 

/ 

215 

( 1 , T8* ) 

GO  1 0 

5172 

REM 

INSRT  INDX 

5140 

GOSUB 

/ 

215 

(2,78*) 

GOTO 

5172 

REM 

INSRl  CLOSE 

5144 

cost© 

/ 

215 

( 3,  T8* ) 

GOTO 

5172 

HEM 

INSRT  PRACTICE 

5148 

GOSUB 

/ 

215 

< 4, T8* ) 

GOTO 

5172 

REM 

INSRl  END 

5152 

COSUB 

/ 

215 

( 5, T8* ) 

GO  10 

5184 

REM 

DIACHAM 

5156 

COSUB 

t 

215 

(6, T8* ) 

GOTO 

5184 

REM 

EXTRA  SLOT 

5160 

GOSUB 

/ 

215 

( 7, T8* ) 

GOTO 

5184 

REM 

EXTRA  SLOT 

5164 

COSUB 

/ 

215 

( 8, T8* ) 

GOTO 

5184 

REM 

EXTRA  SLOT 

5168 

REM  ** 

5172 

SI  * INT( (FNS(T8>- 

l)/64) 

+ 1 

REM 

CMPUTE  ROW  INDX 

5176 

S2  = FNS(TB)  - (SI 

-1 ) *64 

REM 

CMPUTE  COL  INDX 

5180 

COSUB 

/ 

210 

(T8*,S1,S2> 

REM 

INSRl  PAG  ADRS 

5184 

T8  ” T8  + 1 

REM 

INCH  KEY  INDX 

5188 

GO!  0 

5092 

REM 

GET  NEXT  KEY 

5192 

HE  TURN 

REM 

EXIT 

662 
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5196  RtM  ** 

5200  HtM  ** 

5208  RtM  **  Abstract  > 

5212  HEM  **  To  save  current  page  on  disk  if  any  changes  were  made. 

5216  HEM  **  Variables  > 

5220  HtM  **  T9*  > eof  flag  i T8*<)  > Keyword  oata  buffer 

5224  HEM  **  Ql*()  > disk  indx  buffer  ! D2  > indx  bufr  indx  2 

5228  RtM  **  Q2*<)  > page  buffer  ! DO  > loop  indx 

52 92  HtM  **  09*  ( ) > i/o  buffer  ! R3*  > disk  storage  sctr  addrs 

5236  HtM  ** 

B2A0  HEM  *******  « 

524 A DEFFN  ' 206  : REM  ENTRY 

5248  IF  T9*  = HEX(EF)  THEN  5284  I HEM  END  OF  FILE 

5252  IF  T8* < 1 , 1 ) = HEX(OOOO)  THEN  5284  : REM  NO  CHANGES 

5256  GOSUB  ' 106  (Q1*(D2+1 ) ,2)  : REM  MOUNT  DISK 

5260  REM  ** 

5264  FOR  DO  = 1 TO  4 : REM  BEG  STOH  LOUP 

5268  MAT  COPY  Q2*< >< <D0-1 >*256+1 , 256>  TO  09*0  : RtM  LOAD  1/0  BUFR 

5272  DATA  SAVE  BA  T #3,  <R3*,R3*>  09*0  : REM  SAVE  BUFFER 

5276  NEXT  DO  : REM  CONT  STOH  LOOP 

5280  REM  ** 

5284  RETURN  : REM  EXIT 
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AUTHUK  Syst  e_»tti  : 


P ha  s t? 


ATHaiDXl 


Mia 

5416 

Mao 

5434 
5438 
5433 

5435 
5440 
5444 
5448 
5453 


HEM  ** 
REM  ** 
REtl  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM 
REM 


Subroutine  ******^****************^**-*-*-****-i<--*-iH«-***-ti'*-**  3 0 9 

Abstract  > 

To  Initialize  output  page  buffer  from  the 
Data  Subprogram. 

Variables  > 

CO  > initial  buf  indx  ! 03* ( ) > page  buffer 
Q0< ) > prog  registr  stk! 


5456 

OEFFN  ' 309 

(CO) 

: 

REM 

ENTRY 

5460 

RESTORE 

1 

: 

REM 

RESTOR  POINTER 

5464 

REM  ** 

5468 

REM  ** 

! CLR  BUFR 

1 

LOAD  BEG  ! 

SKP  EMT 

: 

REM 

FUNCTION 

1 

5473 

REM  ** 

! LOAD  BEG 

1 

PRINT  TXT  • 

NULL 

REM 

FUNGI  ION 

a 

5476 

REM  *•* 

! PRINT  TXT 

1 

NULL  ! 

NULL 

z 

REM 

FUNG  I ION 

3 

5480 

REM  ** 

1 

! - 

1 - 

i 

5484 

ON  CO  GOTO 

5500 

9 

5504  , 

5516 

REM 

BRANCH 

o 


5488 

5493 

5496 

5500 

5504 

5508 

5513 

5516 

5530 


REM  ** 
REM  *•* 
REM  ** 
IN1T 


II 


*G  10 
GOSUB  " 
RETURN 


317 


(30  ) 03*0 

Q0<9)  = 1 

00(10)  = 1034 

ERASE  CR 1/005 < 4003, R8*( 9) ) 

(CO) 


REM  INITIAL  BUFR 
REM  SET  TO  BUFR  BEG 
REM  SET  BUFR  SIZE 
REM  CLEAR  CR I SCRN 
REM  LOAD  BUFR 
REM  EXIT 


c 
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AUTHOR  System 


P ha  & e 3 


ATH 3 I D X 1 


St  1 O 


SS34  REM  ** 
bbSS  RbM  ** 

S&35  RtM  **  Subroutine  -»hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhm«-  £10 
E.S36  RbM  **  Abstract  > 

b540  RbM  **  To  convert  the  binary  page  address  into  proper 

S544  RbM  **  format  and  insert  into  page  buffer  at  given  location. 

SS48  RbM  **  Variables  > 

bb52  RbM  **  SI  > page  row  location  ! Sc!  > page  col  location 

S5S6  RbM  **  08*  > binary  page  address  ! D7*  > converted  page  address 

B560  RbM  **■ 

SSf.A  RbM  **************^^****-fHHH*********-H-*-*-**-*-H--**-*-* 


sses 

OEFFN  ' 

aio 

<D8*,si,sa> 

REM 

ENTRY 

b57£ 

IF 

08*  <>  HEX(FFFF) 

THEN  5b88  : 

REM 

ITM  INDX  EXISTS 

5b76 

07*  = " N/A" 

REM 

SET  PAGE  REFERNCE 

B580 

GOTO 

5boa 

REM 

INSRT  PAGE  REFRNCE 

SB84 

RbM  ** 

5bS8 

GOSOB  ' 

118 

(08*, 07*) 

REM 

CONV  PAG  ADDRS 

bb95 

GOSOB  ' 

lOO 

<S1,S2,S,D7*,0) 

REM 

INSRT  INTO  BUFR 

SB96 

RETURN 

REM 

EXIT 

AUTHOR  Systi 


P ha  b e 


— ATH3IDX1  — 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  **■ 
REM  *** 
OEFFN 
DIM 


Abstract  > 

To  create  the  list  of  symbols  by  symbol  set  to  use 
in  the  fiche  index  and  insert  these  lists  into  the 
page  buffer. 

Variables  > 

Ml  > symbol  id  table  indx  1 ! M2  > symbol  id  table  indx  2 

Q1  > page  bufer  line  indx  ! M3  > internal  line  position 

Q7*( ) > symbol  id  table  ! Q3*( ) > symbol  lokup  table 

09* ( ) > i/o  buffer  ! R9*( ) > temp  line  buffer 

DO  > loop  index  ! M4  > symbol  length 

Rl*()  > storage  bufer  ! RO  > buffer  size 

R1  > item  id  ! GO*()  > system  register  stack 

B0*( ) > temp  storage  buffer  ! BO  > storage  buf r indx 


INIT (20) 
IF 

DATA  LOAD 
MAT  COPY 


MAT  COPY 
MAT  COPY 


GOTO 
REM  ** 
IF 

GOSUB 

GOSUB 


B0*(6>45 
Ml  = 1 
M2  = 1 
M3  = 1 
01  = 10 
BO  = 1 
B0*(  ) 

07* (M2, 1 ) <>  07* (Ml , 1 ) THEN  5756 
BA  T #2,  (03* (M2,  3)  ,R0*)  09*0 
09* < ) <1 , 15>  TO  R9* ( XI, 64 > 

M4  = LEN ( R9* ( 1 ) ) 

M3+M4+3  <41  THEN  5732 

M3  = 1 
BO  = BO  + 1 

R5*( ) <9, 1>  TO  R9*( > ,M4+2, 1> 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  INIT  SSL  ID  INDX 
REM  INIT  SBL  ID  INDX 
REM  INIT  BUFR  PCIS  INDX 
REM  INIT  BUFR  LIN  INDX 
REM  INIT  STOR  BUFR  IDX 
REM  CLR  STORAGE  BUFR 
REM  END  OF  SBL  SET 
REM  LOAD  SYMBOL 
REM  STOR  SYMBOL 
REM  CMPUTE  SBL  LENGTH 
REM  LINE  NOT  FULL 
REM  RESET  BUFR  POS  IDX 
REM  I NCR  BUFR  INDX 
REM  STOR  SEP  CHAR 


R9*( )<l,M4+2>  TO  B0*C><(B01)*45+M3,M4+2>:  REM  STOR  SYMBOL 
M3  = M3  + M4  + 3 : REM  INCR  LIN  POSITION 

= M2  + 1 : REM  INCR  SBL  TBL  INDX 

5704  : REM  GET  NEXT  SYMBOL 


16-01  >=  BO+1 
216  (1) 

100  (3,6, 13, "Symbol  Sets:“,0) 
01  = 4 


THEN  5776  : REM  SPACE  AVAIABLE 
: REM  SAVE  INDX  PAGE 
: REM  INSRT  HEADING 
: REM  RESET  LINE  INDX 


u 


5772 

REM  ** 

5776 

Q0*<1>  = "1* 

REM 

SET  NUL  LOOKUP 

5780 

GOSUB  ' 

105 

<Q3*<M1,2),R0,R1> 

REM 

FETCH  SET  NAME 

5784 

MAT  COPY 

R1*<)<1,64>  TO  R9*<X1,64> 

REM 

STOR  SET  NAME 

5788 

GOSUB  ' 

100 

(Q1 , 10, 40,R9$( 1 ) , 0) 

REM 

INSRT  SET  NAME 

5792 

GOSUB  ' 

210 

<04*<VAL<Q7*<M1, 1) ) ),Q1,57> 

REM 

INSRT  PAG  ADORS 

5796 

FOR 

DO  = 1 TO  BO 

REM 

BEG  SSL  INSRT 

5800 

GOSUB  ' 

100 

<01+00, 15,40,B0*(D0>,0> 

REM 

INSRT  SYMBOLS 

5804 

NEXT 

DO 

REM 

CONT  SBL  INSRT 

5808 

01  = Q1  + BO  + 1 

REM 

I NCR  LINE  INDX 

5812 

IF 

M2  > 00(2)  THEN  5840 

REM 

END  OF  SETS 

5816 

Ml  = M2 

REM 

SET  SBL  TBL  INDX 

5820 

M3  = 01 

REM 

RESET  LINE  POS 

5824 

BO  = Ol 

REM 

RESET  BUFR  INDX 

5828 

INIT (20) 

B0*< ) 

REM 

CLL  STOR  BUFFR 

5832 

GOTO 

5704 

REM 

PROCSS  NXT  SET 

5836 

REM  ** 

5840 

RETURN 

: REM 

EXIT 

/NLJ  I HOR  Sysi:  E?m 


Phase  3 


ATH31UX1 


SIS 


r 


■ 


5844  REM 
5848  RtM 
5852  HEM 
5856  REM 
5860  RtM 
5864  RtM 
5868  RtM 
5872  RtM 
5876  RtM 
5880  RtM 
5884  RtM 
5888  RtM 
5892  RtM 
58-36.  RtM 


*■* 

■*-* 


Subroutine 
Abstract  > 

To  insert  an  index  item  into  the  index  if  there 
is  enough  space,  otherwise  sRip  to  next  page  then 
insert. 

Variables  > 

R9*(>  > 

D7*  > 

08* ( ) > 

04* ( ) > 


2 1 2 


text  buffer 
converted  pag  adrs 
heading  memory  bufr 
pag  ref  memory  bufr 


08  > heading  bufr  index 
01  > buffer  line  indx 
04  > pag  reference  bufr  indx 
Q0*( ) > sys  memory  flags 


5-300 

DEFFN  7 

212 

(08,04) 

REM 

ENTRY 

5904 

It 

16-01  >*  2 

THEN 

5924 

RtM 

SPACE  AVA I ABLE 

5908 

GOSUB  7 

216 

(1) 

RtM 

SAVE  INDX  PAGE 

5912 

01  = 3 

REM 

RESET  LINE  INDX 

5916 

GOTO 

5932 

REM 

BRANCH  TO  INSRT 

5920 

REM  ** 

5924 

GOSUB  7 

lOO 

(01,6,54, G8*(4) ,0) 

REM 

INSRT  LINE 

5928 

01  = 01  -t  1 

REM 

I NCR  LINE  INDX 

5932 

IF 

04* (04)  <>  HEX (FFFF) 

THEN 

5948 

REM 

IIM  INDX  EXISTS 

5936 

07*  = “ N/A“ 

REM 

SET  PAG  REFER NCE 

5940 

GOTO 

5952 

REM 

INSRT  PAG  REFRNCE 

5944 

REM  ** 

5948 

GOSUB  7 

118 

( 04* ( 04 ) , D7* ) 

RtM 

CREATE  PAG  REFRNCE 

5952 

GOSUB  7 

lOO 

(01 ,6, 40, 08* (08) ,0) 

REM 

INSRT  TTIXT 

5956 

GOSUB  7 

lOO 

(01, 57, 4, 07*, 0) 

REM 

INSRT  PAG  ADRS 

5-36.0 

01  * Q1  + 1 

REM 

I NCR  LINE  INDX 

5-364 

RETURN 

REM 

EXIT 

o 
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AUTHOR  System:  Phase 


— ATH3IDX1  — a 1 3 


5-368  RtM  ** 
5972  RtM  ** 
5976  RtM  ** 
5980  RtM  ** 
5984  RtM  +* 
5988  RtM  *-* 
5992  RtM  *-*-*"* 
5996  OtFFN  ' 
6000  GOSUB  ‘ 
6004  COSUB  ' 
6008  RtTURN 


Subroutine  »«»»«  iuhhhuhhuhhhh 
Abstract  > 

To  save  last  page  of  index. 


100  ( 16,46, 18, “End  of  Index*, 0) 
216  <0) 


2 13 


REM  ENTRY 
REM  INSRT  MESSACt 
REM  SAVE  INDX  PAGE 
RtM  EX II 


AU I HQR  System:  Phase  3 


ATH3IDX1 


4080 

4104 

4838 

4878 

4880 

- 

4848 

4384 

4888 

4388 

4330 

- 

4304 

4400 

- 

4816 

4404 

4884 

4408 

- 

4856 

4418 

4884 

4416 

- 

4318 

4480 

- 

4340 

4364 

4438 

- 

4800 

4 380 

4580 

- 

44-36. 

4544 

- 

4538 

4576 

- 

4556 

4584 

“ 

4544 

45'36 

- 

4584 

4656 

- 

4568 

4598 

4684 

4778 

- 

4758 

4816 

- 

4744 

4756 

4760 

4764 

4918 

- 

4988 

4984 

- 

4936. 

4948 

4-398 

4918 

4980 

5004 

- 

49-38 

50-38 

- 

5188 

5188 

- 

5118 

5138 

- 

5118 

5136 

- 

5118 

5140 

- 

5118 

5144 

- 

5118 

5148 

- 

5118 

5158 

- 

5118 

5156 

- 

5118 

5160 

- 

5118 

5164 

- 

5118 

5178 

5188 

5138 

5136 

5140  5144 

5184 

- 

5158 

5156 

5160 

5164 

5198 

- 

4896. 

5088 

5098 

5884 

- 

5848 

5858 

5396 

- 

5380 

5500 

5484 

5504 

- 

5484 

5516 

- 

5484 

5588 

5578 

5598 

- 

5580 

5704 

- 

5748 

5838 

5738 

- 

5780 

5756 

- 

5704 

5776 

5756 

5840 

- 

5818 

5984 

- 

5904 

5938 

- 

5916 

5948 

- 

5938 

5958 

- 

5940 

MAP 


O 
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AUTHOR 

Sy s t em : 

F*  t~« 

Sr  S-  ( 

e-  3 

1 — 

ATH3IDX 1 

- V 

MAP 

BO 

_ 

5696 

5738 

5736 

5756 

5796 

5808 

5834 

B0*( 

- 

5676 

5700 

5736 

5800 

5838 

CO 

- 

5456 

5484 

5516 

DO 

- 

4336. 

4393 

4348 

4353 

4356 

4364 

4368 

4516 

4576 

4604 

4613 

4616 

5364 

5368 

5376 

5360 

536.4 

5396 

5404 

5796 

5800 

5804 

D1 

- 

4138 

4353 

4356 

4500 

4516 

4548 

4556 

4564 

4576 

5344 

5404 

Da 

- 

4504 

4534 

4544 

4553 

4584 

4596 

4748 

5356 

5348 

5353 

D5 

- 

4756 

D7* 

- 

5576 

5588 

5593 

5936 

5948 

5956 

D8* 

- 

5568 

5573 

5588 

LI 

- 

4508 

4536 

La 

- 

4513 

4538 

4533 

4540 

L3 

- 

5344 

5373 

5384 

5393 

L4 

- 

5348 

5368 

5376 

5380 

5388 

L5 

- 

537 a 

53-33 

L5* 

- 

5340 

5353 

5364 

Ml 

- 

5680 

5704 

5780 

5793 

5816 

Ma 

- 

5684 

5704 

5708 

5744 

5813 

5816 

M3 

- 

5688 

5730 

5734 

5736 

5740 

5830 

M4 

- 

5716 

5730 

5733 

5736 

5740 

P 

- 

4884 

Q 

- 

4888 

Q0( 

- 

4760 

4764 

5360 

5504 

5508 

5813 

Q0*< 

- 

4300 

5776 

Q1 

- 

5695 

5756 

5768 

5788 

5793 

5800 

5808 

5904 

5913 

5934 

5938 

5953 

5956 

5960 

Ql*< 

- 

4516 

4576 

4584 

4596 

4748 

5356 

5353 

5368 

5373 

5393 

5404 

oa*< 

- 

4613 

4644 

4916 

4-338 

4940 

5368 

5500 

Q3*< 

5708 

5780 

Q4 

5900 

5933 

5948 

04*  ( 

- 

4584 

4780 

4784 

4788 

5793 

5933 

5948 

05*  ( 

- 

4944 

07*  ( 

5704 

5733 

08 

- 

5900 

5953 

Q8*< 

“ 

4730 

4734 

4738 

4733 

4736 

5934 

5953 

0-3*  ( 

- 

4196 

4336 

4340 

4344 

4393 

4396 

4300 

4353 

4356 

4608 

4613 

5368 

5373 

5708 

5713 

. 

RO 

- 

5780 

RO* 

5708 

R1 

5780 

Rl*( 

- 

5784 

Ra 

4953 

4956 

4968 

4973 

Ra*( 

- 

4916 

4930 

4934 

4938 

4933 

4944 

4948 

4953 

R3* 

- 

4608 

5373 

R5*( 

- 

4916 

4938 

5733 

RS* 

- 

4633 

4640 

R8*< 

- 

4360 

4364 

4316 

4330 

4640 

4644 

5513 

R9 

- 

4636 

4640 

4644 

4648 

R9*< 

- 

4940 

4944 

4976 

5713 

5716 

5733 

5736 

5784 

5788 

S 

- 

5064 

SI 

- 

5173 

5176 

5180 

5568 

5593 

sa 

- 

5176 

5180 

5568 

5593 

T 

5068 

T1 

- 

4344 

4348 

4380 

Ta 

4304 

4384 

4304 

4313 

4376 

4380 

T3 

- 

4300 

4304 

4313 

T6 

- 

4933 

4936 

4940 

4984 

5096 

5113 

T7 

- 

4908 

4913 

4916 

4934 

4938 

4940 

4960 

4964 

4984 

T8 

- 

4904 

4360 

4964 

4968 

4973 

4976 

4980 

4993 

4996 

5084 

5093 

5096 

5138 

5133 

672 


r 


0 


5173 

5176 

T8* 

- 5060 

5138 

T8*( 

- 4880 

4900 

T9* 

- 4064 

4068 

U 

- 5073 

V 

- 5076 

W1 

- 4748 

5364 

Wl* 

- 5368 

wa 

- 4748 

4760 

M3 

- 4748 

4764 

5184 

513a 

4960 

4104 


5364 

5364 


5136 

4964 

4113 


5140  5144 
4968  4973 
4496  4530 


5148  515a  5156  5160  5164  5180 
4976  5064  5068  507a  5076  5093  5353 
4560  4588  4634  4744  4753  4896  5088 


5348 
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0000  DEFFN'  0 

0001  DEFFN'  1 

0002  DEFFN'  2 

0003  DtFFN'  3 
????  DtFFN'  4 

- 4132 

4060  DtFFN'  50 
????  DtFFN'  91 

- 4232  4288 
????  DtFFN'  10O 

- 5592  5764  5788  5800  5924  6952  5956  6000 
????  DEFFN ' 101 

- 4208  4212  4220  4252  4268  4280  4308  4324  4336  4360 
????  DEFFN'  102 

- 4056 

????  DEFFN'  103 

- 4748  5364 
????  DtFFN'  105 

- 5780 

????  DEFFN'  106 

- 4596  5266 
????  DEFFN'  118 

- 5588  5948 
4192  DEFFN'  201 

- 4072  4120 
4492  DtFFN'  202 

- 4080 

4716  DEFFN'  203 

- 4084  4116 
4876  DEFFN'  204 

- 4088 

6056  DEFFN'  205 

- 4092 

6244  DEFFN'  206. 

- 4096. 

5336  DEFFN'  208 

- 4772 

5456  DtFFN'  20-9 

- 4776 

5568  DEFFN'  210 

- 4780  4784  4788  5180  5792 
6672  DEFFN'  211 

- 4792 

6900  DEFFN'  212 

- 4796.  4800  4804 
5996  DEFFN'  213 

- 4808 

????  DEFFN'  214 

- 5128  5132 
????  DEFFN'  215 

- 5136.  5140  5144  5148  5162  5156  5160  5164 
????  DEFFN'  216 

- 5760  5908  6004 
????  DEFFN'  217 

- 5516 


" MAP 
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TAE6  Report  No.  59 


If 


I 


5.32.2  ATH3IDX2 

This  part  of  the  'ATH3INDX'  program  contains  subroutines 
214  to  217. 

The  remainder  of  this  section  presents  the  'ATH3IDX2' 
program  listing  and  reference  maps. 


j 

I 
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AUTHOR  System:  Phase  3 — ATH^IDXa  — 


£.400 

6404 

6408 

6412 

6416 

6420 

6424 

6428 

6432 

6436 

6440 

6444 

6448 

6452 

6456 

6460 

6464 

6468 

6472 

6476 

6480 

6484 

6488 

6492 

6496 

6500 

6504 

6508 

6512 

6516 

6520 

6524 

6528 

6532 

6536. 

6540 

6544 

6548 

6552 

6556 

6560 

656.4 

6568 

6572 

6576 

6580 

6584 


Zlt# 

REM 
REM  ** 
REM  *■* 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *+ 
REM 
DEFFN 
DIM 


(ATH3IDX2) 


forward 


Program  > AUTHOR/ 3 
**  Subroutine 
**  Abstract  > 

To  perform  the  skip  foward  or  skip 
**  depending  on  function  Rey  index. 

Key  index  1 - sRip  bacRward 

2 - sRip 

Variables  > 

T7  > function  Rey  index 
T8$  > binary  page  adrs 
Ml  > indx  sctr  adrs  (temp) 

T6  > sections  to  sRip 
09$ <)  > i/o  buffer 
D1  > indx  sctr  adrs 
Ql$()  > disR  indx  buffr 


Version  > 2.0  2200  T/VP 


780323 
2 1 4 


bacRward  function 


T8  > 
T8<  > 
M2  > 
T5  > 
DO  > 
D2  > 


Reyword  buffer  index 
> function  index  limits 
indx  bufr  indx  (temp) 
sections  sRipped 
scratch  adrs  register 
indx  bufr  indx 


214 


<T7,T8,T8*> 
T8<2, 4) 

T8( 1,1) 

T8( 1,2) 

T8< 1,3) 


-1 

1 


- O 
= 129 

T8(2, 1 ) ~ 1 

T8(2, 2)  = 127 

T8(2, 3)  =■  16 

T8<2, 4)  = -1 
T5  =0 

Ml  = D1 

M2  - D2 

CONVERT  STR ( T8$( T8, 3) , 1 , 1 ) TO  T6 

IF  M2  <>  T8(T7, 2)  THEN  6548 

Ml  = Ml  + T8(T7, 1 )*1 

IF  Ml  <>  T8(T7, 3)  THEN  6540 

GOTO  6576 

DATA  LOAD  OA  T #3,  (Ml, DO)  Ql$( ) 

M2  - T8 ( T7 , 4 ) 

M2  ~ M2  + T8(T7, 1>*2 
GOSUB  ' 106  (Ql$ (M2+1 ) , 2) 

DATA  LOAD  BA  T #3,  (R3$,R3$)  Q9$() 

MAI  CORY  09$  ( )<63,  1>  TO  R0$<)<1,1> 

IF  RO$( 1 ) <>  HEX (00)  THEN  6524 

T5  = T5  + 1 

IF  T5  < T6  THEN  6524 

T8«  = 01$ (M2) 

DATA  LOAD  BA  T #3,  <D1,D0)  Ql$() 

RETURN 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
IN1T 
INIT 


WORK  BUFR 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE- 
TABLE 
TABLE 
TABLE 
COUNTER 
SCTR  ADRS 


INIT  BUFR  INDX 
SECT IONS  TO  SKF 
NO)  END  OF  BUFFR 
I NCR  SCTR  ADRS 
N01  END  OF  INDX 
INDX  FLG  NOT  FOUND 
LOAD  INDX  SCTR 
RESET  BUFR  INDX 
I NCR  BUFR  INDX 
LOAD  DISK  VOL 
LOAD  TOP  OF  PAGE- 
FETCH  PAG  INDX  FLG 
INDX  FLC  NOT  SET 
I NCR  COUNTER 
CUNT  SEARCH 
S T OR  BIN  PAG  ADRS 
RESET  DISK  INDX 
EXIT 


4 
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AUTHOR  tiyst  em 


F*  h£>  e-ec  3 


ATHaiuxa 


REM  ** 

REM  *•* 

REM  Subroutine  **-*+*-»*■•*+■*-**-* 
REM  **  Abstract  > 

REM  **  To  assign  a binary  page 
REM  **  Assignment  is  according 
REM  **  Function  index  1 - 

REM  **  2 - 

REM  ** 

REM  **  3 - 

REM  **  4 - 

REM  **  5 - 

REM  **  6 - 

REM  **  7 - 

REM  *+  8 - 

REM  **  Variables  > 

REM  ■**  Ml  > function  Rey  indx 
REM  **  Q4*< ) > adrs  memory  buf 


REM  **  M 
REM  **  0 
REM  ** 

REM  **+»■»**■ 
DEFFN  ' 21! 
REM  ** 

REM  ** 

REM  ** 

ON  Ml  GOTO 


215  (M1,T8*> 


address  to  return  value, 
to  function  Rey  index, 
begining  of  index  on  first  fiche 
begining  of  suggestions  for 
refresher  training 
begining  of  practice  excersices 
end  of  criterion  tests 
diagram  Reyword  (null  function) 
extra  table  slot  (null  function) 
extra  table  slot  (null  function) 
extra  table  slot  (null  function) 

! T8*  > bin  pag  adrs  ( rturn  value) 


: REM  ENTRY 


index  ! 

close 

! practice  ! 

end 

1 

6700  , 

6704 

, 6708  , 

6712 

9 

6720  , 

6720 

, 6720  , 

6720 

diagram  ! 

extra 

! extra  ! 

extra 

1 

REM  ** 
RETURN 


04* ( 47 ) 
04* (46) 
04* ( 44 ) 
04* (48) 


: GOTO  6720  : REM  INDX  ADRS 
: GOTO  6720  : REM  CLOSE  ADRS 
: GOTO  6720  : REM  PRACTICE  ADRS 
: GOTO  6720  : REM  CRITRN  END  ADRS 

: REM  EXIT 


ALIThlDK  SiXs.'tE-mr  Phase  3 — ATH3IDX2  — 


67 24  REM  *-» 
6728  RE’1  ** 
6732  REM  ** 
6736  REM  ** 
6740  REM  ** 
6744  REM  ** 
6748  REM  ** 
6752  REM  ** 
6756  REM  ** 
6760  REM  *■* 
6764  REM  ** 
6768  REM  ** 
6772  REM 


■!HHHHH»^**-***HH<-***HMt^^**HHHt***^*-*^-IHHt--*-*-**  2 16 


Subroutine 
Abstract  > 

To  save  index  frame  on  disk. 
Variables  > 

M9  > function  Key  index  ! 

D7t  > converted  pag  addrs  ! 

D1  > index  sector  adrs  (curnt)! 
LI  > index  sector  adrs  (last)  ! 
IX)  > scratch  addrs  register  ! 


L5t  > current  bin  pag  adrs 
Wit  > incrmnted  pag  adrs 
02  > index  bufr  indx  (curnt) 
L2  > index  bufr  indx  (last) 


6776 

DEFFN  ' 

216 

(M9) 

REM 

ENTR  r 

6780 

GOSUB  ' 

118 

(LSt,D7t> 

REM 

CONV  RAG  ADRS 

6784 

GOSUB  ' 

lOO 

(1,59,4,D7*,0) 

REM 

INSRT  CURNT  PAG 

6788 

IP 

M9  = 0 

THEN  6816 

REM 

IF  LAST  PAGE 

6792 

GOSUB  ' 

103 

(L5t,Wl,W2,W3,l,3> 

REM 

INCH  PAGE  ADDRS 

6796. 

L5t  = Wit 

REM 

S I OR  NEW  PAG  ADRS 

6800 

GOSUB  ' 

118 

(Wit, U7t ) 

REM 

CONV  PAGE  ADDRS 

6804 

GOSUB  ' 

lOO 

( 16,41,23, “To  Continue  Go 

to  ",0) 

REM 

INSRT  CONT  TEXT 

6808 

GOSUB  ' 

lOO 

( 16, 59, 4, D7t, 0) 

REM 

INSRT  NXT  PAG  ADRS 

6812 

INI T(FF 

) 

T8t  ( ) 

REM 

IN1T  KEY  BL.  ,-R 

6816 

GOSUB  ' 

206. 

REM 

SAVE  PAGE  ON  DISK 

6820 

IF 

M9  = 0 

THEN  6868 

REM 

IF  LAST  PA(  ; 

6824 

GOSUB  ' 

101 

(3, 1, 14,0) 

REM 

ERASE  SCREEN 

6828 

tTRAN 

(Q2t( )<129,896>,  R4t ( ) < 177, 4> ) 00  R 

REM 

CLR  BUFFER 

68 3E 

D2  = D2  + 2 

REM 

I NCR  INDX  BUFR  IDX 

6836 

L2  - L2  + 2 

REM 

INCH  INDX  BUFR  IDX 

6840 

IF 

L2  < 128 

THEN  6852 

REM 

BUFR  NOT  EMPTY 

6844 

LI  = LI  + 1 

REM 

INCH  SCTR  INDX 

6848 

L2  “ 1 

REM 

RESET  BUFR  INDX 

6852 

IF 

D2  < 128 

THEN  6868 

REM 

BUFR  NOT  EMPTY 

6856 

D1  =01+1 

REM 

INCH  SCTR  INDX 

6860 

D2  = 1 

REM 

RESET  BUFR  INDX 

6864 

DATA  LOAD 

BA  T #3,  ( D1 , DO)  Qlt( ) 

REM 

LOAD  NEW  INDX  SCTR 

6868 

RETURN 

REM 

EXIT 

678 


I I 

% p 


ALII  HtJR  Syst  em 


F-'  hs  s e-  3 


ATH31DXii 


S 1 T 


6872  REM  ** 

6876  REM  ** 

6884  REM  **  Abstract  > 

6888  REM  **  To  Read  the  Data  Subprogram  and  load  into 


6838 

REM  **  Storage  buffer. 

6836 

REM  **  Variables  > 

6300 

REM  **  CO 

> initial  bufr  indx  ! 

Cl  > row  number 

6304 

REM  **  C2 

> col  number  ! 

C3  > length  of  text 

6308 

REM  *•*  C4 

> control  index  ! 

S4*(  ) > 

input  bufr 

6312 

REM  *•* 

6316 

Rfc  M **^^********^**^********^**********’*-*-*hh* 

6320 

DEFFN  ' 217 

(CO) 

: REM 

ENTRY 

6324 

IF 

CO  <>  3 

THEN 

6340  : REM 

LOAD  BUFR 

6328 

READ 

C1,C2,C3,C4,S4*(1> 

: REM 

READ  DATA  PROGRAM 

6332 

IF 

C4  <>  3 

THEN 

6328  : REM 

NOT  EOF 

6336 

GOTO 

6356 

: REM 

BRACNH  TO  EOF 

6340 

READ 

C1,C2,C3,C4,S4*(1> 

: REM 

READ  DATA  PROGRAM 

6344 

REM 

: REM 

BRANCH 

6348 

REM  ** 

! lower  ! caps  ! bold  ! 

1 ine  ! 

under  ! 

63S2 

REM  *"* 

6356 

ON  C4  GOTO 

6380  , 63-32  , 7004  , 

7040  , 

7052  , 

7080  , 7080  , 7080  , 

7032  , 

7080 

6360 

REM  ** 

6-364 

REM  ** 

! null  ! null  ! null  ! 

eof  ! 

nul  1 ! 

6368 

REM  ** 

6372 

GOTO 

7080 

: REM 

INSERT  TEXT 

63/6 

REM  *■* 

6380 

♦ TRAN 

(S4*()  <1,C3>,  R4*()  <65, 64>  > 

R : REM 

CONV  TO  LOWER  CASE 

6384 

GOTO 

7080 

: REM 

INSERT  TEXT 

6388 

REM  ** 

6332 

♦TRAN 

(S4*()  <1,C3>,  R4*()  <1 

, 64> ) 

R : REM 

CONV  TO  UPPER  CASE 

6336 

G0I0 

7080 

: REM 

INSERT  TEXT 

7000 

REM  *■* 

7004 

CO  = LEN ( S4 ♦ ( 1 ) ) 

: REM 

SPECIAL  PROCESS 

7008 

MAT  COPY 

-S4* ( ) < 1 , C0>  TO  -S4* ( > < 1 , 64 > 

: REM 

7012 

MAT  SEARCH 

S4*()  <1,64>,  <>  R5*(l) 

TO  R2*( ) : REM 

7016 

C5  = FNR(VAL(R2*( 1 ) > > 

: REM 

7020 

MAT  COPY 

R5*< ) <2, 1>  TO  S4*( ) <1 

,1> 

: REM 

7024 

MAT  COPY 

S4*()  <C5,C0>  TO  S4*() 

<2, 63> 

: REM 

7028 

C3  = C3  + 1 

: REM 

7032 

GOTO 

7080 

: REM 

INSERT  TEXT 

7036. 

REM  ** 

7040 

INTT 

(5F)  S4*(> 

: REM 

CREATE  LINE 

7044 

GOTO 

7080 

: REM 

INSERT  TEXT 

7048 

REM  ** 

7052 

C4  = (Cl-1>*64  + C2 

: REM 

CMPUTE  BUF  POS 

7056 

MAT  COPY 

Q2*()  <C4, C3>  TO  S4*<) 

<1 ,C3> 

: REM 

LOAD  FRM  BUFR 

706.0 

AND 

(S4*(1),7F> 

: REM 

MASK  TEXT 

706.4 

ADO 

(S4*(l>,80) 

: REM 

UNDERSCORE 

7068 

MAI  COPY 

34* <)  <1 , C3>  fU  Q2*() 

<C4, C3> 

: REM 

RELOAD  BUFR 

7072 

GOTO 

7080 

: REM 

INSERT  TEXT 

7076 

REM  ** 

7080 

COSUB  ' 10O 

(C1,C2,C3,S4*(1 ), 00(12) ) 

: REM 

INSERT  TEXT 

7084 

GOTO 

6340 

: REM 

GET  NXT  LINE 

7088 

REM  ** 

7032 

GOSUB  ' 101 

(1, 1,0,0) 

: REM 

HOME  CUSUR 

7036 

RETURN 

: REM 

EXIT 

679 


AUTHOR 


Syst  e»m 


P ha  s c? 


ATH31DXS 


MAH 


— *t 


6534 

- 

6564 

6573 

6540 

- 

6533 

6S4B 

- 

6534 

6576 

- 

6536 

6700 

- 

6684 

6704 

- 

6684 

6708 

- 

6684 

6713 

- 

6684 

6730 

- 

6684 

6700 

.6704 

6708 

6713 

6816 

- 

6 ~B8 

6853 

- 

6840 

6868 

- 

6830 

6853 

6938 

- 

6933 

6940 

- 

6934 

7084 

6956 

- 

6936. 

6980 

6956 

69-33 

- 

6956 

7004 

- 

6956 

7040 

- 

6956 

7053 

- 

6956 

7080 

- 

6956 

6973 

6984 

69-36. 

7033  7044  7073 

70-33 

- 

6956 

680 


1 


AUI HUR 

S/r>t  t?m  s 

ATH3IDX2 

- V MAP 

CO 

- 

6920 

6924 

7004 

7008 

7024 

Cl 

- 

6928 

6940 

7052 

7080 

C2 

- 

6928 

6940 

7052 

7080 

C3 

- 

6928 

6940 

6980 

6992 

7028 

7056 

7068  7080 

C4 

- 

6928 

6932 

6940 

6956 

7052 

7056 

7068 

C5 

- 

7016 

7024 

DO 

- 

6540 

6580 

6864 

Dl 

- 

6512 

6580 

6856 

6864 

02 

- 

6516 

6832 

6852 

6860 

D7* 

- 

6780 

6784 

6800 

6808 

" 

LI 

- 

6844 

L2 

- 

6836. 

6840 

6848 

L5* 

- 

£780 

6792 

6796 

Ml 

- 

6512 

6528 

6532 

6540 

6668 

6684 

M2 

- 

6516 

6524 

6544 

6548 

6552 

6576 

MS 

- 

6776 

6788 

6820 

00  < 

- 

7080 

Ql*< 

- 

654C 

6552 

6576 

6580 

6864 

Q2*< 

- 

6828 

7056 

7068 

Q4*< 

- 

6700 

6704 

6708 

6712 

09*  ( 

- 

6556 

6560 

1 

RO*( 

- 

6560 

6564 

R2*< 

- 

7012 

7016 

R3* 

- 

6556 

R4*< 

- 

6828 

6980 

6992 

R5*< 

- 

7012 

7020 

S4*< 

” 

6928 

7080 

6940 

6980 

6992 

7004 

7008 

7012  7020 

7024 

7040  7056  7060 

7064  7068 

T5 

- 

6508 

6568 

6572 

T6 

- 

6520 

6572 

T7 

- 

6468 

6524 

6528 

6532 

(T> 

IT 

■e- 

> 

6548 

T8 

- 

6468 

6520 

T8* 

- 

6468 

65_,6 

6668 

6700 

6704 

6708 

6712 

T8< 

- 

6472 

6476 

6480 

6484 

6488 

6492 

64-36  6500 

6504 

6524  6528  6532 

6544  6548 

T8*< 

- 

6520 

6812 

Ml 

- 

6792 

Wl* 

- 

6796 

6800 

W2  - 6795 
W3  - 6792 


c 


681 


ALII  HQR  Sy  5t  em 


I-*  ha  b d 3 


ATH3IDX3 


MAP 


0000  DEFFN'  0 

0001  DEFFN ' 1 

0002  DEFFN ' 2 

0003  DEFFN ' 3 
????  DEFFN'  10O 

- 6784  6804  6808  7080 
????  DEFFN'  101 

- 6824  7092 
????  DEFFN'  103 

- 67-32 

????  DtFFN'  106 

- 6552 

????  DEFFN'  118 

- 6780  6800 
????  DEFFN'  206 

- 6816 

6468  DtFFN'  214 
6668  DEFFN'  215 
6776  DEFFN'  216 
6-320  DtFFN'  217 
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5.33  ATH3LIST 

The  purpose  of  the  'ATH3LIST'  program  is  to  clear  from  memory  all 
program  text  which  is  not  needed  for  listing  of  the  learning  module. 
The  program  will  also  load  in  a new  COMMON  table. 

The  remainder  of  this  section  presents  the  'ATH3LIST'  program 
listing. 


AUTHOR  Sys-t  e-m 


P ha &b  3 


ATH3LIST 


CQMCLH 


1500  X##  Program  > AUTHOR /id 
1510  RtM  **  Abstract 


(ATH3LIST) 


Version  > 2.0  2200  T/VP  7S0323 


1520  REM  ** 

1530  HEM  ** 

1540  RtM  ** 

1550  RtM  *-* 

1560  RtM  ** 

1570  RtM  *+ 

1580  RtM  *+ 

1630  RtM  ** 

1600  HEM  ** 

1610  RtM 
1620  HEM  ** 

1630  RtM  ** 

1640  RtM  ** 

1650  COM  CLEAR 
1660  LOAD  DC  T 
1670  END 


To  output  -the  Phse  III  data  base  onto  selected 
Output  device. 

The  listing  program  is  loaded  in  3 steps  > 

- Clear  program  text  (1500,9999) 

- Define  Variable  Table  (100,300) 

- Load  list  program  text  (1500,9999) 


BO 

#1, 


" ATH3LSTV"  100,300 


CLEAR  PROGRAM  TEXT 


REM  CLR  VAR  TABLE 


REM  END  Of  STEP  ONE 


W 


684 


tttlXtltl 


5.34  ATH3LSTV 

The  purpose  of  the  'ATH3LSTV'  program  is  to  define  a new  COMMON 
table  and  to  load  the  program  text  needed  to  list/edit  the 
learning  module. 

The  remainder  of  this  section  presents  the  'ATH3LSTV'  program 
listing. 


AUTHOR  Sy&tem:  Phai 


3 — ATH3LSIV  — COM  TBL. 


REM  **  Program  > AUTHOR/3  ( ATH3LSTV)  Version  > 2.0  2200  T/VP  780323 


REM  ** 
HEM  *~* 
REM  *•* 
REM  ** 
REM  ** 
REM  ** 

hem  ***■ 

REM  ** 

REM  *■» 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

COM 

DIM 

X## 

REM  ** 

REM  ** 

REM  ** 
LOAD  DC 
END 


Stop  two  of  the  list  loading  will 
variable  storage. 


define  program 


R4*(20)16,R5*(10)1,R6*(16)1,R7*<64>: 
R8*( 10)24, R9*(l)64 
BO 

DO, D1 , D2, D3, DA , Ob, D6, D7, 08, D9 
04*4,07*4 

K1,K2,K3,K4,KS*(1)64 

L1*25,L2*8,L3*4 

W1,W2,W3,W4,W5,W6,W1*2 

W2*16,W3*16,W4*16,W5*16,Wfc*16 

R 1 , R2, R4 , Rb, R6, R8, R9 

R0*2, R2*64, R3*2, R 7*64, R8*2, 1 1*4 

RO* (1)1, R2*  <2)2 

SI , S2, S3, Sb, S4* (1)64 

QO ( 8), 01*  ( 128)2,02* (32, 64)1 

09* (64 >4 

END  OF  COMMON  STORAGE  AREA 


ttl,  “ ATH3LSTP  “ 1500,9999 


GENERAL  REGISTERS 
GENERAL  REGISTERS 
COM  CLEAR  POINTER 
OUTPUT  PAG  INDX 
OUTPUT  PAG  INDX 
CUSUR  CONTROL 
PROGRAM  LOADING 
FI CHE  PAG  INDX 
OUTPUT  FLACS 
GENERAL.  REGISTERS 
GENERAL  BUFFERS 
GENERAL  BUFFERS 
BUFR  STORAGE  INDX 
GENERAL  BUFFERS 
SCRATCH  BUFFER 


LOAD  LISTING  PROGRAM 


: REM  END  OF  STEP  TWO 


at 
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5.35  ATH3LSTP 

The  purpose  of  the  'ATH3LSTP'  program  is  to  allow  the  learning 
module  to  be  displayed  on  one  of  three  output  devices.  The  program 
also  controls  the  loading  of  the  editing  program. 

The  'ATH3LSTP'  program  is  presented  in  five  parts. 

5.35.1  ATH3LST1 

This  part  of  the  'ATH3LSTP'  program  contains  the  main 
control  logic  for  controlling  the  Hst/edit  process.  The 
'ATH3LST1'  program  also  contains  subroutines  108  to  111. 

The  remainder  of  this  section  presents  the  'ATH3LST1' 
program  listing  and  reference  maps. 


687 


tttttttttt 


1 


AUTHOR  Systi 


1580 

1584 

1588 

1592 

1596 


REM 

REM 

REM 

REM 

REM 


F>  f-.e* ! 


LABELED  SUBROUTINES 


ATH3LST1  — 


•»* 

1600  REM  ** 
1€04  REM  ** 
1608  REM  ** 
1612  REM  ** 
1616  REM  ** 
1620  REM  ** 
1624  REM  ** 
1628  REM  ** 
1632  REM  ** 
1636  REM  ** 
1640  REM  ** 
1644  REM  ** 
1648  REM  ** 
1652  REM  ** 
1656  REM 


Sub  routine  n h m m » » n x »»»«  mmmxmum 

Function  > 

To  Output  page  buffer  onto  the  selected 
output  device. 


1 0 8 


Output  index  code 


Variables  > 

W6  > output  device 
W7  > undrscr  lokup 
W8  > bufer  out  lin 


1 

2 

3 

4 

index 

indx 

indx 


- CRT 

- TTY 

- LPT 

- END 


OF  LPT  FILE 


RO®  ( ) 
W2® 
W3® 
W4® 


input  register 
return  scan  flag 
return  scan  flag 
return  scan  flag 


1660 

OEFFN 

' 108 

<W6> 

REM 

ENTRY 

1664 

GOSUB 

' 124 

REM 

SEL  SPL  CHAR  SCAN 

1668 

REM  ** 

1672 

REM  ** 

! CRT  ! TTY  ! 

LPT 

i 

END 

1676 

REM  ** 

— 

-- ! — 

...... 

1680 

ON  W6 

GOTO 

1700  , 1744  , 

1820 

9 

L860 

REM 

BRANCH 

1684 

REM  ** 

-- ! 

1688 

REM  ** 

1692 

REM  ** 

OUTPUT  TO  CRT  DEVICE 

1696. 

REM  ** 

1700 

SELECT 

#5 

005 

REM 

SEL  OUTPUT  DEV 

1704 

GOSUB 

' 109 

REM 

CREATE  CRT  QVRLAY 

1708 

GOSUB 

' 110 

REM 

SEL  T OR  VP  D1SPLY 

1712 

IF 

W2®  = "VP  SYSTEM" 

THEN 

1720 

REM 

VP  SELECTED 

1716 

GOSUB 

' 111 

REM 

DISPLAY  QVRLAY 

1720 

GOSUB 

' 112 

REM 

DISPLAY  BUFR 

1724 

KEY  IN 

R0*< 1 ) , 1728,  1728 

; 

GOTO 

1712  : REM 

INPUT  WAIT 

1728 

GOTO 

1876 

: REM 

BRANCH  TO  EXIT 

1732 

REM  *"* 

1736 

REM  ** 

OUTPUT  TO  TTY  DEVICE 

1740 

REM  ** 

1744 

SELECT 

#5 

Oil 

REM 

SEL  OUTPUT  DEV 

1748 

GOSUB 

' 109 

REM 

CREATE  TTY  QVRLAY 

1752 

GOSUB 

' 113 

REM 

DISPLY  INSTRUCTNS 

1756. 

GOSUB 

' 114 

(1) 

REM 

PRINT  UPR  HASH 

1760 

W7  = 1 

REM 

INIT  TABLE  INDX  0 

1764 

X3  = 1 

REM 

INIT  TABLE  INDX  1 

1768 

Y3  = 1 

REM 

INIT  TABLE  INDX  2 

1772 

FOR 

W8  = 1 TO  32 

REM 

BEGIN  BUFR  LOOP 

1776 

GOSUB 

' 115 

REM 

SCAN  UNDRSCR  TBL 

1780 

IF 

W3*  = “NULL  SCAN" 

THEN 

1792 

REM 

NO  UNDERSCORING 

1784 

GOSUB 

' 116 

REM 

PRINT  UNDERSCORING 

1788 

GOTO 

1796 

REM 

BRNCH  TO  LIN  INCR 

1 792 

GOSUB 

' 117 

REM 

PRINT  TEXT  LINE 

17-36 

NEXT 

W8 

REM 

INCR  LINE  INDX 

1800 

GOSUB 

' 114 

(2) 

REM 

PRINT  LWR  HASH 

1804 

GOTO 

1876 

REM 

BRANCH  TO  EXIT 

689 


1808 

REM  ** 

1812 

REM  ** 

OUTPUT  TO  LPT  DEVICE 

1816 

REM  ** 

1820 

SELECT 

#5 

015 

: REM 

SEL  OUTPUT  DEV 

1824 

SELECT 

TAPE 

07B 

: REM 

SEL  TAPE  DEV 

1828 

GOSUB  ' 

118 

: REM 

SEL  UNDRSCR  MOOE 

1832 

G0SU6  ' 

119 

<1> 

: REM 

PRINT  UPR  HASH 

1836 

FOR 

W8  = 

1 TO 

32 

: REM 

BEGIN  BUFR  LOOP 

1840 

GOSUB  ' 

117 

: REM 

PRINT  TEXT  LINE 

1844 

NEXT 

W8 

: REM 

I NCR  LINE  INDX 

1848 

GOSUB  ' 

119 

(2) 

: REM 

PRINT  LOWR  HASH 

1852 

IF 

W4*  = 

“NO 

UNDERSCORE* 

THEN 

1864 

: REM 

NO  UNDERSCORING 

1856 

IF 

W4«  = 

"OVERLAY" 

THEN 

1864 

: REM 

IF  OVRLAY  OUTPUT 

1860 

GOSUB  ' 

120 

: REM 

PRINT  OVERLAY 

1864 

GOTO 

1876 

: REM 

BRANCH  TO  EXIT 

1868 

REM  ** 

1872 

REM  ** 

1876 

RETURN 

: REM 

EXIT 

690 


1 


AUTHOR 


iystem:  Phase 


ATH3L.ST1  — 


O 3 


1880 

1884 

1888 

18-32 

18-36 

1-300 

1304 

1-308 

1912 

1916 

1920 

1-324 

1-328 

1932 

1936 

1940 

1944 

1-348 

1952 

1956 

1960 

1964 

1968 

1972 

1976 

1980 

1984 

1988 

1-392 

1936 

2000 

2004 

2008 

2012 

2016 

2020 

2024 

2028 

2032 

2033 

2034 

2035 

2036 

2037 

2038 
2033 
2040 
2044 
2048 
2052 
2056 
2060 
2064 
2068 
2072 


Subroutine 
Abstract  > 
To  scan 
overlay 
Variables 
02* ( ) > 
W3*( ) > 
X4 
R4 


text  buffer  and  create  lookup  table  and 
buffer  for  selected  output  devices. 


REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  +* 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM 

DEFFN  ' 109 

DIM  W3*(l, 200)2, W9*(7)8 

DIM  X3*( 1,075)2, Y3*( 1,075)2 


R6 

W6 


output  text  buffer 
underscore  lookup  tbl 
of  loop  indx  (row) 
tbl  indx  (row) 
buff  position 
device  indx 


end 
lookup 
1 inear 
output 


W4*()  > conversion  buffer 
X5  > end  of  loop  indx  (col) 
R5  > lookup  tbl  indx  (col) 
R5*( ) > single  char  storage 
W9  > buffer  size 


*TRAN 

IF 

MAT  COPY 

MAT  SEARCH 
IF 

*TRAN 

MAT  SEARCH 
MAT  SEARCH 


IF 


HEX ( 5FA0) 

HEX ( 20800900 ) 

HE  X ( 2080208 1 2F 825F8  3 ) 
HEX ( 2000200 1 20022003 ) 
HEX (2020) 


W9*(X1,8>>  R 

THEN  2000 

70  Q2*( ) <1025, 1024> 


GOTO 

IF 

IF 

GOTO 


REM 
FOR 
FOR 
GOSUB 
NEXT 
NEXT 

IF 


•** 


W9*(l) 

W9*(2) 

W9*(3) 

W9*<4) 

W9*(5) 

W9  = 2048 
R2*( 1 ) = "Z" 

R2*(2)  = “0“ 

(Q2*< )<1,W9>, 

W6  <>  1 
Q2*(  XI,  1024> 

W9  = 1024 

Q2*(X1,W9>,  > R 5* ( 3 ) TO  W3*() 
W6  = 1 THEN 

(Q2*<  XI,  W9>,  W9*(X1,8>>  7F  R 
Q2* (XI,  W9> , = R2*(  1 ) TO  X3*(  ) 
Q2*(X1,W3>,  = R2*(2>  TO  Y3*(  ) 
W3* ( 1 , 200 ) = HEX ( 0000 ) 

X3*( 1 , 075)  = HEX ( (XXX) ) 

Y3*( 1 ,075)  = HEX ( OOOO ) 

W6*  <>  ‘'NULL- 
X3*( 1,1)  = HEX (FFFF) 

Y3*( 1,1)  = HEX (FFFF) 

2112 

W6*  = "BOTH"  THEN 

W6*  = “ZEE"  THEN 

X3*( 1,1)  = HEX (FFFF) 

2080 

Y3*( 1,1)  = HEX (FFFF ) 


2012 


THEN  2036 


2048 

2040 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM  NOT 
REM  CLR 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


ENTRY 
DEFINE 
DEFINE 
INIT 
INIT 
INIT 
INIT 
INI7 


WORK 

WORK 


BUFRS 

BUFRS 


CONV  VALUES 
CONV  VALUES 
CONV  VALUES 
CONV  VALUES 
CONV  VALUES 
SET  SIZE  TO  MAX 
DEFINE  SPL  CHAR  1 
DEFINE  SPL  CHAR  2 
MINI ZL  UNDRSCRS 
NOT  CRT  OUTPUT 
SAVE  UPPR  BUFR 
SET  BUFR  SIZE 
CREAT  LOKUP  TBL  1 
TTY  OUTPUT 
HIGH  BIT 
CREAT  LOKUP  TBL  2 
CREAT  LOKUP  TBL  3 
SET  EOI  BYTE 
SET  EOI  BYTE 
SET  EOI  BYTE 
NULL  CHAR  SCAN 
CLR  LOCATOR  BUFR 
CLR  LOCATOR  BUFR 
BRNCH  TBL  SCAN  - 
BEG  Z&O  TBL  SCAN 
BEG  Z TBL  SCAN 
CLR  LOCATOR  BUFR 
BRNCH  TBL  SCAN  O 
CLR  LOCATOR  BUFR 


R4  = 1 TO  1 
R5  = 1 TO  075 

125  (R4, R5, 1 , 075, X3*(R4, R5) , HEX (81 ) ) 

R5 

R4 

X3*(X6,X7)  = HEX ( FFFF ) 

W6*  = “BOTH"  THEN  2084 


: REM  BEGIN  TBL  SCAN  ROW 
: REM  BEGIN  TBL  SCAN  COL 
: REM  SCAN  LOKUP  7 ABLE  1 
: REM  CONT  TBL  SCAN  COL 
: REM  CONT  TBL  SCAN  ROW 
: REM  SET  EOI  BYTE 
: REM  EXECUTE  SCAN 


c 


691 


2076 

REM  ** 

2080 

IF 

W6*  <>  *ZERO“ 

THEN  2112 

REM 

208 A 

FOR 

R4  = 1 TO  1 

REM 

2088 

FOR 

R5  = 1 TO  075 

REM 

2032 

GOSUB  ' 

125 

<R4,R5, 1,075, 

Y3*(R4, R5> , HEX (82) ) 

REM 

2096 

NEXT 

R5 

REM 

2100 

NEXT 

R4 

REM 

2104 

Y3*<X6,X7>  = 

HEX  <FFFF ) 

REM 

2108 

REM  ** 

2112 

FOR 

R4  = 1 TO  1 

REM 

2116 

FOR 

R5  = 1 TO  200 

REM 

2120 

GOSUB  ' 

125 

(R4,R5, 1,200, 

W3< ( R4, R5 ) , HEX  < 83 ) ) 

REM 

2124 

NEXT 

R5 

REM 

2128 

NEXT 

R4 

REM 

2132 

W3*<X6,X7>  = 

HEX(FFFF) 

REM 

2136 

REM  ** 

2140 

REM  ** 

! CRT  ! 

TTY  ! LPT  ! 

2144 

REM  ** 

1 1 

2148 

ON  W€.  GOTO 

2160  , 2172  , 2184 

; 

REM 

2152 

REM  ** 

1 1 

2156 

REM  ** 

2160 

-STRAN 

<Q2*( ><1,W9>, 

W9*<><9,8>>  80  R 

REM 

2164 

GOTO 

21'36 

REM 

2168 

REM  ** 

2172 

*TRAN 

(Q2*<X1,W9>, 

W9*< )<1,8>)  7F  R 

REM 

2176 

GOTO 

2196 

REM 

2180 

REM  ** 

2184 

*TRAN 

( 02*  < ) < 1 , W9> , 

W9*<K17,24>)  83  R 

REM 

2188 

GOTO 

2196 

: 

REM 

2192 

REM  ** 

2196 

RETURN 

REM 

NULL  'O'  SCAN 
BEGIN  TBL  SCAN  ROW 
BEGIN  TBL  SCAN  COL 
SCAN  LOKUP  TABLE  2 
CONT  TBL  SCAN  COL 
CDNT  TBL  SCAN  ROW 
SET  EOI  BYTE 

BEGIN  TBL  SCAN  ROW 
BEGIN  TBL  SCAN  COL 
SCAN  LOKUP  TABLE  O 
CONT  TBL  SCAN  COL 
CONT  TBL  SCAN  ROW 
SET  EOI  BYTE 


BRANCH 


CONV  QVRLAY  BUFR 
BRANCH  TO  EXIT 

CLR  UNDRSCR  FLGS 
BRANCH  TO  EXIT 

CONV  OVRLAY  BUFR 
BRANCH  TO  EXIT 

EXIT 


r 
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O 


3/300 
3304 
3308 
3313 
33  It. 
3330 
3334 
3338 
3333 
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RtM  ** 

RtM  ** 
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Subroutine 
Abstract  > 

To  select  type  of  CRT  display  to  be  used. 
Variables  > 

W3$  > return  type  flag 


i 


R0t<)  > input  register 


38 3€. 

DEFFN  ' 110 

RtM 

ENTRY 

3340 

IF 

W3*  - "VP  SYSTEM” 

THEN  3896 

RtM 

SKIP  ROUTINE 

3344 

IF 

W3*  = “T  SYSTEM" 

THEN  33-36. 

RtM 

SKIP  ROUTINE 

8348 

W3$  = “T  SYSTEM" 

REM 

SET  FLAG 

83  b3 

RRINT 

HEX (03) 

RtM 

CLR  CRT  SCREEN 

83bfe 

GOSUB  ' 101 

(5, 1,0,0) 

REM 

POSIT  ION  C USC JR 

3360 

SELECT 

PRINT  005 

REM 

SEL  OUTPUT  MOUb 

3364 

RRINTUSINC 

3313,  ■ " 

REM 

PRINT  MENU 

3368 

RR1NTUS1NG 

3316,  “ * 

REM 

PRINT  MENU 

3373 

SELECT 

PRINT  405 

REM 

StL  OUTPUT  MODE 

3376 

GOSUB  ' 101 

(3, 1,0,0) 

REM 

POSITION  CUSOR 

3880 

RRINTUSINC 

3330,  " 

RtM 

PRINT  PROMPT 

3384 

KEY  IN 

R0*(1),  3888,  3388 

: 

GOTO  3384 

REM 

RtSPONCE  WAIT 

8388 

IF 

R0*(1)  ® "3" 

THEN  33-36. 

RtM 

SKP  TO  EXIT 

8333 

W3*  = “VP  SYSTtM" 

REM 

SET  RTRLM  FLAG 

8336 

RRINT 

HEX  < 03 ) 

REM 

CLR  CRT  SCREEN 

3800 

RtM  ** 

3804 

RtM  *■* 

OUTPUT  IMAGE  FORMATS 

3808 

REM  *“* 

8813 

X CRT  DISPLAY  MENU  1 - WANG 

3800 

VP  Display 

# 

8316 

X 

3 - WANG 

3800 

T Display 

# 

3330  X Enter  Type  of  CRT  Display  to  be  Used 
3334  RtM  ** 

3338  RtM  ** 

33 33  RETURN 


REM  EXIT 


693 


1 


\ v 


AIJ  I HUR  System:  Pha-j,  c?  3 — ATH3LST1  — 


34 1 a 

3416 

3430 

3434 

34as 

a A3  a 

3436 

2440 

3444 

3448 

3453 

3456 

3460 

3464 

3468 

3473 

3476 

3480 

3484 

3488 

3493 

8496 


REM  ** 
REM  ** 
REM  ■»* 
HtM  ** 
REM  ** 
REM  ** 
HEM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
UEFFN 


Subroutine  113 

Abstract  > 

To  Display  CR I text  buffer  on  to  selected  CRT 
display. 

Variables  > 

0340  > overlay  buffer  ! 

R8*  > field  format  definition* 


W9  > buffer  out 
R9*<  > > scratch 


line  indx 
buffer 


113 


♦GIO  HOME 
f OH 
♦PACK 

♦CIO  PRINT 
NEXT 

♦CIO  MESC 
RETURN 


R8^  = HEX  < 5103) 

R9^(l)  -•  "Touch  RETURN" 

#5  <4001  ,R8^<9)> 

W9  * 1 TO  16 

<F=RS^>  STR < RS^  < 9 ) , 7, 3 ) FROM  W9 
W8  * W9  ♦ 16 
#5  <R8^(6),R8^<9) >G3*< > < < W8- 1 ) *64+ 1 , 64>  : 
W9  : REM 

45  < 4OOU40O6AO0O, RB^  < 9 ) ) R9^  <><1,1 3>  : REM 

: REM 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


ENTRY 

DEFINE  PACK  PMT 
INI  I MESSAGE 
HOME  CUSOR 
BEG  BUFFR  OUT 
STUR  LIN  COUNT 
CMPUT  SCALE  f-AClR 
REM  PRINT  LlfC 
CONT  BUFR  OUT 
PRINT  MESSAGE 
EXIT 


c 


695 


AUTHOR  Systi 


F*  »-..=*! 


— ATH3LST1  — 1 


2500 
2504 
2508 
2512 
2516 
2520 
2524 
2528 
2532 
2536 
2540 
2544 
2548 
2552 
2556 
2560 
2564 
2568 
2572 
2576 
2580 
2584 
2588 
2592 
2596 
2600 
2604 
2608 
2612 
2616 
2620 
2624 
2628 
2632 
2636 
2640 
264 i- 
2648 
2652 
2656 
2660 
2664 
266.8 
2672 
2676 
2680 
2684 
2688 
2692 
2696 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM 
DEFFN 
DIM 
IF 


Subroutine 
Abstract  > 

To  Display  Instructions  to  set  up  TTY  device 
Variables  > 

W5*  > return  scan  flag  ! W4$< ) > i 

W9  > scratch  loop  indx  ! W5*< > > i 

R0*<)  > input  register  ! 


1 1 3 


/o  buffer  #1 
/o  buffer  #2 


113 


,R8*<9> ) 


X9*< 10)45 

W5*  = “SKIP  DISPLAY* 
W5*  = “SKIP  DISPLAY" 
PRINT  HEX (03) 

GOSUB  ' 101  <5, 5, 0,0) 

PRINTUSING  2712,  " “ 

GOSUB  ' 101  <7, 5,0,0) 

PRINTUSING  2716,  " “ 

GOSUB  ' 101  (9, 5, 0,0) 

PRINTUSING  2720,  “ " 

GOSUB  ' 101  <16,1,0,0) 

PRINTUSING  2732,  “ “; 

KEYIN  RO* ( 1 ) , 2604,  2604 

REM  ** 

*GIO  READY  #5  <4500 
tIF  ON  #5,  2632 
GOSUB  ' 101  <11,10,0,0) 
PRINTUSING  2724,  “ “ 
tG 10  PAUSE  /005  < R8*  < 4 ) , R8*  < 9 ) ) 
GOSUB  ' 101  <11,10,1,0) 

GOTO  2604 

PRINT  HEX  < O 30 AOAOAO AOA ) 

PRINTUSING  2728,  “ " 

REM  *+ 

GOSUB  ' 121 
SELECT 
PRINTUSING 
PRINTUSING 
PRINTUSING 
°RINTUSING 
PRINTUSING 
PRINTUSING 
PRINTUSING 
INI7  <0A) 

♦GIO  LF 
SELECT 
REM  ** 

GOSUB  ' 122 


THEN  2696 


GOTO  2596 


PRINT  211 <100) 
2736,  “ " 

2740,  “ “ 

2744,  " " 

2748,  " “ 

2752,  “ " 

2756,  " “; 
2760,  " “ 

X9*< ) 

#5  < AOOO 
PRINT  405 < 80) 


: PRINT  HEX < OA ) 

: PRINT  HEX  < OA ) 

: PRINT  HEX <OAOA) 
: PRINT  HEX<OA) 

: PRINT  HEX < OAOA ) 

: PRINT  HEX < OA > 

,R8*<9) )X9*<  ><1,7> 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  SKIP  DISPLAY 
REM  SET  RETURN  FLAG 
REM  CLR  CRT  SCREEN 
REM  POSITION  CUSOR 
REM  PRINT  I NSTRUTN  1 
REM  POSITION  CUSOR 
REM  PRINT  I NSTRUTN  2 
REM  POSITION  CUSOR 
REM  PRINT  I NSTRUTN  3 
REM  POSITION  CUSOR 
REM  PRINT  CONT  PROMPT 
REM  RESPONCE  WAIT 

REM  SEND  CTL  CHAR 
REM  DEVICE  READY 
REM  POSITION  CUSOR 
REM  PRINT  ERR  MSG 
REM  ERROR  TONE 
REM  ERASE  ERR  MSG 
REM  CONT  READY  TEST 
REM  CLR  CONSOLE  DEV 
REM  PRINT  INSTRUCTN 

REM  CLR/SET  TAB  STOPS 
REM  SEL  CONSOLE  DEVICE 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
REM  PRINT  INSTRUCTNS 
REM  INIT  FOR  LINE  FEED 
REM  ADJUST  PAPER 
REM  SEL  CONSOLE  DEVICE 

: REM  DEVICE  RESET 


o 

2700  REM  ** 

2704  REM  **  INSTRUCITON  FORMATS 

2708  REM  ** 

2712  X * * * * INSERT  PAPER  INTO  TYPEWRITER  * * * * * 

2716  X * * * * SET  LEFT  MARGIN  TO  LEFT  EDGE  OF  PAPER  * * * * * 

2720  X * * * * SET  SPACING  SELECTOR  TO  SINGLE  SPACING  * * * * # 

2724  X * * * * TYPEWRITER  IS  NOT  READY  * * * * # 

2728  X * * * * FOLLOW  INSTRUCTIONS  ON  OUTPUT  DEVICE  * * * * # 

2732  X Touch  'RETURN'  When  Completed  > # 

2736  X # AFTER  EACH  PAGE  IS  PRINTED  THE  PROGRAM  WILL  STOP. 

2740  X « CHECK  THAT  THE  PAPER  IS  PROPERLY  ALIGNED... 

2744  X # MAKE  ADJUSTMENTS  WHEN  NESSARY. 


2748  X # TU  CONTINUE  ...  Switch  the  'MANL/AUTO'  SWITCH  TO 

2752  X # 'MANL'  POSITION  THEN  SWITCH  TO  'AUTO'  POSITION. 

2756  X # -=! ALIGN  TOP  EDGE  OF  PAPER  TO  THIS  POSITION  ... 

2760  X # THEN  CONTINUE !=- 

2764  REM  ** 

2768  REM  ** 

2772  RETURN  : REM  EXIT 


/MJ  I HOW  Sy  s-t  om 


Phase  3 


ATH 3LSI 1 


1 1 A 


I 


2776 

REM 

2780 

REM 

** 

278 A 

REM 

*-* 

2788 

REM 

*•* 

2792 

REM 

** 

2796. 

REM 

2800 

REM 

280A 

REM 

*"* 

2808 

REM 

2812 

DEFFN 

Subroutine 
Abstrct  > 

To  print  upper/lower  hash  lines  on  the  TTY  device. 
Variables  > 

W7*()  > hash  contorl  buffer 


1 1 A 


W9 


upper/lower  index 


1 1 A 


2816 

2820 

282A 

2828 


DIM 


(W9> 

W7*( 19)4, W8«( 1)64 

W7*(1)=HEX( 09210921)  : W7* < 2) "HEX ( 08080808 ) : 
W7*  < 3 ) =HEX  < SF-  5F-  5FSF ) : W7*  < A ) =HEX  < OAOAOAOA ) : 
W7< < 5 ) -HEX ( 0A0A0A0A ) : W7S < 6 ) “HEX ( OAOAOAOA ) : 


REM  ENTRY 


REM 

REM 

REM 


IN1T 

IN1T 

IN1T 


TABLE 

TABLE 

TABLE 


2832 

W7*(7)= 

=HEX( OAOAOAOA)  : 

W7* ( 8 ) =HEX ( OAOAOAOA ) : 

REM 

IN IT  TABLE 

283€. 

W8*(l)= 

AUTHOR:  An  Automatic  Authoring  System 

Version:  2.0“ 

28A0 

REM  ■*-» 

28AA 

REM  ** 

1 

upper  ! 

lower  ! 

28A8 

REM  ** 

! -- 

- ...  i ... 

2852 

ON  W9  GOTO 

286A 

2308  : 

REM 

BRANCH 

2856 

REM  +* 

! — 

1 

2860 

REM  ** 

2864 

*G10 

TAB 

#5 

< A0O9A02OA0OO, R8t < 9 ) )W7*( )<33,A>  : 

REM 

HORZ  TAB 

2868 

SG 10 

HEAD 

#5 

< AOOO 

,R8*(9))W8*< )<1,56>  : 

REM 

PRINT  HEADING 

2872 

*GIO 

TOR 

#5 

< 4000400A 

,R8*(9))  : 

REM 

VERTICAL  TAB 

2876 

•CIO 

LINE 

1 

#5 

(A0004000 

,R8*(9))W7*( )<1,A>  : 

REM 

PRINT  HASH 

2880 

$GIO 

LINE 

2 

#5 

(A0004000 

,R8*(9>)W7*<)<1,4>  : 

REM 

PRINT  HASH 

288A 

*CIO 

LINE 

3 

#5 

(AOOO 

,R8*(9))W7*()<3, 10>  : 

REM 

PRINT  HASH 

2888 

♦CIO 

LINE 

3 

#5 

(AOOO 

,R8*(9))W7*( ><1,2>  : 

REM 

PRINT  HASH 

2892 

*CIO 

LINE 

3 

#5 

(AOOOAOOO 

,R8*(9) )W7*( ><8,S>  : 

REM 

PRINT  HASH 

2896 

•CIO 

LF 

#5 

(AOOO 

,R8*(9)  )W7*(  X13,  3>  : 

REM 

VERTICAL  TAB 

2-300 

GOTO 

2940 

REM 

BRANCH  TO  EXIT 

2904 

REM  ** 

2-308 

*GIO 

LF 

#5 

(AOOO 

,R8*(9))W7*( ><13,2>  : 

REM 

VERTICAL  TAB 

2912 

UGIO 

LINE 

1 

#5 

( 4009A000 

,R8*(9> )W7*( )<5,8>  : 

REM 

PRINT  HASH 

2916 

*GIO 

LINE 

1 

#5 

(4009A000400U,R8*(9> )W7*( )<9,A>  : 

REM 

PRINT  HASH 

2920 

•CIO 

LINE 

1 

#5 

(AOOOAOOO 

,R8*(9))W7*(X1,A>  : 

REM 

PRINT  HASH 

292A 

*GIO 

LINE 

2 

#5 

(AOOOAOOO 

,R8*(9> >W7«( )<1,A>  : 

REM 

PRINT  HASH 

2928 

*GIO 

LINE 

3 

#5 

(AOOOAOOO 

,R8*(9) )W7*< )<1,A>  : 

REM 

PRINT  HASH 

2932 

*GIO 

LF 

#5 

(AOOO 

,R8*(9) )W7$( )<13, 19>: 

REM 

VERTICAL  TAB 

2936 

REM  *■» 

V 

2940 

RETURN 

: 

REM 

EXIT 
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ALJ  I HCJR  Sy  s"t  E»m 


P ha  s e-  3 


ATH 3 LSI  1 


**  MAP 


1564 

1700 

1712 

1720 

1728 

1744 

1792 

1796 

1820 

I860 

1864 

1876 

2000 

2012 

2048 


2080 

2084 

2112 

2160 

2172 

2184 

2196 

2284 

2288 

22-36 

2312 

2316 

2320 

2596 

2604 

2632 

2696 

2712 

2716 

2720 

2724 

2728 

2732 

2736 

2740 

2744 

2748 

2752 

2/56 

2760 

2864 

2908 

2-340 


1576 

1680 

1724 

1712 

1724 

1680 

1780 

1788 

1680 

1680 

1852  1856 

1728  1804  1864 

1988 

2004 

2036 

2040 

2072 

2032  2080 
2148 
2148 
2148 

2164  2176  2188 

2284 

2284 

2240  2244  2288 

2264 

2268 

2280 

25-36 

2596  2628 
2608 
2552 
2568 
2576 
2584 
2616 
2636 
2592 
26.52 
2656 
26.60 
2664 
2668 
2672 
26.76 
2852 
2852 
2900 


AUTHOR  System:  Phase  3 — ATHaLSTl  — V MAP' 

Q2*<  - 1984  19-92  2000  2008  2012  2016  2160  2172  2184  2400  2484 

R0*(  - 1724  2284  2288  25-96. 

R2*<  - 1976  1980  2012  2016 

R4  - 2048  2056  206.4  2084  2092  2100  2112  2.120  2128 

R5  - 2052  2056.  2060  2088  2092  20-96  2116  2120  2124 

R5*(  - 2000 

R8*  - 2384  23-96  2460  2476 

R8*<  - 2388  23-96.  2400  2468  2476  2484  2492  2604  26.20  2684  2864  2868  2872  2876 

2880  2884  2888  28-92  2896  2908  2912  2916  2-920  2924  2928  2-932 

R9*<  - 2464  2492 

W2*  - 1712  2240  2244  2248  2292 

W3*  - 1780 

W3*<  - 1944  2000  2020  2120  2132 

W4*  - 1852  1856 

W5*  - 2552  2566 

W6.  - 1556  1572  1660  1680  1988  2004  2148 

W6*  - 2032  2036.  2040  2072  2080 

W7  - 1760 

W7*<  - 2816  2820  2824  2828  2832  2864  2876  2880  2884  2888  2892  2896  2-908  2912 

2-916  2920  2924  2928  2-932 

W8  - 1772  17-96  1836  1844  2480  2484 

W8*<  - 2816  2836  2868 

W9  - 1972  1984  1996.  2000  2008  2012  2016  2160  2172  2184  23-92  23-96  2400  2404 

2472  2476  2480  2488  2812  2852 

W9$<  - 1944  1952  1956  1960  1964  1-968  1984  2008  2160  2172  2184 

X3  - 1764 

X3*<  - 1948  2012  2024  2056  206.8 

X6  - 2068  2104  2132 

X?  - 2068  2104  2132 

X9*<  - 2548  2680  2684 

Y3  - 1768 

Y3*<  - 1948  2016  2028  2092  2104 


AUTHOR  System:  Phase  3 — ATH31.ST1 

0000  DEFFN ' 0 

0001  DEFFN'  1 

0002  DEFFN ' 2 

0003  DEFFN ' 3 
????  DEFFN'  101 

- 2250  2270  2504  2572  2580  2588  2012  2024 
1000  DEFFN'  108 

1940  DEFFN'  10*3 

- 1704  1748 
2230  DEFFN'  110 

- 1708 

2380  DEFFN'  111 

- 1710 

2450  DEFFN'  112 

- 1720 

2544  DEFFN'  113 

- 1752 

2812  DEFFN'  114 

- 1750  1800 
????  DEFFN'  115 

- 1776 

????  DEFFN'  110 

- 1784 

????  DEFFN'  117 

- 1792  1840 
????  DEFFN'  118 

- 1828 

-1???  DEFFN'  119 

- 1832  1848 
????  DEFFN'  120 

- 1860 

????  DEFFN'  121 

- 2644 

????  DEFFN'  122 

- 2696 

????  DEFFN'  124 

- 1664 

????  DEFFN'  125 

- 2056  20-32  2120 
????  DEFFN'  201 

- 1556. 

????  DEFFN'  202 

- 1560 

????  DEFFN'  203 

- 1564 

????  DEFFN'  204 

- 1568 

????  DEFFN'  210 

- 1572 


c 
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5.35.2  ATH3LST2 

This  part  of  the  'ATH3LSTP'  program  contains  subroutines 
115  to  123. 

The  remainder  of  the  section  presents  the  'ATH3LST2' 
program  listing  and  reference  maps. 


*.  p 


AU I HQR  System 


Phase  3 


ATH  3L-S1fi 


115 


3000 

3004 

3008 

3012 

3016 

3020 

3024 

3028 

3032 

3036 


Zttlt  Program  > AUTHOR/3  ( ATH3LST 2 ) Version  > 2.0  2200  T/VP  780323 

RtM  **  Subroutine  »■» h » »♦»»««■»» i i s 
**  Abstract  > 

**  To  scan  lookup  table  for  next  underscored  character. 

Variables  > 


RtM 

REM 

REM 

RtM 

REM 

RtM 

RLM 

RtM 


*■* 

«■» 

*■» 


W7  > lookup  table  indx 
W8  > text  buffer  lin  indx 
W1  > next  char  position 


W3$  > return  scan  flag 
R2*< ) > search  return  buffer 
W3*<)  > lookup  table 


3040 

UEFFN  ' 115 

REM 

ENTRY 

3044 

MAT  COPY 

W3*<XW7,2>  TO  R2*<)<1,2> 

REM 

STOR  BIN  POSITION 

3048 

W1  « FNR  < VAL ( R2* ( 1 ) ) ) 

REM 

CMPUT  BIN  POSITION 

30S2 

MAT  COPY 

X3*<XX3,2>  TO  R2*()<1,2> 

REM 

STOR  BIN  POSITION 

3056 

X4  * FNR<VAL<R2US<  1>>> 

RtM 

CMPUT  BIN  POSITION 

306.0 

MAT  COPY 

Y3*<XY3,2>  TO  R2*(X1,2> 

REM 

STOR  BIN  POSITION 

3064 

Y4  = FNR  < VAL ( R2t  Cl))) 

RtM 

CMPUT  BIN  POSITION 

3068 

REM  ** 

3072 

IF 

W1  <=  W8*64 

THEN 

3100 

REM 

SET  POSIT  V SCAN 

3076 

IF 

X4  <=  W8*64 

THEN 

3100 

REM 

SET  POSITV  SCAN 

3080 

IF 

Y4  <=  W8*64 

THEN 

3100 

REM 

SET  POSITV  SCAN 

3084 

REM  ** 

3088 

W3*  = "NULL  SCAN- 

; 

REM 

SET  RtTURN  FLAG 

30-32 

GOTO 

3104 

2 

REM 

BRANCH  TO  EXIT 

3096 

RtM  ** 

3100 

W3*  = "POSITIVE  SCAN" 

2 

REM 

SET  RETURN  FLAG 

3104 

RtTURN 

REM 

EXIT 

703 


AUTHOR  Syst  e-m  = 


ATH 3LST2 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *» 
DEFFN 
REM  ** 
REM  *** 
DEFFN 
DIM 


Abstract  > 

To  print  line  containing  underscoring  on  TTY  device 
Variables  > 

W9*< ) > micro  command  buffr  ! W9  > temp  text  bufr 


02*0  > text  buffer 
W3*()  > lookup  table 
R2*<)  > search  return  bufr 


W9  > temp  text  bufr  position 
W7  > lookup  table  indx 
W2  > next  character  position 
W1  > curnt  char  position 


R8*()  > micro  command  buffer  ! W8  > text  buffr  lin  indx 
Function  Definitions  > 


T(T)  ■ T 


(W9+W0- 1) 


REM  compute  string  length 


W9*<7)8 
W9*(l)  = 
W9*<2)  = 
W9*<3)  = 
W9*<4)  = 
W9*<5>  = 


REM  ** 


*GIO  TAB 
REM  ** 

IF 

IF 

*GIO  PRINT 
IF 

*GIO  PRINT 
GOSUB  3468 
GOSUB  3400 
GOTO 
REM  ** 

IF 

*GIO  PRINT 
GOSUB  3836 
GOSUB  3400 
GOTO 
REM  ** 

IF 

*GIO  PRINT 
GOSUB  3468 
GOTO  3312 
REM  ** 

*GIO  PRINT 
GOSUB  3536 
GOTO  3312 
REM  ** 

IF 

IF 

IF 


HEX  < 4009402020202020 ) 
HEX  < A0004008405F2020 ) 
HEX ( A000400020202020 ) 
HEX ( A0004008402D2020 ) 
HEX ( A0004008402F2020 ) 


W9  = <W8-1>*64  + 1 
#5  <W9*(1),R8*<9) ) 

W1  > X4 
W1  > Y4 


THEN  3276 
THEN  3296 


REM  ENTRY 

REM  DEFINE  WORK  BUFR 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 
REM  INIT  MICRO  CMND 

REM  SET  TEMP  LIN  INDX 
REM  CMPUT  BEG  OF  LINE 
REM  HORZ  TAB 

REM  W1  NOT  MIN  VALUE 
REM  W1  NOT  MIN  VALUE 


#5  <W9*(2),R8*(9) )Q2*( )<W9+WO,FNT(Wl)>:  REM  PRINT  STRING 
W1  <>  X4  THEN  3252  : REM  ALSO  SPCL  CHAR  1 

#5  <W9*(4),R8*(9))Q2*< ><W9*WO,0>  : REM  PRINT  SPCL  CHAR  1 

: REM  I NCR  TBL  INDX  X3 
: REM  I NCR  TBL  INDX  W3 

3312  : REM  BRNCH  TO  LIMIT  CHK 


W1  <>  Y4  THEN  3264  : REM  ALSO  SPCL  CHAR  2 

#5  <W9*(5) ,R8*(9> )Q2*( )<W9+W0,0  : REM  PRINT  SPCL  CHAR  2 

: REM  I NCR  TBL  INDX  Y3 
: REM  I NCR  TBL  INDX  W3 

3312  : REM  BRNCH  TO  LIMIT  CHK 

X4  > Y4  THEN  3296  : REM  X4  NOT  MIN  VALUE 

#5  <W9*(4),R8*(9) )Q2*( )<W9+W0,FNT(X4)>:  REM  PRINT  STRING 

: REM  I NCR  TBL  INDX  X3 
: REM  BRNCH  TO  LIMIT  CHK 

#5  (W9*(5),R8*(9) >Q2*< XW9+WO,FNT(Y4>>:  REM  PRINT  STRING 

: REM  I NCR  TBL  INDX  Y3 
: REM  BRNCH  TO  LIMIT  CHK 

W1  O W8*64  THEN  3216  : REM  CONT  THIS  LINE 

X4  <=  W8*64  THEN  3216  : REM  CONT  THIS  LINE 

Y4  <*  W8*64  THEN  3216  : REM  CONT  THIS  LINE 


Ml  <=  W8*64 
X4  <=  W8*64 
Y4  <=  W8*64 


704 


3324  REM  ** 

3328  MAT  COPY 
3332  MAT  SEARCH 
3336 
3340 

3344  *GIO  END 
3348  RETURN 


-Q2*< ><W9,64>  TO  R9*<)<1,64> 
R9*(),  <>  R5*(l>  TO  R2»<) 

W2  = FNR<VAL<R2<< 1) ) > 

W2  = (64-<W2~l))  - WO 
#5  <W9*<3),R8*<9> )Q2*< )<W9+WO,W2> 


REM  REVERSE  LIN  COPY 
REM  SRCH  FOR  NON  BLNK 
REM  CMPUT  TRL  SPCS 
REM  CMPUT  TRL  SPACES 
REM  PRINT  END  OF  LINE 
REM  EXIT 


AU'I  HQR  Syst  E?-m 


F"  1-.^  s e 3 


ATH JLQT2  —1  X 


3420 

3424 

3428 

3432 

3436 

3440 

3444 

3448 

3452 

3456 

3460 

3464 

3468 

3472 

3476 

3480 

3484 


HEM 

HEM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


Subroutine 
Abstract  > 

This  routine  will  increment  and  compute  the  index 
into  the  ' Z ' scan  lookup  table. 

Variables  > 

X3  > lookup  table  index  ! X3*< ) > lookup  table 
X4  > compute  position  ! WO  > temp  bufr  lin  indx 

W3  > curnt  begin  of  line  ! R2t< ) > function  input  bufr 


1 1 6.2 


X3  = X3  + 2 

MAT  CORY  X3*<KX3,2>  70  R2*()<1,2> 
WO  - (X4+1)  - W3 
X4  = FNR<VAL<R2*(1)>) 

RETURN 


REM  I NCR  LOKUP  TBL  IDX 
REM  ETCH  NXT  CHAR  FOB 
REM  INCH  TMP  LIN  INDX 
REM  CMPUT  DEC  CHAR  ROB 
REM  EXIT 


AUTHOR  fciyst  e-m 


Pha 


ATH 3LSia 


— 1 1 


3488  RfcM  ** 

3492  RfcM  ** 

3500  RfcM  **  Abstrac-t  > 

3504  RfcM  **  This  routine  will  increment  and  compute  the  index 

3508  RfcM  **  into  the  '0'  Scan  lookup  table. 

3512  RfcM  **  Variables  > 


3516  RfcM  **  Y3  > lookup  table  index  ! Y3*< ) > lookup  table 

3520  RfcM  *"*  Y4  > compute  position  ! WO  > temp  bufr  lin  indx 

3524  RfcM  **  W9  > curnt  begin  of  line  ! R2*<)  > function  input  bufr 

3528  RfcM  ** 

3536  Y3  = Y3  + 2 : RfcM  INCH  LOKUP  TBL  1DX 

3540  MAT  COPY  Y3*<XY3,2>  10  R2*()<1,2>  : RfcM  FTCH  NXT  CHAR  PCJ8 

3544  WO  = t Y4+1 ) - W9  : REM  INCH  IMP  LIN  INDX 

3548  Y4  « FNR ( VAL ( R2* ( 1 ) ) ) : RfcM  CMPUT  OfcC  CHAR  PUS 


3552  RtTURN 


RfcM  EXIT 


I 


AU  I HOR  Sy&tem:  IJ  t~.  -ea  s e- 


ath  3L.ara 


3S56 
3b60 
3S64 
3568 
3578 
3S76 
3580 
3584 
3588 
3593 
3596 
3500 
3604 
3608 
3613 
3616 
3630 
3634 
3638 
3638 
3636 
3640 
3644 
3648 
3653 
3656 
3660 
3664 
3668 
367 3 
3676 
36-80 
3684 
3688 
3693 
3696 
3700 
3/04 
3708 
3713 
3716 
3730 
3734 


HEM  ** 
HEM  ** 
REM  ** 
REM  ** 
REM  *+ 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM  ** 
HEM  ** 
REM 
OEFFN 
DIM 


Subroutine 
Abstract  > 

To  print  a line  without  trailing  blanks  on  selected 
output  device. 

Variables  > 

W9  > temp  text  bufr  indx  ! Q3*<)  > 

R9*< ) > temp  line  bufr  ! R5*()  > 

R3*<)  > serach  retrn  bufr 


1 7 


WO  > temp  length  of  line 


text  buffer 
single  char  storage 


W6  > output  device  indx 
W7  > null  line  flag 


117 


♦TRAN 
MAT  COPY 
MAT  SEARCH 
IF 


♦CIO  SETUP 
REM  ** 

REM  *•* 

REM  ** 

ON  W6  GOTO 
REM  **  ■ 

REM  ** 

?GIO  TAB 
♦GIO  TEXT 
GO  10 
REM  ** 
1NIT(30) 
♦GIO  TAB 
♦GIO  TEXT 
GOTO 
REM  ••hi- 
RETURN 


THEN  3648 


BIN(STR(R8^<9),6, 1 ) ) 

= WO 

BIN<STR(R8^<9>,7, 1 ) ) 

= OO 

#5  <R8^(S> 

,R8^(9) ) 

! CRT  ! 

1 ..  1 

TTY  ! 

LPT 

3734  , 

3688  , 

3704 

W9^<7)8 

W9^(l)  = HEX ( 5KA030308020 ) 

W9  = <W8-1>*64  + 1 
<03^< )<W9,64>,  W9S()<1,8>>  R 
-Q3^< )<W9,&4>  TO  R9^( )<1,64> 
R9^<),  <>  R5^<1)  TO  R8^<) 
R3^(l)  <>  HEX (OOOO) 
BIN(STR(R3^< 1 ) , 1, 1 ) ) = 0 
BINISTR (R3^< 1 ) , 3, 1 ) ) = 65 
WO  = 64  - <FNR<VAL(H3^(1 ) ) )-l ) 


#5  (1 467 1 60840094030 , R 8^  < 9 > ) : 
#5  < A00O43S0  ,R8*<9> ) Q3^ < > < W9 , W0> : 
3734  : 

R9^< ) : 
#5  < 1 467 1 608A000, R8^ ( 9 ) ) R9^  < ) < 1 , 4>  : 
#5  ( A0004350  ,R8^(9)  )<W9,W0>: 
3734  : 


REM  ENTRY 

REM  DEFINE  WORK  BUFR 
REM  DEFINE  CONVERSN 
REM  CMPOT  BEG  OF  LIN 
REM  M1N1ZE  UNDERSCOR 
REM  REVERSE  COPY 
REM  SCAN  FOR  NONBLANKS 
REM  TRAILING  BLANKS 
REM  SET  TO  NULL  LINE 
REM  SET  TO  NULL  LINE 
REM  CMPUT  LEN  OF  SIR 
REM  ST  OR  LEN  OF  SIR 
REM  SET  LIMIT 
REM  SETUP  CR  OR  LF 


REM  BRANCH 


REM  FORI  TAG 
REM  PRINT  LINE 
REM  BHANCH  TO  EXIT 

REM  CLR  TAB  BUFFER 
REM  HOR 2 TAB 
REM  PRINT  LINE 
REM  BRANCH  TO  EXIT 


REM  EXIT 
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3728  RfcM  ** 
3735  RfcM  ** 
37  36  RfcM  *■» 
3740  REM  ** 


Subroutine 
Abstract  > 


1 1 8 


3744  RfcM  ■** 


To  Display  Instructions  to  set  up  LPT  device. 


3748 

RfcM  ** 

Variables  > 

37  S2 

RfcM  ** 

W4*  > return  scan  flag 

! W4«< ) 

> i/ 

37  SC- 

RfcM  ** 

W9 

> scratch  loop  indx 

! W5*  < ) 

> i/ 

3760 

RfcM  ** 

R0$()  > input  register 

; 

3764 

RfcM  ** 

3768 

RfcM  **** 

^***-»*-»*****-»  •**-«-»■■»-»  4HHH 

MHHHHHMHI 

3772 

UfcFFN  ' 

118 

3776 

DIM 

X9*< 10)45 

3780 

IF 

W4*  = "NO  UNDER SC ORt" 

THEN 

3908 

3784 

IF 

W4*  = "UNDERSCORE" 

THEN 

3908 

3788 

IF 

W4*  = "OVERLAY" 

THEN 

3908 

3792 

IF 

W4*  = "TAPfc" 

THEN 

3308 

3.96 

IF 

W4*  = "SfcT  PRINTER" 

THEN 

3856 

3800 

W4*  = “NO  UNDERSCORE “ 

3804 

PRINT 

HEX<03> 

3808 

GUSUB  ' 

101 

<5, 1,0,0) 

3812 

SELECT 

PRINT  005 

3816 

PRINTUSING 

3888,  “ “ 

3820 

PRINTUSING 

38-32,  “ " 

3824 

PRINTUSING 

3896,  “ " 

3828 

SELECT 

PRINT  405 

3832 

GOSUB  ' 

101 

(2, 1,0,0) 

3836 

PRINTUSING 

3-300,  “ 

3840 

KfcYIN 

R0*<1),  3844,  3844 

: GOTO 

3840 

3844 

IF 

RO*41)  <>  "1" 

THEN 

3852 

3848 

W4*  = "UNDERSCORE" 

3852 

IF 

ROt< 1 ) <>  "2” 

THEN 

3868 

38S6 

W4*  - "TAPfc" 

3860 

RfcM  ** 

buffer  #1 
buffer  #5 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
RfcM  SKIP  ROUTINE 
RfcM  SKIP  ROUTINE 
RfcM  SKIP  ROUTINE 
RfcM  SKIP  ROUTINE 
RfcM  1N1T  PRINTER  ONLY 
RfcM  SET  RETRN  SCAN  FLG 
REM  CLR  CRT  SCREEN 
REM  POSITION  CUSOR 
REM  SfcL  OUTPUT  MODE 
RfcM  PRINT  INSTRUTN  1 
RfcM  PRINT  INSTRUTN  2 
RfcM  PHI NT  INSTRUTN  3 
RfcM  SfcL  OUTPUT  MODE 
RfcM  POSITION  CUSOR 
RfcM  PRINT  PROMPT 
RfcM  RfcSPUNCfc  WAIT 
RfcM  SCAN  f-LAG  SET 
RfcM  SET  SCAN  FLAG 
RfcM  SCAN  I- LAG  SET 
RfcM  SfcT  SCAN  FLAG 


3864 

GOSUB  ' 

127 

: RfcM  TEST  TAPfc  READY 

3868 

GUSUB  ' 

128 

: RfcM  TEST  PRINTER  READY 

3872 

GOSUB  ' 

123 

: RfcM  PRINT  INSTRUCTIONS 

3876 

RfcM  *•* 

3880 

RfcM  ** 

INSTRUCTION  FORMATS 

3884 

RfcM  *+ 

3888  Z LPT  UNDERSCORE  MENU  # 1 - SINGLE  PAGE  UNDERSCORING 

3892  X # 2 - MULTI  PAGE  UNDERSCORING  (TAPfc) 

3896  Z # 3 - DO  NOT  SCAN  FUR  UNDERSCORING 

3900  Z # Enter  Code  from  LP I Underscoring  Menu  > 

3904  RfcM  ** 

3-308  RfcTURN 


RfcM  EXIT 


/M_l  I HOR  S y s-  -t  em 


H ha  s. 


3 


ATH^LS  I e! 


11-3 


3912  REM  ** 

3916  RtM  ** 

3920  REM  **  Subroutine 
3924  RtM  **  Abstrct  > 

3928  RtM  **  To  print  upper/lower  hash  lines  on  the  LPT  device. 

3932  RtM  **  Variables  > 

3936.  RtM  **  W7*()  > hash  contorl  buffer  f W9  > upper/lower  index 

3940  RtM  ** 

3944  REM  **»»»»♦»♦■»**♦*■♦•» 

3948  OtFFN  ' 119  <W9>  : REM  ENTRY 

3952  01M  W7*( 19)4, W8*( 1)64 

3956  IN1TC20)  W7*()  : REM  CLR  TABLE 

3960  W7*  < 1 ) =HEX  ( 2D2D2D2D ) : W7* ( 2 > =HEX ( OAOAOAOA > : RtM  INI!  TABLE 


1 1 9 


3'364 

W8*(  1 ) 

= “A1JTH0R:  An  Automatic  Authoring  System 

Version:  2.0 

3-36.8 

REM  *+ 

3972 

RtM  *"* 

1 

upprr  ! 

lower  ! 

3976 

RtM  ** 

1 

3-380 

CJN  W9 

GOTO 

3992  , 

4052 

RtM 

BHANGH 

3984 

REM  ** 

1 

1 

3988 

RtM  ** 

3992 

*GIU 

TOP 

#5 

(400CA000 

,R8*(9> )W7*( ><b,3> 

REM 

TCJP  OF  FORM 

3-3-36. 

*GIO 

TAB 

#5 

(AOOO 

,R8*(9> )W7*( ><9,8> 

RtM 

HOR/  tab 

4000 

*G1U 

HEAD 

#5 

( A0004000 

,R8*<9)  )W8«(  XI, 64 > 

RtM 

PRINT  HEADING 

4004 

*GIO 

LF 

#S 

(AOOO 

,R8*(9> )W7*(  Xb,3> 

REM 

VERTICAL  TAB 

4008 

FOR 

W9 

- 1 TO  3 

RtM 

PRINT  3 LINES 

<*012 

4G 10 

TAB 

#b 

< A000407C 

,R8*(9))W7*( ) <9, 3> 

RtM 

HOR 7 TAB/HASH 

4016 

SG 10 

TAB 

#5 

< A000407C4000, R8*  < 9 ) ) W7*  < ) <9, 64> 

REM 

HOR / TAB /HASH 

4020 

NEXT 

W9 

REM 

PRINT  NXT  LINE 

4024 

*GIO 

TAB 

#5 

(AOOO 

,R8*(9) >W7*( )<9,0> 

RtM 

HOR/  TAB 

4028 

*GIO 

HASH 

#5 

(AOOO 

,R8*(9) >W7*(  Xl,4> 

RtM 

PRINT  HASH 

4032 

*GIO 

TAB 

#5 

(AOOO 

, R8* ( 9 ) )W7*(  X9,64> 

RtM 

HOR/  TAB 

4036 

*GIO 

HASH 

#5 

( A 0004000 

,R8*(9>  )W7*(  XI,  4> 

REM 

PRINT  HASH 

4040 

*GIO 

LF 

#5 

(AOOO 

,R8*(9>  >W7*(  Xb,3> 

REM 

VERTICAL  TAB 

4044 

GOTO 

4092 

REM 

BRANCH  TO  EXIT 

4048 

RtM  ** 

4052 

*G10 

LF 

#5 

(AOOO 

,R8*(9)  )W7*(  Xb,3> 

REM 

VERTICAL  TAB 

4056 

*GIO 

TAB 

#5 

(AOOO 

,R8*(9>  )W7*(  X9,0> 

REM 

HOR/  TAB 

406.0 

$GIO 

HASH 

#5 

(AOOO 

, R8*  ( 9 ) )W7*(  XI, 4> 

RtM 

PRINT  HASH 

406.4 

*GIO 

TAB 

#5 

(AOOO 

,R8*(9> )W7*( > <9, 64 > 

REM 

HOR 2 TAB 

406.8 

$GIO 

HASH 

#5 

( A0004000 

,R8*(9>  )W7*(  XI,  4> 

REM 

PRINT  HASH 

40/2 

FOR 

W9 

= 1 TO  3 

RtM 

PRINT  3 LINES 

40/6 

♦G 10 

TAB 

#5 

( A00O407C 

,R8*(9)  )W7*(  X9,  3> 

REM 

HOR  2 T AB /HASH 

4080 

*GIO 

TAB 

#S 

( A000407G4000,  R8t>  ( 9 ) )W7*(  X9,64> 

REM 

HORZ  TAB/HASH 

4084 

NEXT 

W3 

REM 

PRINT  NXT  LINE 

4088 

RtM  ** 

40-32 

RETURN 

REM 

EXIT 
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4096  RLM  ** 

4100  HLM  *■* 

4108  RtM  **  Abstract  > 

4115  RtM  **  To  prirvt  the  underscore  overlay  buffer  on  to  LP I device. 

4116  RtM  **  Variables  > 


4150 

RtM  *•* 

W6 

> output  device  indx 

! W4*  > 

return 

scan  flag 

4154 

RtM  ++ 

Z3 

> end  of  file  flag 

i 

4158 

REM  ** 

4132 

RtM  *** 

♦H 

HHMH 

■*■«-****• 4HHH 

HHHHHHHH 

K M X M 1. 

4136 

DLFFN 

t 

150 

RtM 

ENTRY 

4140 

If 

W6  - 4 

THEN 

4135 

REM 

END  OF  PRNT  PILE 

4144 

GOSUB 

/ 

103 

REM 

CREATE  OVERLAY 

4148 

IP 

W4*  * "TAPE" 

THEN 

4180 

RLM 

WRITE  ON  TAPE 

4155 

RtM  *•* 

4156 

GOSUB 

/ 

155 

RtM 

DEVICE  WAIT 

4160 

W4*  =•  “OVERLAY" 

RtM 

Stl  SCAN  FLAG 

4164 

GOSUB 

/ 

108 

( W6) 

• 

RtM 

PRINT  BUFFR 

4168 

W4*  = * UNDERSCORE “ 

a 

• 

RtM 

RESET  SCAN  FLAG 

4175 

GO  10 

4540 

a 

a 

RtM 

BRANCH  TO  EXIT 

4176 

RtM  ♦* 

4180 

GOSUB 

/ 

130 

(15,1,23,5048,1,6) 

• 

RtM 

WRITE  BUFFER 

4184 

GOTO 

4540 

: 

REM 

BRANCH  TO  EX IT 

4188 

RtM  *+ 

4135 

GOSUB 

/ 

130 

< 10, 3, 23,0, 1,6) 

RtM 

WRITE  EOF 

4136 

UtFfN 

/ 

016 

RtM 

RECOVERY  ENTRY 

4500 

GOSUB 

/ 

130 

(3, 3, 23,0, 1,6) 

RtM 

REWIND  TAPE 

4504 

W6  = 3 

a 

a 

REM 

RESET  DEVICE  INDX 

4508 

GOSUB 

/ 

155 

a 

REM 

DEVICE  WAIT 

4515 

W4*  -•  “OVERLAY" 

RtM 

SET  SCAN  FLAG 

4516 

GOSUB 

/ 

130 

(7,1,23,5048,1,6) 

RtM 

READ  HECQHD 

4550 

IF 

Z3  - 4 

THEN 

4535 

RtM 

END  OF  FILE 

4554 

GOSUB 

/ 

108 

(W6) 

REM 

PRINT  BUFFER 

4558 

GOTO 

4516 

RtM 

READ  NXT  RECORD 

4535 

GPSUB 

/ 

130 

(3,5,23,0, 1,6) 

RtM 

REWIND  TAPE 

4536 

RLM  ** 

4540 

RETURN 

2 

REM 

EXIT 
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ATHdLSl 


1 


1 


4244  REM  ** 
4248  RtM  ** 
42b2  RtM  ** 
42b6  KtM  ** 
4260  RtM  ** 
4264  HEM  *■* 
4268  HtM  ** 
4272  RtM  ** 
4276  RtM  ** 
4280  RtM 
4284  UtFFN 
4288  RLM  *♦ 


Subroutine 
Abstract  > 

To  Clear  all  tab  stops  and  set  the  needed  tab  stops. 
Variables  > 

W9  > scratch  loop  indx  ! R9*()  > temp  tab  buffer 

W8  > scratch  loop  indx  ! 


1 2 1 


121 


RtM  tNTRY 


42-32 

MX 

W9 

= 9 TO 

1 STEP  -4 

RtM 

DtCRMNT  LOOP 

4296. 

*GI0  CRLF 

#5 

(4000 

, R8*  < 9 ) ) 

REM 

CRLF 

4300 

MX 

W8 

= 1 TO 

W9 

RtM 

TAB  LOOP 

4 304 

*CI0  CLRTAB 

#S 

<40094019  , R8*<9) ) 

RtM 

TAB /CLEAR 

4 308 

NEXT 

W8 

RtM 

NEXT  TAB 

4312 

NEXT 

W9 

REM 

DtCMNT  LOUP 

4316 

RtM  ** 

4320 

1N1T (20) 

R9*<  > 

RtM 

CLR  TAB  BUFFR 

4324 

*010  CRLF 

#6 

<4000 

,R8*<9) ) 

• 

• 

RtM 

CRLF 

4328 

*GID  TABStT 

#S 

< A000401 A ,R8*<3)  )R9*<  XI,  18> 

a 

RtM 

TAB  AND  SET 

4332 

*GI0  TABStT 

#b 

< 4020A000401 A, R8* (9) )R9*< )<1,64> 

RtM 

TAB  AND  SET 

4336 

*GI0  CRLF 

#S 

<4000 

, R8*  <9) ) 

REM 

CRLF 

4340 

RtM  ** 

4344 

RETURN 

: 

REM 

EXIT 

o 
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4476  RtM  ** 
4480  RtM  ** 
4484  RtM  ** 
4488  RtM  ** 

4495  RtM  ** 

4496  RtM  ** 
4800  REM  ** 
4504  RtM  ** 
4508  RtM  ** 

4515  RtM  ** 

4516  RtM  ** 
4550  RtM 


Subroutine 
Abstract  > 

To  Display  a large  cusor  on 
waitting  for  device  ready. 
Variables  > 

W9*( ) > char  storage  bufr 
R9*()  > scratch  cusor  bufr 
K8  > random  col  position 


1 5 3 


console  screen  while 


! W9  > temp  bufr  index  (loop) 
! K 1 > random  row  position 


4554 

DtFFN  ' 153 

: RtM 

ENTRY 

4558 

1N1T (08) 

R9*(  ) 

: RtM 

IN1T  CUSOR  UUFR 

4535 

K1  = INT(RND<-1)*10) 

: REM 

GEN  RND  POS 

4535 

IF 

K 1 =-  0 

THEN  4535  : REM 

INVALID  POS 

4540 

K5  = 1NT(RND(-1 >*100) 

: RtM 

GEN  RND  POS 

4544 

IF 

K3  > 55 

THEN  4540  : RtM 

INVALID  POS 

4548 

*GIO  CLR 

/005 ( 4003  ,R8*(9>> 

: RtM 

CLR  CRT  SCREEN 

4555 

GOSUB  ' 101 

( K 1 , K8, 0, 0 ) 

: REM 

POSITION  CUSOR 

4556 

FOR 

W9  - 55  10  49  STEP  6 

: RtM 

BLG  CHAR  PRNT 

4560 

*GIO  PRINT 

/005 ( 4006A000  , R8* ( 9 ) ) W9* ( ) < W9 , fc> : REM 

PRINT  LINE 

4564 

*GIO  BAKSPC 

/0O5(4OO640OAAOO0,R8»(9) )R9*< XI, 6>  : RtM 

P0S1110N  FOR  NX1 

4568 

NEXT 

W9 

: REM 

PRNT  NXT  LINE 

4575 

RETURN 

: REM 

EXIT 

c 


715 


AU  I HQR  Systurn:  Phase  3 — ATH3L.S1  c!  — # MAH' 


3100 

- 

3072 

3076 

3080 

3104 

- 

3092 

3a  16 

- 

3312 

3316 

3320 

32S2 

- 

3228 

3264 

- 

3252 

3276 

- 

3216 

32-36 

- 

3220 

3276 

3312 

3244 

3268 

3288 

3304 

3400 

- 

3240 

3264 

; 3468 

- 

3236. 

3284 

3536 

- 

3260 

3300 

3648 

- 

3636 

3688 

- 

3676 

3704 

- 

3676 

| 3724 

- 

3676 

36-96 

3716 

3840 

- 

3840 

3844 

3840 

3852 

- 

3844 

3856 

- 

3796 

3868 

- 

3852 

3888 

- 

3816 

3832 

- 

3820 

38-36 

- 

3824 

3-300 

- 

3836 

3908 

- 

3780 

3784 

3788 

3792 

39-32 

- 

3-980 

4052 

- 

3980 

4092 

4044 

4180 

4148 

4192 

4140 

4216 

- 

4228 

4232 

- 

4220 

4240 

- 

4172 

4184 

4488 

“ 

4440 

4444 

- 

4456 

4468 

4460 

- 

4452 

4472 

- 

4464 

4532 

- 

4536. 

4540 

- 

4544 

AUTHOR  Sdyst  em: 


F-'  h£l  ! 


— ATH3Lara  — 


MAh 


3328  3 3 Vi  3624  36.28  3692 


306.4  3332  3336  3404  3412  3472  3480  3540  3548 


32-36.  3344  3652  3656  3660 
4016  4024  4028  4032  4036 
4304  4324  4328  4332  4336 

3708  4320  4328  4332  4528 


3688  3692  3708  3712 
4040  4052  4056  406-0 
4428  4436  4448  4460 


3280  3296  3340  3344  3408  3476  3544  3648  3652 


3228  3252  3312  3408  3412 


4168  4212 


4032  4036  4040  4052 


3476  3544  3620  36.24 
4300  4312  4556  4560 


3176  3180 
3624  43-36 
3468  3472 
3472 

30 Y6  3216 

3536  3540 
3540 

3080  3220 
4192  4200 


3280  32-96  3344  3612 
4436  4448  4460  4560 


3228  3276  3280  3316  3476  3480 


3252  3276  3296  3320  3544  3548 
4216  4220  4232 


AU  I HQR  System:  Phase  3 — ATH3L£iT£!  — 

0000  OEFFN'  0 

0001  OtFFN'  1 

0002  OtFFN'  H 

0003  OtFFN'  3 
4196  OtFFN'  lb 
????  OtFFN'  101 

- 3808  3832  4552 
????  OtFFN'  108 

- 4164  4224 
????  OEFFN'  109 

- 4144 

3040  OtFFN'  11S 
3168  OtFFN'  116 
3608  OtFFN'  117 
3/72  OtFFN'  118 
3948  DtFFN'  119 
4136  OtFFN'  iaO 
4284  OtFFN'  121 

439a  otFFN'  iaa 

- 4156  4208 
4524  OEFFN'  123 

- 4432  4444 
????  OtFFN'  127 

- 3864 

????  OEFFN'  128 

- 3868 

????  DtFFN'  129 

- 3872 

????  DtFFN'  190  \ 

- 4180  4192  4200  4216  4232 


' MAP 


MM 


TAEG  Report  No.  59 

ATH3LST3 

This  part  of  the  'ATH3LSTP'  program  contains  subroutines 
124  to  129. 

The  remainder  of  this  section  presents  the  'ATH3LST3' 
program  listing. 


AU  ! HOK  By  stem 


P ha  3 


ATH3LS  I 21 


1 S A 


4800  %#tt  Program  > AUTHOR/ 3 CATH3LSI3)  Version  > 2.0  2200  T/VP  780323 

4802  REM  ** 

4804  REM  **  Subroutine  if-**********************-******-)*-***#***.*#**.****  \ d ^ 
4806-  REM  **  Abstract  > 

4808  REM  **  This  routine  will  select  the  type  of  special 

4810  REM  **  character  scanning  to  be  executed. 

4812  REM  **  Variables  > 

4814  REM  **  WE*  > scaning  flag  bufr  ! R0*()  > char  input  bufr 
48 IE-  REM  ** 

4818  REM  ***-*******•******-****•************************* 


4820 

UEFFN  ' 124 

: REM 

ENTRY 

4822 

IP 

W6*  - “ZERO" 

THEN 

4906- 

: REM 

SCAN  SELECTED 

4824 

IP 

W6*  - "ZEE" 

THEN 

4-306- 

: REM 

SCAN  SELECTED 

4826 

IP 

W6*  a "BOT H“ 

THEN 

4906 

: REM 

SCAN  SELECTED 

4828 

IP 

W6*  = "NULL" 

THEN 

4906- 

: REM 

SCAN  SELECTED 

4830 

REM  ** 

4832 

PRINT 

HEX < 03) 

: REM 

CLR  CRT  SCREEN 

4834 

GOSUB  ' 101 

(5, 1,0,0) 

: REM 

POSITION  CUSUR 

4836 

SELECT 

PRINT  005 

: REM 

SEL  D1SPLY  MODE 

4838 

PRINTUSING 

4894,  " " 

: REM 

PRINT  MENU 

4840 

PRINTUSING 

4896,  " " 

4842 

PRINTUSING 

4898,  " ■ 

4844 

PRINTUS1NG 

4-300,  “ “ 

4846 

SELECT 

PRINT  40b 

: REM 

SEL  D1SPLY  MODE 

4848 

COSUB  ' 101 

(2, 1,0,0) 

: REM 

POSITION  CUSOR 

4850 

PR1NTUS1NG 

4902,  " " 

4852 

KLY1N 

R0*<1),  4854,  4854 

; 

GO  10 

4852 

: REM 

RESFONCE  WAIT 

4854 

PRINT 

HEX < 03) 

: REM 

CLR  CRT  SCREEN 

4856 

W6*  a “NULL" 

: REM 

SET  L'EFLT  VALUE 

4858 

IP 

R0*(1)  <>  “1“ 

THEN 

4864 

: REM 

SET  'O'  SCAN 

4860 

W6*  = “ZERO" 

4862 

REM  ** 

4864 

IP 

RO*  < 1 ) <>  "2" 

THEN 

4870 

: REM 

SET  'Z'  SCAN 

4866 

W6*  = "ZEE" 

4868 

REM  ** 

48/0 

IF 

RO*  < 1 ) <>  "3" 

THEN 

4876 

: REM 

SET  '0-Z'  SCAN 

4872 

W6*  a “BOTH" 

4874 

REM  ** 

4876 

IF 

W6*  a "NULL" 

THEN 

4906- 

: REM 

BENCH  TO  EXIT 

4878 

If 

W6  <>  3 

THEN 

4906 

: REM 

NOT  LPT  OUTPUT 

4880 

W4*  a "SET  PRINTER" 

: REM 

SET  SCAN  FLAG 

4882 

SELECT  #5 

015 

: REM 

SEL  LINE  PRINTER 

4884 

SELECT  TAPE 

07B 

: REM 

SEL  TAPE  DRIVE 

4886 

GUSUB  ' 118 

: REM 

IN1T  PRINTER 

4888 

REM  ** 

AMO 

REM  ** 

OUTPUT  IMAGE  FORMATS 

48-32 

REM  ** 

4894 

X n Special 

Character  Scanning  > 

1 

- Scan  for 

zero 

<0  <-  /) 

48-36 

z # 

2 

- Scan  for 

zee 

(Z  <-  -) 

48-38 

X It 

3 

- Scan  for 

bo-th 

'0'  6c  ’1‘ 

4 300 

z ♦* 

4 

- NO  Sped; 

3 1 Scanning 

4-302 

Z tt  Enter  Scanning  Code  from  Below 

Table  > 

4904 

REM  ** 

4-306 

RE  TURN 

: REM 

EXIT 

720 


AU'I  HQK  S/stem: 


' ha  s-  e 


ATH3LS  I 2J  — 


4908  REM  ** 
4910  REM  ** 
4912  RL-.M  ** 
4914  REM  +"* 
4916  REM  *'•* 
4918  HEM  ++ 
4920  REM 
4922  REM  ** 
4'924  REM  *» 
4926  REM  ** 
4928  REM  ** 
4990  REM  *•* 
4932  REM  ** 


Subroutine  -iH»***-)HHt’^**************-«-*****-i(-«Hh*'  i ^ S 
Abstract  > 

This  routine  will  scan  search  search  return  b 
and  insert  special  character  into  text  buffer 
location  specified  by  buffer  value. 

Variables  > 

R4  > lookup  tbl  row  indx  ! R5  > lookup  tbl  c 
X6  > rtrn  row  indx  on  O ! X7  > rtrn  col  ind 
X8  > max  table  row  indx  ! X9  > max  table  co 
R2$< ) > search  bufr  value  ! RO*( ) > spcl  inse 
R6  > decimal  bufr  value  ! 


uf  her 
in 


R5  > lookup  tbl  col  indx 
X7  > rtrn  col  indx  on  O 
X9  > max  table  col  indx 
RO*<)  > spcl  insert  char 


4934  REM 

4936  REM  HHHHMHHHHHHHRfrTHRIHHHHHHHHHHHHHHHHHHHHHHRIHHHHHHf 


4938 

OEFFN  ' 125 

<R4,RS,X: 

4940 

R6  =■  FNR 

4942 

IR 

R6  <>  0 

4944 

X6  - R4 

4946 

R4  = X8 

4948 

GOTO  4956. 

4950 

REM  ** 

4952 

IF 

W6  = 2 

4954 

MAI  COPY 

R0*<  XI, 

4956 

RETURN 

X7  * RS 
R5  = X9 


THEN  4962 


THEN  4956 


: REM  ENTRY 

: REM  CMP IJT  DECMAL  POS 
: REM  NO!  END  OR  TABLE 
: REM  SAVE  END  OR  TABLE 
: REM  SEND  END  OR  LOOP 
: REM  BRNCH  TO  EXIT 

: REM  TTY  OUTPUT 
: REM  INSRT  SPCL  CHAR 
: REM  EXIT 


721 


rtU  I HCJR  S/st  Dm 


H ha  c-  d 3 


ATH  3L_S  « 3 


1 a G 


4958  REM  ** 

4960  REM  *■* 

4962  REM  **  Subroutine  **************^**^***^********^****HHHi-***  j ^ fe, 
4964  REM  **  Abstract  > 

4966  REM  *•*  This  routine  will  print  the  text  string  buffer 

4968  REM  **  X9$()  as  specified  by  input  string  parameters. 

4970  REM  Variables  > 

4972  REM  **  XS  > beging  string  position  ! X9  > length  of  string 
4974  REM  ** 

4976  REM  ^***********-»*-»**-»H«-**'»Hi******#****-i(-»-t‘--i(-»*#*** 

4978  DEFFN  ' 126  (X8,X9>  ; REM  ENTRY 

4980  *GIO  PRINT  #5  (AOOO  , R8* (9) ) X9* < ) <X8, X9>  : REM  PRINT  TEXT  SIRING 

4982  RETURN  ; REM  EX  IT 


r 

' ' AU  l HCJR  System:  F'hasD  ISi  — ATH3Liir3  --  1 3 V 

498 A HLM  *"* 

A 386  REM  ■*•** 

‘■►388  KEM  **  Subroutine  ♦♦)(+*#♦♦**»<**■* *■*■•»'•■» tv ■«•*■*• #*•»*#*•«■ «***■»*■►»■►»■*  1 £ 7 
<1390  REM  **  Abstract  > 

A 992  REM  *"*  This  routine  will  test  the  tape  unit  for  ready  status. 

4994  RtM  **  Variables  > 

4996  l!tM  **■  W4 $ > underscor  status  flag  ! W6*  > special  char  scan  flag 

4 998  RtM  *•*  W6  > output  device  flag  I 

3000  RtM  ** 


'/JO  3 

UEFFN  ' 127 

REM 

ENTRY 

soot. 

$010  TST  ON 

( 6CF54 AOOBfc.O/7 1 OS 1221 A 000 , K8$  < 9 ) ) 

REM 

SEND  TEST  SIGNAL 

3008 

$IF  ON 

/07B,  3042 

REM 

TAPE  READY 

S010 

W4$  « " “ 

RtM 

CLR  SO AN  FLAG 

SOl£ 

Wt.$  - " " 

REM 

CLR  SO AN  FLAG 

SOI  A 

W6  = 8 

REM 

SET  FOR  ERR  RLOVRY 

SO  It 

003  LIB  ' 101 

<11, 10,0,0) 

RtM 

POSIT  ION  CUSOR 

SO  18 

PRINTUSING 

SO 36,  “ “ 

REM 

PHI NT  ERR  MSG 

3020 

$010  TONE 

/OOG  < R8$ ( A ) ,R8$<3) ) 

REM 

PAUSE  TONE 

30££ 

GOSUB  ' 101 

< 13, 1,0,0) 

REM 

POSITION  GUSOH 

5024 

PKINTU61NG 

5038,  “ " 

RtM 

PRINT  ERR  MSG 

3026 

$010  TONE 

/OOS  ( R8$ ( 4 ) , R8$  < 9 > ) 

RF-M 

PAUSE  TONE 

S028 

00 1 0 

5003 

RtM 

CONT  TEST 

SO  30 

RtM  ** 

S03£ 

RtM  ** 

OUTPUT  IMAGE  FORMATS 

3034 

RtM  *■* 

SO  36 

X tt  * * * •* 

TAPE  UNIT  NO!  READY  * * * * 

SO  38 

X # Touch  ' 

RESET' . . . Then  Type  RUN  1500  and 

OUCh 

'RETURN' 

So  AO 

RtM  +* 

5042 

Rl:  1 URN 

REM 

EXIT 

/NU 

b044 
S04E 
bOAS 
bOSO 
G0G2 
G0S4 
bObfc. 
G058 
b060 
GO 62 
G064 
b06€ 
G068 
G070 
S072 
b0f4 
b076 
S078 
G080 
b082 
b084 
G08G 
S088 
b090 
b092 
GT94 


1 HCJR 


~t  i?m Z Phase 


— ATH3L< 


— 1 


REM  ** 

REM  +* 

REM  ** 

REM  ** 

REM  *-* 

REM  *■* 

REM  ** 

REM  *■» 

REM  ■IHHHHHHHHHHHHHHHHHHHMHHHHHHHHHHHHHHHHHHHHHHHH# 


Subroutine 
Abstract  > 

This  routine  will  test  the  printer  for  read/  status. 
Variables  > 

R8*< ) > i/o  micro  command  buffer  ! 


1 2 8 


DEFFN  ' 128 

REM  ENTRY 

♦G1U  READY 

#S  <4100  , H84(9) ) 

REM  SEND  CTL  CHAR 

♦ IF  ON 

#S,  G078 

REM  DEVICE  READY 

GOSUB  ' 101 

<11, 10,0,0) 

REM  POSITION  CUSOR 

PRINTUSING 

G088,  “ " 

REM  PRINT  ERR  MSG 

♦CIO  PAUSE 

/005<R0*<4),R8*<9) ) 

REM  ERHUR  1 ONE 

GOSUB  ' 101 

<11,10,1,0) 

REM  ERASE  ERP.  MSG 

GOTO 

5064 

REM  CONT  READY  TEST 

PRINT 

HEX  < 030AOAOAOAOAOA  > 

REM  CLR  CONSOLE  DEV 

PRINTUSING 
REM  ** 

RLM  ** 

REM  ** 

G090,  " “ 

REM  PRINT  IN  STRUCT N 

OUTPUT  IMAGE  FORMATS 

X * 

•*  * * LINEPH  INTER  IS 

NOT  READY  * * 

* * it 

X * * * * FOLLOW  INSTRUCTIONS  ON 
RLM  ** 

OUTPUT  DEVICE 

* * * * # 

RETURN 

REM  EXIT 

i k 

A p 


MHHMM 


nmbhHMMI 


AUTHOR  System:  F»»-.,sase- 


ATH3LST3  — 


S 


5096  REM  ** 
5098  REM  ** 
5100  REM  ** 
5102  REM  *+ 
5104  REM  ** 
5106  REM  ** 
5108  REM  ** 
5110  REM  ** 
5112  REM  ** 
5114  REM  ** 
5116  REM 


Subroutine 
Abstract  > 

This  routine  will  display  the  alignment  instructions 
on  the  lineprinter. 

Variables  > 

X7  > temp  text  bufr  indx  ! X9*< ) > temp  text  bufr 
R0$< ) > char  input  bufr  ! 


1 2 9 


5118 

DEFFN  ' 

129 

REM 

ENTRY 

5120 

GOSUB  5248 

REM 

INIT  TEXT  BUFFR 

5122 

GOSUB  ' 

126 

< 34,12) 

REM 

VERT  TAB 

5124 

GOSUB  ' 

126 

( 46,30) 

REM 

LEFT  ARROWS 

5126 

GOSUB  ' 

126 

(361,  5) 

REM 

HQRZ  TAB 

5128 

GOSUB  ' 

126 

(136,30) 

REM 

TEXT 

5130 

GOSUB  ' 

126 

( 91,30) 

REM 

RIGHT  ARROWS 

5132 

GOSUB  ' 

126 

( 91,35) 

REM 

RIGHT  ARROWS 

5134 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

5136 

REM  ** 

5138 

GOSUB  ' 

126 

(181,30) 

REM 

LEFT  MARGIN 

5140 

GOSUB  ' 

126 

(226,40) 

REM 

SIZE 

5142 

GOSUB  ' 

126 

(361,35) 

REM 

HORZ  TAB 

5144 

GOSUB  ' 

126 

(316,25) 

REM 

RIGHT  MARGIN 

5146 

GOSUB  7 

126 

( 44,  2) 

REM 

CRLF 

5148 

REM  ** 

5150 

GOSUB  * 

126 

(361,0) 

REM 

HORZ  TAB 

5152 

GOSUB  ' 

126 

(181,30) 

REM 

LEFT  MARGIN 

5154 

GOSUB  ' 

126 

(271,20) 

REM 

SIZE 

5156 

GOSUB  ' 

126 

(316,25) 

REM 

RIGHT  MARGIN 

5158 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

5160 

REM  ** 

5162 

REM  ** 

5164 

GOSUB  5284 

REM 

INIT  TEXT  BUFFR 

5166 

GOSUB  ' 

126 

<285, 10) 

REM 

HORZ  TAB 

5168 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

5170 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

5172 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF. — — 

5174 

REM  ** 

. — ■ 

5176 

FOR 

X7  = 2 TO  9 

REM 

BEG  LINE  LOOP 

5178 

GOSUB  ' 

126 

(285,30) 

REM 

HORZ  TAB 

5180 

GOSUB  ' 

126 

( ( <X7-1)*45)+1,LEN(X9*(X7> > > 

REM 

TEXT 

5182 

GOSUB  ' 

126 

( 44,  2) 

REM 

CRLF 

5184 

NEXT 

X7 

REM 

CONT  LINE  LOUP 

5186 

REM  ** 

5188 

GOSUB  ' 

126 

(285, 10) 

REM 

HORZ  TAB 

5190 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

5192 

GOSUB  ' 

126 

(406,40) 

REM 

HORZ  LINE 

5194 

GOSUB  ' 

126 

< 44,  2) 

REM 

CRLF 

725 


5196 

REM  ** 

5198 

REM  ** 

5200 

GOSUB  5324 

5202 

FOR 

X7  = 2 TU  8 

5204 

GOSUB  ' 126 

(361,30) 

5206 

GOSUB  ' 126 

( ( (X7-1)*45)+1,LEN(X9*(X7> 

) ) 

5208 

GOSUB  ' 126 

( 44,  2) 

5210 

NEXT 

X7 

5212 

REM  ** 

5214 

REM  ** 

5216 

«GIO  TOP 

#S  (400C  ,R8*(9>) 

5218 

KEYIN 

R0*( 1 ) , 5228,  5218 

5220 

IF 

R0*(1)  = HEX (81) 

THEN 

5218 

5222 

*G10  TONE 

/005  (R8*(4),R8*(9) ) 

5224 

GOTO 

5218 

5226 

REM  *+ 

5228 

IF 

R0*<1)  = HEX (84) 

THEN 

5120 

5230 

IF 

RO*(l)  = HEX (81 ) 

THEN 

5218 

5232 

RETURN 

REM  INIT  TEXT  BUFFR  3 
REM  BEGIN  LINE  LOOP 
REM  HORZ  TAB 
REM  TEXT 
REM  CRLF 

REM  CONT  LINE  LOOP 


REM  ISSUE  FORM  FEED 
REM  RESPONCE  WAIT 
REM  NO  TONE 
REM  PAUSE  TONE 
REM  CONTINUE  WAIT 

REM  REPRINT  PAGE 
REM  SHUT  OFF  TONE 
REM  EXIT 


AU'I  HCIH  Sys- -terns  Phase 


atm: 


3 — .t 


b234  REM  ** 

S23G  HEM  *+ 

b240  HEM  **  Abstract  > 

S242  HEM  **  This  routine  will  load  -text  buffer  with  -text  group  1 
b24'i  HEM  ** 

b248  IN1T  (20)  X9*<>  I REM  LOAD  IE) 

b250  1N11  <0A)  X9*<01> 

b2b2  1N1T  (OO)  STR<X9S(1>,4S, 1) 

S2S4  IN1T  <"<">  X9«<02) 

b2S6  1NIT  (">">  X9*(03> 

X9*<04)  = "Align 
X9*(0B>  = "<««■ 

X9*(0f>)  = *14  7/1 
X9*<07>  = "08  1/i 
X9*<08>  = "Right 


b2SS 

S2C-.0 

b2C-2 

S264 

B26& 

b2C>8  RETURN 


1 2 9.  1 


: REM  LOAD  TEXT  BUFH  1 


"Align  to  Sixth  Paper  Hole" 

"<<<<< Left  Margin" 

*14  7/fc  X 11" 

"08  1/2  X 11“ 

"Right  Margin  >>>>>" 

: REM  EXIT 


727 


AUIHUK  System 


P h^>  se  3 


ATH 3LS1 3 —± 


1 


s - 


ba7o 
b a/a 


REM 

HEM 


S374  HEM  ** 
have  HEM  ** 
b378  HEM  ** 
b£80  HEM  ** 
bESa  HEM 
ba84  I NIT 


Subroutine 
Abstract  > 

This  routine  will  load  text  buffer  with  text  group  5 


1 a 9. a 


base 

bass 

baso 

basa 

bas4 

base 

bass 

b300 

ssoa 

b304 

b3oe 

b308 


<ao> 

IN1T  (OA) 
1N1T  (OO) 
1N1T  <at)) 


X9«<  ) 

X9*<1 > 

STR<X9*<l),4b,  1) 
X9»(10> 


REM  LOAD  TEXT  BUFR  a 


X9*<3) 
X9*<3> 
X9«<4) 
X9*  < b ) 
X9*<fc> 
X9*<  7 ) 
X9*<8> 
X9*<9> 


RETURN 


This  page  should  now  be  aligned* 
to  the  desired  position...* 

To  Continue  to  print  THIS  PAGE* 
TOUCH  the  'CONTINUE'  Key.* 

To  Begin  Listing  TUUCH  the* 
'RUN'  Key.* 

This  page  should  appear  on* 
an  UPWARD  facing  Page." 

: REM  EXIT 


AUTHOR  Sy&t em 


P ha  5 b 3 


ATH3LSI 3 


# MAP 


( 


4852  - 4852 

4854  - 4852 

4864  - 4858 

4870  - 4864 

4876  - 4870 

48-34  - 4838 

4896  - 4840 

4898  - 4848 

4900  - 4844 

4-302  - 4850 

4906  - 4822  4884  4826  4828  4876  4878 

4952  - 4942 

4956.  - 4948  4952 

5008  - 5028 

5036  - 5018 

5038  - 5024 

5042  - 5008 

5064  - 5076 

5078  - 5066 

5088  - 5070 

5090  - 5080 

5120  - 5228 

5218  - 5218  5220  5224  5230 

5228  - 5218 

5248  - 5120 

5284  - 5164 

5324  - 5200 


AUTHOR 

Sy  b t E>m S 

R-h 

a51 

E-  3 

— 

ATM  31 ST 

3 

— V MAR 

02*  ( 

- 

4954 

R0*< 

- 

4852 

4858 

4864 

4870 

4938 

4954 

5218 

5220 

5228 

5230 

R2*< 

- 

4938 

4940 

R4 

- 

4938 

4-344 

4946 

RS 

- 

4938 

4944 

4946 

R6 

- 

4940 

4942 

4954 

R8*< 

- 

4980 

5006. 

5020 

5026. 

506.4 

5072 

5216 

5222 

W4* 

- 

4880 

5010 

we 

- 

4878 

4952 

5014 

we.* 

- 

4822 

4824 

4826 

4828 

4856 

4860 

4866 

4872 

4876 

5012 

X6 

- 

4944 

X7 

- 

4944 

5176 

5180 

5184 

5202 

5206. 

5210 

X8 

- 

4938 

4946 

4978 

4980 

X9 

- 

4938 

4946 

4978 

4980 

X9*( 

- 

4980 

5180 

5206 

5248 

5250 

5252 

5254 

5256 

5258 

5260 

5262' 

526.4 

5266  5284 

5286 

5288 

5290 

5292 

52-34 

52-36 

5298 

5300 

5302 

5304 

5306 

5324 

5326.  5328 

5330 

5332 

5334 

5336 

5338 

5340 

5342 

c 

731 


AUTHOR  System:  Phase  3 — ATH3LSI 3 — " MAP 

0000  DfcFFN'  0 

0001  DfcFFN'  1 

0002  DfcFFN'  2 

0003  DEFFN'  3 
????  DfcFFN'  101 

- 4834  4848  5016  5022  5068  50/4 
????  DfcFFN'  118 

- 4886 

4820  DfcFFN'  124 
4938  DfcFFN'  125 
4978  DfcFFN'  126 

- 5122  5124  5126  5128  5130  5132  5134  5138  5140  5142  5144  5146  5150  5152 
5154  5156  5158  5166  5168  5170  5172  5178  5180  5182  5188  5190  5192  5194 
5204  5206  5208 

5004  DfcFFN'  127 
5062  DfcFFN'  128 
5118  DfcFFN'  129 
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5.35.4  ATH3LST4 

This  part  of  the  'ATH3LSTP'  program  contains  subroutines 
190  and  191. 

The  remainder  of  this  section  presents  the  'ATH3LST4' 
program  listing  and  reference  maps. 
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AUTHOR 

5b00 

X*# 

Pro 

5S03 

REM 

SBO€. 

REM 

*•* 

S509 

REM 

•*-* 

5S12 

REM 

•*-* 

5515 

REM 

5518 

REM 

5521 

REM 

5524 

REM 

*•* 

5527 

REM 

5530 

REM 

5533 

REM 

5536 

REM 

553-3 

REM 

55A2 

REM 

-*•* 

55A5 

REM 

*•* 

55A8 

REM 

*•* 

5551 

REM 

■** 

555A 

REM 

5557 

REM 

5560 

REM 

** 

5563 

REM 

*■* 

5566 

REM 

5569 

REM 

*-* 

5572 

REM 

*•* 

5575 

REM 

*-* 

5578 

REM 

*•» 

5581 

REM 

558A 

REM 

5587 

REM 

*■» 

5590 

REM 

*■* 

5593 

REM 

5596 

REM 

5599 

REM 

5602 

REM 

*-* 

5605 

REM 

**■ 

5608 

REM 

**■ 

5611 

REM 

*•* 

561 A 

REM 

3 y e-  -t  em  : Ph-ase 


— rtTH3LBl A — 


3 O 


gram  > AUTHOR / 3 < ATH3L5T4)  Version  > 2.0  2200  1 /VP  780323 


Subroutine 
Abstract  > 

This  is  a general  nine  track  utility  package.  This 
Routine  will  perform  the  following  functions  > 


1 9 O 


l 

“ 

< 

BSP  > 

“ 

Backspace  one  file; 

2 

- 

< 

BSR  > 

Backspace  one  Record  (read  ready); 

3 

- 

< 

BSW  > 

Backspace  one  Record  (write  ready) 

A 

- 

< 

CLEAN> 

- 

Clean  local  area  on  tape; 

5 

- 

< 

FSP  > 

- 

Space  forward  one  file; 

6 

- 

< 

FSH  > 

Space  Forward  one  Record; 

7 

- 

< 

READ  > 

- 

Read  Record; 

8 

- 

<REREAD> 

- 

Backspace  and  Read  Record; 

9 

- 

<REW1ND> 

- 

Rewind  tape  to  Load  point; 

10 

- 

< 

WE CJf  > 

- 

Write  End  Of  File  mark; 

11 

- 

< 

WGAP  > 

- 

Write  Inter  Record  Gap; 

12 

< 

WRITE> 

- 

Write  Record. 

A scan  foi  I/O  errors  will  be  performed  according  to 
the  following  index  > 

1 - Data  Input/Uutput  errors  (7,12,8) 


2 - Position  errors 

3 - Control  Output  errors 
A - No  error  processing 

A error  index  is  returned  i 
Values  of  23  are  > O 

1 

2 

3 

4 

Variables  > 

Z1  > Function  index 
Z3  > return  error  index 
Zb  > suppress  error  mesg 
Zl<<)  > micro  cmnd  buffer 
W2*<)  > i/o  buffer 


<1,2, fa, €>,9, A) 

(10,11,3) 

variable  > 23 

Fatal  Error 
Tape  at  Load  Point 
Tape  is  Write  Disabled 
End  of  Tape  Sensed 
End  of  File  Sensed 


Z2  > error  index 
ZA  > transfer  buffer  size 
Z6  > device  table  indx 
Z2S< ) > error  mask  buffer 
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8617 

8620 

5623 

seas 

86.29 
863  2 
8638 
8638 
8641 
8644 
8647 
8650 
b&53 
8656 
8659 
8662 
H665 
8668 
bfc.71 
8674 
8677 
8680 
8683 
8686 
8689 
5692 
5695 
5698 
b701 
8704 
b707 


DEFFN 
DIM 
UEFFN 
DEFFN 
8EL.EC 
Zl* 
Zl$ 
Z1 * 
Zl* 
Zl* 
lit 
Zl* 
Zl* 
Zl* 
Zl* 
Zl* 
Zl* 
Zl* 

REM 

22* 

za* 

za$ 

za* 

za* 

REM  ** 
$GIO 
REM  *■* 

REM  ** 
REM  ** 
REM  ** 


' 190 


1 > 
2> 

3) 

4) 
b) 
6) 

7) 

8) 
9) 

i(  lO) 
i<  ll ) 
;( 18) 
;<  13) 


<Z1 , 28, Z3, 24, Zb, ZG) 

Zl*( 13) 10, Z2*( 12)1,23*40 
Z(Z)=256*VAL(STR(Z1*(Z),9, 1) )+FNY<Z) 
Y ( Y ) ~VAL (STR(Z1*(Y>, 10, 1 ) ) 

TAPE  0/B 

HEX  ( 6CF  344008607  > 

HEX ( &CF 1 44008607 ) 

HEX ( 6CF 044008607 ) 

HEX  ( 6CF744008607 ) 

HEX  < 6CF 444008607 ) 

HEX  < 6CF  PJ i 4008607 ) 

HEX  ( 6CI-B/i 400C 2858607 ) 

HEX (6CF84400C2228607 ) 

HEX  < 6CF 844008607  > 

HEX  < 6Cf- 944008607 ) 

HEX  < 6C; F64 4008607  ) 

HEX  < 6CF A4400A2068607 ) 

HEX < 1 122334 4 b 86600000000 ) 


1 ) 
3) 
b> 
7) 
9) 


HEX < 80) 
HEX ( 20 ) 
HEX (08) 
HEX ( 02 ) 
HEX (02) 


Z2*<  2) 
Z2*(  4) 
Z2*(  6) 
Z2*(  8) 
Z2*( 10) 


= HEX < 40) 
= HEX ( 10 ) 
= HEX (04) 
= HEX (04) 
= HEX (01) 


TAPE 


(Z1*(Z1),Z1$(13>)  Q2*( ><1,Z4> 

Z3  = O 

! I/U  ! POS  ! CTL  ! NULL 

i i i - i 


REM  ENTRY 

REM  DEFINE  WORK  8UFRS 
REM  DEFINE  FUNCTION 
REM  DEFINE  FUNCTION 
REM  SEL  TAPE  DEVICE 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 
REM  DEFINE  MICRO  CMND 

REM  DEFINE  ERR  MASKS 
REM  DEFINE  ERR  MASKS 
REM  DEFINE  ERR  MASKS 
REM  DEFINE  ERR  MASKS 
REM  DEFINE  ERR  MASKS 

REM  EXECUTE  FUNCTION 

REM  CLR  RETURN  FLAG 


8710 

8713 

8716 

ON  22 
REM  *•* 
REM  ** 

GOTO 

5719  , 5749  , 

5794  , 5764  : 

REM 

BRANCH 

8719 

GOSUB 

/ 

191 

(7,2) 

REM 

RCVRBL  DAT  ERR 

8722 

GOSUB 

/ 

191 

(8,3) 

REM 

TRANSMIT  DrtT  ERR 

8725 

COSUB 

/ 

191 

(8, 10) 

REM 

DAT  OVERFLOW  ERR 

8728 

8731 

GOSUB 
REM  ** 

/ 

191 

(9, 10) 

REM 

DAT  OVR/UNDR  FLOW 

8734 

GOSUB 

/ 

191 

(7,1) 

REM 

IHRCVRBL  DAT  ERR 

8737 

8740 

COSUB 
REM  ** 

/ 

191 

(7,4) 

REM 

WRITE  DISABLED 

8743 

GOSUB 

/ 

191 

(7,3) 

REM 

BEG  OF  TAPE 

8746 

GUSU8 

/ 

191 

(7,8) 

REM 

END  OF  TAPE 

8749 

GOSUB 

/ 

191 

(7,6) 

REM 

END  OF  FIL.E 

8782 

GOSUB 

/ 

191 

(7,7) 

REM 

DEV  NOT  READY 

8788 

8788 

8761 

8764 

GOSUB  ' 
IF 

REM  ** 
RETURN 

191 

(8,8) 

Z3  = 3 

THEN  5692  : 

REM 

REM 

REM 

MICRO  CMND  ERR 
REPHOCS  RECORD 

EXIT 

c 
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AUTt  tOR  Syst  e-m 


P h<3  SB  3 


ATH3L£JT4 


1-3  1 


5767  REM  ** 

5770  REM  ** 

5773  RLM  **  Subroutine  **********************■»*******•»*•»*■*■»**♦■»*****  19  1 
5776  REM  **  Abstract  > 

5779  REM  **  To  mask  the  GIO  register  buffer  with  error 

5782  REM  **  mask  buffer  and  display  error  messages  if  any. 

578b  REM  **  Variables  > 

5788  REM  **  Z5  > supress  non- fatal  msgs  * Z7  > buffer  register 

5791  REM  **  Z8  > error  index  to  check  ! 24  > transfer  bufr  size 

5794  REM  *-*  Z9  > characters  processed  ! Zl$()  > micro  cmnd  buffer 

5797  REM  **  Z2$(  ) > error  mask  buffer  ! Z3*  > non-fatal  err  msg 

5800  REM  **  Z3  > return  error  index  ! ZO  > multi  volume  flag 

5803  REM  ** 

SHOE  REM  *#***<HHHHHHHHHHHHHHHHHHHH»#**-»-»****-»********* 


5809 

DEFFN  ' 191 

(Z7,Z8> 

REM 

ENTRY 

5812 

IF 

13  <>  0 

THEN 

5956 

REM 

PR1V10US  ERR 

5815 

IF 

17  <>  9 

THEN 

5842 

REM 

NOT  COUNT  REG 

5818 

GOSUB  ' 191 

(7,6) 

REM 

EOF  TEST 

5821 

IF 

Z3  = 4 

THEN 

5956 

RLM 

EOF  RECORD 

5824 

GOSUB  ' 191 

(7,5) 

REM 

EOT  TEST 

5827 

IF 

Z3  = 3 

THEN 

5956 

REM 

EOT  ERROR 

5830 

Z9  = FNZ (13) 

REM 

CMPUT  TRANSFR  CNT 

5833 

IF 

Z4  <>  Z9 

TFEN 

5881 

REM 

OVR/UNOR  FLOW  ERR 

5836 

GOTO 

5956. 

REM 

BRANCH  TO  EXIT 

5839 

REM  ** 

5842 

IF 

Z8  <>  5 

TFEN 

5854  : REM 

NOT  EOT  TEST 

5845 

IF 

Z1  <>  9 

TFEN 

5854  : REM 

NOT  REWIND 

5848 

IF 

ZO  = '39 

THEN 

5869  : REM 

PREVIOUS  EOT  ERR 

5851 

REM  ** 

5854 

AND 

(Z2*(Z8),STR(Zt*(13),Z7,  1) ) 

: REM 

MASK  REGISTER 

5857 

ir 

Z2*(Z8)  = HEX (00)  T)EN 

5956 

REM 

NO  ERROR 

5860 

REM  ** 

5863 

REM  ** 

! 01  F ! 02  F 

03  I ! 04  I ! 05  I 

5866 

REM  ** 

1 1 

5869  ON  Z8  GOTO  5881  , 5881  , 5914  , 5917  , 5920  , 

5926  , 5881  , 5881  , 5881  , 5881  : REM  BRANCH 

5872  RLM  **  ' ! ! ! ! ! 

5875  REM  **  ! 06  I ! 07  F ! 08  F ! O'!  F ! 10  F ! 

5878  REM  ** 

5881  PRINT  HEX (01070C0C0C ) ; : REM  POSITION  CUSOR 

5884  PRINT  “Touch  'CONTINUE'  ' RETURN ' to  Attempt  Recovery"; 

5887  REM  ** 

5890  REM  **  ! 01  F ! 02  F ! 03  I ! 04  I ! 05  I ! 

5893  REM  **  1 • ! ! 1 1 

5896  ON  Z8  GOTO  5908  , 5911  , 5914  , 5917  , 5923  , 

5926  , 5929  , 5932  , 5935  , 5938  : REM  BRANCH 

5899  REM  **  ! ! ! « • 1 

5902  RLM  **  ! 06  I ! 07  F ! OB  F 1 09  F ! 10  F ! 


5‘308 

STOP 

"IRRECOVERABLE  DATA  ERROR"  : 

Z=3 

GOTO 

5956 

5911 

STOP 

"RECOVERABLE  DATA  ERROR"  ; 

Z=3 

GOTO 

5956 

591 A 

Z3  = 1 

I Z3*  = "BEGININC  OF  TAPE" 

GOTO 

5944 

5917 

Z3  = 2 

: Z3*  = “TAPE  WRITE  DISABLED" 

GOTO 

5944 

5920 

Z 3=3 

: Z3*  = "END  OF  TAPE"  : ZO  = 99 

GOTO 

5881 

5953 

STOP 

"MOUNT  FIRST/NEXT  TAPE  VOLUME.. 

M 

GOTO 

5944 

5950 

Z3  = 4 

! Z3*  = "END  OF  FILE" 

GOTO 

5944 

5929 

STOP 

"TAPE  UNIT  NOT  READY"  ; 

Z = 3 

GOTO 

5956 

5932 

STOP 

"INVALID  MICRO  COMMAND  SEQUENCE 

M 

GOTO 

5956 

5935 

STOP 

"DATA  READ  ERROR"  : 

Z=3 

GOTO 

5956 

5938 

STOP 

"DATA  OVER /UNDER  FLOW  ERROR"  : 

Z=3 

GOTO 

5956 

5'341 

REM  ** 

5-344 

IF 

Z5  = 0 THEN 

5956 

REM  SUPPRESS  MESG 

5947 

PRINT 

HEX(01070C0C0C); 

REM  POSITION  CUSOR 

5950 

PRINT 

STRCZ3*, 1,40) ; 

REM  PRINT  MSG 

5953 

RtM  ** 

5956 

RtTURN 

a 

REM  EXIT 

737 


AUTHUIV  S/stcm:  Pha&e  3 — ATH3LSTA  — # 

5695  - 5750 

5719  - 5710 

5734  - 5710 

5743  - 5710 

5764  - 5710 

5045  - 5015 

5054  - 5045  5845 

5869  - 5848 

5801  - 5833  5069  5350 

5908  - 5096. 

5911  - 5896 

5914  - 5869  5896 

5917  - 5869  58-96. 

5950  - 5869 

5953  - 50-96 

5956.  - 5869  50-96 

5959  - 5896. 

5935  - 5896 

5935  - 58-96. 

5938  - 58-96 

5944  - 5914  5917  5953  5956 

5956.  - 5815  5881  5887  5836  5857  5908  5911  595-9  5935  5935  5938  5944 


MA»-' 


738 


* 


I I 

AUTHOR  S/5t  e>m  = Phase  3 — ATH3LSTA  — V MAP 

03* ( - 5698 

Y - 5636 


2 

- 

5633 

5908 

591 1 

5939 

5935 

5938 

ZO 

- 

5848 

5930 

Z1 

- 

5617 

5693 

5845 

Zl*< 

- 

5630 

5€3!3 

5636 

5633 

5635 

5638 

5641 

5644 

5647 

5650  5653  5656  5659  5665 

5665 

5668 

5693 

5854 

za 

• ~ 

5617 

5710 

za*< 

- 

5630 

5674 

5677 

5680 

5683 

5686 

5854 

5857 

Z3 

- 

5617 

5€-98 

5758 

5818 

5831 

5837 

5914 

5917 

5930 

5936 

13% 

- 

5630 

5914 

5917 

5930 

5936 

5950 

Z4 

- 

5617 

5693 

5833 

Z5 

- 

5617 

5944 

Z6 

- 

5617 

Z7 

- 

5809 

5815 

5854 

Z8 

- 

5809 

5843 

5854 

5857 

5869 

58*36 

Z9 

- 

5830 

5833 

ATH3LST4 


MAP 


I 


r 


AUTHOR  Sy  E-teml  P ha  s- 


0000  DtFFN' 

0001  DtFFN' 

0002  DtFFN' 

0003  DtFFN ' 
5617  DtFFN' 
5809  DtFFN' 


0 

1 

a 

3 

190 

191 


- 5719  5722  5725  5728  5734  5737  5743  5746  5749  5752  5755  5818  5824 


f } 

w 


740 
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5.35.5  ATH3LST5 


This  part  of  the  'ATH3LSTP'  program  contains  subroutines 
201  to  211. 

The  remainder  of  this  section  presents  the  'ATH3LST5' 
program  listing  and  reference  maps. 
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AUTHOR  System:  Phase 


— ATH3LSI 5 —SO 


6000 

6004 

6008 

6012 

6016 

6020 

6024 

6028 

6032 


Z#Tt  Program  > AUTHCJR/3  (ATH3LST5)  Version  > 2.0  2200  1/VP 


RfcM 

RtM 

RtM 

RtM 

REM 

RtM 

RtM 

RtM 


Subroutine 
Abstract  > 

To  select  the  output 
will  be  output. 
Variables  > 


780323 

*♦201 


device  onto  which  the  data  base 


W6  > output  device  indx 


R0*()  > input  register 


6036 

DEFFN  ' 201 

<W6) 

: REM 

ENTRY 

6040 

IF 

W6  = 7 

THEN 

6180  : REM 

RETRUN  FROM  EDIT 

6044 

IF 

W6  = 8 

THEN 

6180  : REM 

RETRUN  FROM  EDIT 

6048 

PRINT 

HEX (03) 

: REM 

CLR  CRT  SCREEN 

6052 

CUSUB  ' 101 

(10,1,0,0) 

REM 

POSITION  CUSUR 

6056 

SELECT 

PRINT  005 

: REM 

SEL  OUTPUT  MODE 

6060 

PRINTUS1NC 

6160,  " ■ 

: REM 

PRINT  MENU 

6064 

PRINTUS1NC 

6164,  * " 

: REM 

PRINT  MENU 

6068 

PRINT USING 

6160,  • " 

: RtM 

PRINT  MENU 

6072 

PRINTUSING 

6172,  ■ " 

: REM 

PRINT  MENU 

6076 

SELECT 

PRINT  405 

: REM 

StL  OUTPUT  MODE 

6080 

GUSUB  ' 101 

<5,  1,0,0) 

: REM 

POSITION  CUSOH 

6084 

6088 

PRINTUSING 

6176,  * ■; 

STR(R8*<9),5, 1)  = * • 

: REM 
: REM 

PH I NT  PROMPT 

CLR  REGISTER 

6092 

KtYIN 

RO*(l>,  6108,  6108 

: REM 

INPUT  RESPONCE 

6096 

SGIU  WAIT 

/005(R8«(1),R8*(9>> 

: RtM 

INPUT  WAIT 

6100 

6104 

GOTO 

RtM  *-* 

6092 

: REM 

CONT  INPUT  WAIT 

6108 

IP 

R0*( 1 ) > PCX (33) 

THEN 

6116  : REM 

INVALID  INPUT 

6112 

IP 

R0*( 1 ) > HEX (30) 

THEN 

6140  : REM 

VALID  INPUT 

6116 

COSUB  ' lOl 

(5,50,0,0) 

: REM 

PDS1T1N  CUSUR 

6120 

PRINT 

" RE-ENTER  * 

: REM 

PRINT  ERR  MSG 

6124 

*GIO  TONE 

/005(R8*(4),R8*(9) ) 

: RtM 

PAUSE  TONE 

6128 

COSUB  ' 101 

(5,50, 1,0) 

: REM 

ERASE  ERR  MSG 

6132 

6136 

GOTO 

RtM  *-* 

6092 

: REM 

HL- ENTER 

6140 

CONVERT 

RO*(l)  10  W6 

: REM 

STOR  DEVICE  1NDX 

6144 

6148 

6152 

6156 

6160 

6164 

6168 

PRINT  W6 

HtM  ** 

HtM  ** 

RtM  ** 

Z Output  Selection  # 1 - CRT 

Z # 2 - TTY 

Z # 3 - LP1 

: RtM  DISPLAY  VALUE 

OUTPUT  IMAGE  FORMATS 

<005> 

<OU> 

<01  S> 

6172 

Z 

# 1 - EDIT 

MOOt 

<005> 

6176 

6180 

Z Enter  Option  From  Output  Selection 
RETURN 

Menu  > 

# 

: REM 

EXIT 

C 


742 


0 


■*/ 


AUTHOR 


Ph< 


— ATH3LST5  — 


a o 


6184 

6188 

6192 

6196 

6200 

6204 

6208 

6212 

6216 

6220 

6224 

6228 

6232 

6236 

6240 

6244 

6248 

6262 

6256 

6260 

6264 

6268 

6272 

6276 

6280 

6284 

6288 

6292 

6296 

6300 

6304 

6308 

6312 

6316 

6320 

6324 

6328 

6332 

6336 

6340 

6344 

6348 

6352 

6356 

6360 

6364 

6368 

6372 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFFN 
DIM 
IF 
IF 


Subroutine 
Abstract  > 

To  initialize  text  and  index  buffers  before 
begining  list  processing. 

Variables  > 

D9  > scratch  addrs  regstr 
D2  > sub-sctr  index 
W2*< ) > output  page  buffer 
H2*()  > graphic  i/o  buffer 
W6  > output  device  index 


2 0 2 


D1  > current  indx  sctr 
D6  > current  output  disk 
Hl*< > > graphic  index  table 
Gl*< ) > index  sctr  i/o  buf r 


202 


8 

1) 


Hl*<  30) 
W6  = 5 
W6  = 
Hl*< 
Hl*<  2) 
Hl*<  3) 
HI* ( 4) 
Hl*<  5) 
HI* ( 6) 
Hl*<  7) 
HI* ( 8) 
Hl*(  9) 
Hl*( 10) 
Hl*< 11) 
Hl*< 12) 
Hl*( 13) 
Hl*( 14) 
Hl*< 15) 
Hl*( 16) 
Hl*( 17) 
Hl*( 18) 
Hl*( 19) 
Hl*<20> 
Hl*(21 ) 
Hl*<  22 ) 
HI* ( 23 ) 
Hl*<24) 
Hl*<25) 
Hl*<26) 
Hl*(27) 
Hl*(28> 
Hl*(29) 
Hl*<  30) 


1 1 , H2*< 11)1 

THEN  6424 

THEN  6528 

=HEX  < 041 3222E3A080B0808035F ) 
=HEX < 031 42 32F 380D0B0808035F ) 
“HEX < 0312232F380B000808035F ) 
=HEX (031221 2F38080B0A08035F ) 
=HEX (0312212D38080B080A035F) 
=HEX ( 3C03380 1090 3070000 5F21 ) 
=HEX ( 3D033C0 1090 3070000 5F21 ) 
=HEX ( 3D033C0 1090 3070000 5F21 ) 
=HEX ( 3D033C0109030700005F21 ) 
=HEX < 3003300 1090 3070000 5F21 ) 
=HEX (030F121E01010101000021 ) 
=HEX ( 020F1 31F02020101000021 ) 
“HEX (020E111E0 101 0202000021 ) 
=HEX ( 020E1 1 IDO 10 10101000021 ) 
=HEX  < 020E 1 1 1 DO 1 0 1 0 10 1 00002 1 > 
=HEX(212A2D 3601010101000021 ) 
=HEX (222B2E3701010101000021 ) 
“HEX ( 222B2E3701010101000021 ) 
“HEX < 202 A2E 3702020 1 0 1 00002 1 ) 
“HEX < 20292C 3601010202000021 ) 
“HEX  < 183B380101070101095FA1 ) 
=HEX< 183C3D01010301010A5FA1 ) 
-HEX ( 183C3D0 101030 1010A5FA1 ) 
=HEX ( 183C 30010 1030 1010A5FA1 ) 
“HEX ( 183C3D01010301010A5FA1 ) 
=HEX< 101F2B 37020202020 50020) 
“HEX ( 1 1 202C 38020202020 50020 ) 
“HEX ( 0F202C 3802020202050020 ) 
“HEX ( OF 1 E2C  38020202020 50O2D ) 
“HEX  < OF 1 E2A380202020205002D ) 


REM  ENTRY 

REM  DEFINE  WORK  BUFRS 
REM  PRINT  INSTRUCTNS 
REM  RETURN  FROM  EDIT 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  COOE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  COOE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  COOE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  COOE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  CODE 
REM  DEFN  GRAPHIC  COOE 
REM  DEFN  GRAPHIC  CODE 


O 


743 


6376 

IF 

W6  = 7 THEN 

6528 

6380 

INIT (20) 

02*  ( > 

6384 

INIT (20) 

Ql*<  ) 

6388 

INIT (00) 

H2*(  ) 

6392 

6396 

6400 

DATA  LOAD 

D1  = 0 

D2  = 128 

BA  T #3,  (0,09)01*0 

6404 

ROTATE 

(STR(Q1*(25) , 1 , 1 ) ,4) 

6408 

6412 

DATA  LOAD 

D6  = VAL(STR(Q1*(25), 1, 1) ) 

BA  T #3,  ( 1 , D9)Q1*( ) 

6416 

6420 

REM  ** 

IF 

S 

A 

V 

H 

6528 

6424 

SELECT 

PRINT  005 

6428 

PRINT 

HEX (03) 

6432 

RESTORE 

1 

6436 

FOR 

W9  = 1 TO  13 

6440 

READ 

R9*( 1 ) 

6444 

PRINTUSING 

6468,  R9*( 1 ) 

6448 

NEXT 

W9 

6452 

6456 

6460 

6464 

6468 

REM  ** 

REM  ** 

REM  *■* 

W6  * 1 

1UUUUI 

: REM  RETURN  FROM  EDIT 
: REM  CLR  BUFFR 
: REM  CLR  BUFFR 
: REM  CLR  BUFFR 
: REM  INIT  SCTR  ADRS 
: REM  INIT  SUB-SCTR 
: REM  LOAD  ZERO  SCTR 
: REM  CONV  UPR  BITS 
: REM  STOR  VOL  ID 
: REM  LOAD  INOX  SCTR 

: REM  NOT  CRT  OUTPUT 
: REM  SEL  OUTPUT  MODE 
: REM  CLR  CRT  SCREEN 
: REM  RESET  DATA  INOX 
: REM  BEG  INST  LOOP 
: REM  READ  INST  LINE 
! REM  PRINT  INST  LINE 
: REM  FETCH  NEXT  LINE 
: REM  RESET  DEV  INDX 

OUTPUT  IMAGE  FORMAT 


6472  DATA  "Instructions  for  Referenceing  pages:* 

6476  DATA  " - After  each  page  is  displayed  a prompt  will  appear  in* 
6480  DATA  * the  lower  left  corner  of  screen." 

6484  DATA  * - Once  you  have  entered  the  next  page  number  touch" 

6488  DATA  " the  'RETURN'  key." 


6492  DATA  " - To  perform  special  functions  you  may  enter:" 

6496  DATA  " START  - Begin  displaying  Learning  Module." 

6500  DATA  " NEXT  - Go  to  next  sequintai  page." 

6504  DATA  " STOP  - Stop  listing." 

6508  DATA  * PRINT  - Print  current  page  on  another  device." 

6512  DATA  " LIST  - List  the  entire  learning  module." 

6516  DATA  " EDIT  - Edit  current  page." 

6520  DATA  " HELP  - This  text." 

6524  REM  ** 

6528  RETURN  / : REM  EXIT 


AUTHOR 


y & -t  em 


P ha se  3 


ATH 3LST 5 


O 3 


c 


6535 

6536 
6540 
6544 
6548 

6555 

6556 
6560 
6564 
6568 

6575 

6576 
6580 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *+ 
REM  ♦* 
REM  ** 
REM  ** 
REM  ** 
REM 


Subroutine 
Abstract  > 

To  load  first/next  page  into 
output  wait  for  next  address 
Option  - from  CRT  mode  alow 
be  output  to  anothe 

Variables  > 

W6  > output  device  index  ! 
D7*  > input  pag  adres  ! 


5 0 3 


text  buffer.  If  CRT 

current  buffer  to 
r device. 

W3  > temp  change  of  dev  fig 


6584 

DEFFN  ' 503 

REM 

ENTRY 

6588 

IF 

W6  = 7 

THEN 

6784 

REM 

RETURN  FORM  EDIT 

6595 

IF 

W6  = 8 

THEN 

6695 

REM 

RETURN  FORM  EDIT 

6596 

GOSUB  ' 505 

(W6,W3,D7*> 

REM 

FETCH  NXT  ADRS 

6600 

IF 

D7*  <>  "STOP" 

THEN 

6655 

REM 

NOT  END  OF  FILE 

6604 

IF 

W4*  <>  "TAPE" 

THEN 

6650 

REM 

NO  SPCL  SCANS 

6608 

SELECT  #5 

515 

REM 

SEL  LPT  DEV 

6615 

SELECT  TAPE 

07B 

REM 

SEL  TAPE  DEV 

6616 

GOSUB  ' 108 

(4) 

REM 

PRINT  OVRLAYS 

6650 

PRINT 

HEX (03) 

REM 

CLR  CRT  SCREEN 

6654 

SELECT 

PRINT  005 

REM 

SEL  OUTPUT  MODE 

6658 

PRINT USING 

6855,  " " 

REM 

PRINT  HEADING 

6635 

PRINTUSING 

6856,  " “ 

REM 

PRINT  HEADING 

6636 

PRINTUSING 

6860,  “ * 

REM 

PRINT  HEADING 

6640 

GOSUB  ' 101 

(15,1,0,0) 

REM 

POSITION  CUSOR 

6644 

END 

REM 

END  EXECUTION 

6648 

REM  ** 

6655 

IF 

D7*  <>  "PRIN" 

THEN 

6750 

REM 

NOT  LIST  CMND 

6656 

GOSUB  ' 101 

(14,1,3,30) 

REM 

POSITION  CUSOR 

6660 

SELECT 

PRINT  005 

REM 

SEL  OUTPUT  MODE 

6664 

PRINTUSING 

6864,  u “ 

REM 

PRINT  MENU 

6668 

PRINTUSING 

6868,  * “ 

REM 

PRINT  MENY 

6675 

PRINTUSING 

6875,  “ 

REM 

PRINT  PROMPT 

6676 

SELECT 

PRINT  405 

REM 

SEL  OUTPUT  MODE 

6680 

W6  = 5 

REM 

SET  DEFAULT 

6684 

KEY  IN 

R0*<1),  6688,  6688 

: GOTO 

£•684 

REM 

RESPONCE  WAIT 

6688 

IF 

R0*(1)  <>  "3" 

THEN 

6696 

REM 

SET  FLAG 

6695 

W6  * 3 

REM 

SET  DEV  INDX 

66-36 

W3  = 99 

REM 

SET  TMP  DEV  FLG 

6700 

GOSUB  ' 101 

(16,1,1,30) 

REM 

POSITION  CUSUR 

6704 

PRINT 

"System  Working..." 

REM 

PRINT  SYS  WAIT 

6708 

07*  = Q1*(D5*1> 

REM 

SET  PAG  REFRNCE 

6715 

GOTO 

6836 

REM 

LOAD  TEXT  BUFR 

6716 

REM  ** 

6750 

IF 

D7*  <>  “ERRO" 

THEN 

6748 

: REM 

NO  ERR  DETCTED 

6754 

GOSUB  ' 101 

(15,9,0,0) 

: REM 

POSITION  CUSOR 

6758 

PRINT 

"RE-ENTER" 

: REM 

PRINT  ERR  MSG 

6735 

♦G 10  TONE 

/005 ( R8* ( 4 ) , R8* ( 9 ) ) 

: REM 

PAUSE  TONE 

6736 

GOSUB  ' 101 

(15,9,1,10) 

: REM 

ERASE  ERR  MSG 

6740 

GOTO 

6596 

: REM 

REENTER  ADRS 

o 


745 


)! 


6744 

REM  ** 

6748 

IF 

D7*  <>  "HELP" 

THEN 

6768 

5 

REM 

NOT  HELP  CMND 

6755 

W6  = 5 

■ 

a 

REM 

SET  FLAG 

6756 

GOSUB  ' 202 

■ 

REM 

DISPLAY  INST 

6760 

GOTO 

6596 

: 

REM 

RE-ENTER  ADRS 

6764 

REM  ** 

6768 

IF 

D7*  <>  •EDIT* 

THEN 

6800 

a 

REM 

NOT  EDIT  CMND 

6772 

W6  = 7 

i 

REM 

SET  RETURN  INDX 

6776 

LOAD  DC  T 

#1,  “ ATH3EDTP “ 1500,9999 

6780 

REM  ** 

6784 

W6  = 1 

REM 

RESET  DEV  INDX 

6788 

D7*  » Q1*<D2+1> 

m 

REM 

SET  PAG  REFRENCE 

6792 

GOTO 

6836 

m 

m 

REM 

LOAD  TEXT  8UFFR 

6796 

REM  ** 

6800 

IF 

D7*  <>  -LIST* 

THEN 

6836 

m 

REM 

NOT  LIST  CMND 

6804 

W6  = 0 

REM 

RESET  DEV  INDX 

6808 

W2*  = “ ■ : W3*  = “ 

N 

REM 

CLR  DISPLAY  FLGS 

6812 

W4*  = “ ■ : W5*  = ■ 

M 

REM 

CLR  DISPLAY  FLGS 

6816 

W6*  = “ * 

REM 

CLR  DISPLAY  FLGS 

6820 

GOSUB  ' 201 

<W6) 

REM 

SEL  OUTPUT  DEV 

6824 

GOSUB  ' 202 

REM 

INITIALIZE 

6828 

GOTO 

6584 

REM 

LOAD  FIRST  PAGE 

6832 

REM  ** 

6836 

GOSUB  ' 207 

<D7*> 

REM 

LOAD  TEXT  BUFFER 

6840 

REM  ** 

6844 

REM  ** 

OUTPUT  IMAGE  FORMAT 

6848 

REM  ** 

6852 

X AUTHOR; 

An  Automatic  Authoring  System  # 

6856 

X Phase  III 

Construction  Processing 

# 

6860 

X L I S T 

I 

NG  COMPLETED 

« 

6864 

X Menu  « 

2 

- TTY  <01 1>, 

6868 

X # 

3 

- LPT  <01 5> 

6872 

X Enter  Temp  Device  > # 

6876 

RETURN 

m 

a 

REM 

EXIT 

4* 


AU I HOR  System:  Phase 


— ATH3LS  J b 


4 


6B80 
6884 
6 BBS 

6835 

6836 
€>300 
630') 
6-308 

6315 

6316 
6350 
6354 
6358 


RLM 

RLM 

REM 

RLM 

RLM 

RLM 

RLM 

RLM 

RLM 

RLM 

RLM 

RLM 

RLM 


*■* 

*■* 


Subroutine 
Abstract  > 

To  scan  buffer  for  graphic  keyword. 
If  found  process  graphic  function. 
Variables  > 

TO  > linear  key  position 
TB  > row  indx  of  graphic 


5 0 4 


T1  > graphic  code  indx 


WB*< ) > output  poge  buf r 
R0<<)  > input  register 


R5*()  > return  srch  bufr 
R5<< ) > single  char  storage 
D4<  > search  id 


6335 

DLFFN  7 504 

REM 

ENTRY 

6336. 

If 

W6  * 4 

THEN 

6336. 

RLM 

END  LP1  TAP  P1L 

6340 

IF 

W6  * 1 

TPIEN 

6336 

RLM 

CRI  OUTPUT  F ] L 

6344 

D4*  = " : dia“ 

REM 

SET  SRCH  IU 

6348 

MAT  SLARCH 

Q5S ( ) , = D4<  TU  R5*( ) 

REM 

SRCH  POR  KEY 

6355 

IP 

RS*<1>  = HEX(OOOO) 

THEN 

6336 

REM 

NO  KEYWORDS 

6356 

TO  = PNR<VAL<RB<< 1 ) ) ) 

RLM 

CMPUT  POSH  ION 

6360 

MAT  COPY 

Q5<<  XTO+4,  1>  10  R0*<><1, 

1> 

RLM 

FETCH  GRPHC  CODE 

6364 

MAT  COPY 

R5<< )<1,1>  TO  GS*<KT0,5> 

REM 

CLR  KEYWORD 

6368 

CONVERT 

RO*< 1 ) TO  T1 

RLM 

CONV  GRPHC  CODE 

6375 

T1  = T1  + 1 

REM 

I NCR  GRPHC  INDX 

6376 

TB  = INT< <TO-l )/64)  + 1 

REM 

CMPUT  ROW  IhOX 

63B0 

IP 

T1  > 5 

THEN 

6336. 

RLM 

INVALID  KEY 

6384 

IP 

T1  < 1 

THEN 

6-336. 

RLM 

INVALID  KEY 

638B 

GOSUB  7 508 

<T5,T5+1,T1 ) 

RLM 

PROCLS  GRAPHIC 

6335 

RLM  ** 

6-336. 

RETURN 

RLM 

EXIT 

747 


/%!_!  I PHCJF-Y:  Sy  s.-tem:  Phase 


ATH3L.S1  S — 


7000 
7004 
7008 
7012 
7016 
7020 
7024 
7028 
7032 
7036 
7040 
7044 
7048 
7052 
7056 
7060 
7064 

7068  GOT 0 
7072  REM  +* 
7076  IF 
7080 

7084  IF 
7088 


REM  ** 
REM  ** 
REM  ** 
REM  *•* 
REM  ** 
REM  ++ 
REM  *•» 
REM  ** 
REM  +* 
REM  ** 
REM  ** 
REM 
DEFFN 
IF 


Subroutine 
Abstract  > 

To  compute  the  next  frame  address.  If  CRT  output 
input  frame  address. 

Variables  > 


2 0 5 


W6  > output  device  index 
W3  > temp  dev  change  flag 
D1  > index  sctr  address 


205  (W6,W3,D7*> 

W3  <>  93 
W3  = 00 
W6  = 01 

D7*  = G1*(D2+1> 
7224 


70-32 

7096 

7100 

7104 


IF 

GOSUB 
REM  ** 

DATA  LOAD 


W6 

D2 

D2 

D1 

D1 


01 

02  + 
128 
D1  + 
17 


OOO 


7108 
7112  REM 
7116 


BA 

D2 


#3, 

1 


<D1,D9>  Ql*() 


D7*  - Q1*(D2+1> 


Ql$< ) > index  sctr  buffer 
07$  > frame  address  register 
02  > sub-sctr  index 


: REM  ENTRY 

THEN  7076  : REM  NOT  DEV  CHANCE 
: REM  RESET  FLAG 
: REM  RESET  DEVICE  IhCX 
: REM  SET  BEG  ADDRESS 
: REM  BRANCH  TO  EXIT 

THEN  71 36  : REM  INPUT  FRAME  ADRS 
: REM  I NCR  SUBSCTR  INDX 
THEN  7116  : REM  W1THN  LIMITS 

: REM  I NCR  SCTR  INDX 
THEN  7104  : REM  LOAD  INDX  SCTR 
: REM  SYSTEM  ERROR 

: REM  LOAD  INDX  SCTR 
: REM  RESET  SUBSCTR  INDX 

: REM  ST OR  LOCATION 


7120 

IF 

Q1*<D2>  <>  HEX(FFFF) 

THEN 

7224 

REM 

NOT  END  OF  FILE 

7124 

D7*  = “STOP" 

REM 

SET  EOF  FLAG 

7128 

GUTO 

7224 

REM 

BRANCH  TO  EXIT 

7132 

REM  *•* 

7136 

GOSUB  ' 

101 

(15, 1,2,20) 

REM 

POSITION  CUSOR 

7140 

PRINT 

HEX  ( 20203F  3F  3f-  3F0808080S0808 ) ; 

REM 

BACKGROUND 

7144 

D7*  = “NEXT" 

REM 

SET  DEFALUT  CMND 

7148 

INPUT 

D7* 

REM 

INPUT  FRAME  ADRS 

7152 

PRINT 

“System  Working..."; 

REM 

PRINT  SYS  BUSY 

7156 

AND 

(D7*,DF) 

REM 

FORCE  UPPERCASE 

7160 

*TRAN 

<D7*,R4*< )<193,24>>  R 

REM 

C.ONV  DIGITS 

7164 

REM  ** 

7168 

IF 

D7*  = "ST  OP" 

THEN 

7224 

REM 

VALID  INPUT 

7172 

IF 

D7*  = “LIST" 

THEN 

7224 

REM 

VALID  INPUT 

7176 

IF 

D7*  =•  “HELP" 

THEN 

7224 

REM 

VALID  INPUT 

<-180 

IF 

D7*  - "EDIT" 

THEN 

7224 

REM 

VALID  INPUT 

7184 

IF 

D7*  = “PR  IN" 

THEN 

7224 

REM 

VALID  INPUT 

7188 

IF 

D7$  =•  "NEXT" 

THEN 

7080 

REM 

I NCR  TO  NEXT 

7192 

IF 

D7*  <>  "STAR" 

THEN 

7212 

REM 

NOT  KEY  COMMAND 

7196 

D1  =0 

REM 

RESET  SCTR  ADRS 

7200 

D2  = 129 

REM 

RESET  SUBSCTR  INDX 

7204 

GUTO 

7080 

REM 

INCH  TO  NEXT 

7208 

REM  ** 

7212 

GOSUB  ' 

209 

<D7*> 

REM 

CClNV  TO  BIN  ADRS 

7216 

GOSUB  ' 

206 

(D7*,D1,U2) 

2 

REM 

FETCH  LOCATION 

7220 

REM  *-* 

7224 

RETURN 

2 

REM 

EXIT 

748 


O' 


AU  IHUR  Sy  s-tem:  3 


ATH  31 5=3  V 5 


O 


7228 

7832 

723G 

7240 

7244 

7245 
7252 
7256 
7260 
7264 
726.8 
7272 
7276 
7280 
7284 
7288 
7282 
7296 
7300 
7304 
7308 
7312 
7316 
7320 
7324 
7328 
7332 
7336 
7340 
7344 
7348 
7352 
7356 
7360 
7364 
7368 
7372 
7376 
7380 
7384 


REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  *■* 

REM  ** 

REM 
REM  ** 

REM 

DEFFN  ' 206  <D7*,D1,D2> 


Subroutine  «****************iHHt«**#*it**********^*****«<  6 

Abstract  > *.• 

To  perform  and  index  lookup  and  compute  the  location 
of  next  page. 

Variables  > 

D7*  > binary  page  address 
D4  > temp  subsctr  index 
D2  > r.ub-sctr  index 
R2*< ) > return  search  buffer 
D9  > scatch  addres  register 


D3  > temp  indx  sctr  adrs 
D1  > indx  sctr  adrs 
Ql*< ) > indx  sctr  buffer 
D5  > temp  loop  index 
D6.  > current  output  disk 


IE 


MAT  SEARCH 
IE 

REM  ** 

FOR 

DATA  LOAD 
MAT  SEARCH 
IF 


NEXT 
REM  ** 

IF 

DATA  LOAD 
GOIO 
REM  +* 


REM  ** 
RETURN 


D7*  * "ERR0“  THEN  7384 

D3  = D1 
D4  = D2 

<J1*<  ),=STR<D7»,  1,2)  TO  R2*()  STEP  4 
R2*<1)  <>  HEX<0000)  THEN  7368 

D3  = 0 

D5  - 1 TO  10 

BA  T #3,  (D5, DO)  Ql*( ) 

Ql*< >,=STR<D7*, 1,2)  TO  R2*< ) STEP  4 
R2* ( 1 ) = HEX <0000)  THEN  7340 

D3  = 05 
D5  = 10 
D5 

D3  <>  O THEN  736.8 

D7*  = "ERRO” 

BA  T #3,  <D1,D9)  Ql*< ) 

7384 

D1  = D3 

D2  = I NT (FNR ( VAL  < R2$ ( 1 ) ) ) /2)  + 1 
D7*  = Ql*<D2+i> 
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REM  ENTRY 

REM  INVALID  ADDRESS 
REM  SAVE  SC1R  ADRS 
REM  SAVE  SCTR  INDX 
REM  SRCH  CRNT  SCI R 
REM  ID  FOUND 
REM  SET  SCTR  ADRS 

REM  BEC  INDX  LOOKUP 
REM  LOAD  INDX  SCTR 
REM  SRCH  INDX  SCTR 
REM  ID  NOT  FOUND 
REM  SAVE  NEW  SCTR  ADRS 
REM  SET  END  OE  LOOKUP 
REM  CONT  INDX  LOOKUP 

REM  NEW  INDX  SCTR 
REM  ID  NOT  FOUND 
REM  RELOAD  INDX 
REM  BRANCH  TO  EXIT 

REM  UPDATE  SCTR  ADRS 
REM  CMP  LIT  SCTR  INDEX 
REM  ST  OR  H AC  REFERNCE 

REM  EXIT 
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7388  RfcM  +* 
7392  RfcM  ** 
7396  RfcM  ++ 
7400  RfcM  *> 
7404  RfcM  ** 
7408  REM  ** 
7412  RfcM  *♦ 
7416  RfcM  ** 
7420  RfcM  ** 
7424  REM  *■* 
7428  RfcM  ** 


Subroutine 
Abstract  > 

to  load  text  buffer  from  disk. 
Variables  > 

D7*  > stating  location  on  disk 

D9  > temp  loop  index 

W8  > text  bufr  scale  factor 
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W3  > temp  device  chang  fig 
G2*()  > text  buffer  (32) 

W6  > output  device  indx 
Q9*()  > sector  load  buffer 


7432  RfcM 
7436  DEFFN  ' 207  (D7*) 

7440  If-  W3  = 99 

7444  IN1T (20)  02*  ( ) 

7448  GOSUB  ' 211  (D7*) 

7452  RfcM  *+ 


THEN  7448 


RfcM  ENTRY 
RfcM  EXPAND  BUFFER 
REM  CLR  TEXT  BUFR 
RfcM  CHK  OSK  VOL  ID 


7456 

FOR 

W9 

= 1 TO  1024  STEP  256 

7460 

DATA  LOAD 

BA 

T #3,  (D7*,D7*)  0-3*0 

7464 

FOR 

W8 

= 1 TO  256  STEP  64 

7468 

W7 

= (W8+(W9-1>)*2  - 1 

7472 

MAT  COPY 

09* ( ) <W8, 64  > TO  02* ( ) <W7, 128> 

7476 

NEXT 

W8 

7480 

NEXT 

W9 

7484 

RfcM  ** 

7488 

IF 

W6 

<>  1 THEN  7516 

7492 

REM  ** 

7496 

FOR 

W9 

= 1 TO  2048  STEP  128 

7500 

W8 

= INT ( (W9+1 )/2) 

7504 

MAI  COPY 

02*  ( KW9,  128>  TO  02*  ( ) <W8, 64  > 

7508 

NEXT 

W9 

7512 

RfcM  *-* 

7516 

RETURN 

REM  BEG  DISK  LOAD 
RfcM  LOAD  INPUT  BUFR 
RfcM  DEG  BUFR  LOAD 
REM  CMPUT  SCALE  F-ACTR 
RfcM  LOAD  TEXT  BUFR 
REM  CONT  BUFR  LOAD 
RfcM  CONT  DISK  LOAD 

REM  CRT  OUTPUT  DfcV 

RfcM  BfcG  BUFR  CONTRACT 
RfcM  COMPUT  SCALE 
REM  LOAD  TEXT  BUFR 
REM  CONT  BUFR  LOAD 

RfcM  EXIT 
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7520  REM  ** 

7524  REM  *•* 

7528  REM  **■  Subroutine  ***^***^*******-iHHH**^^HHf-*-***-*-«--*-ft-*-*-«--*-*-»*-it-*  2 o S 
7532  REM  **  Abstract  > 

7536  REM  **  To  process  special  graphic  functions. 

7540  REM  **  Variables  > 

7544  REM  **  HI  > begining  row  of  graphic  ! H2  > second  row  of  graphic 

7548  REM  *■*  H3  > graphic  function  indx  ! H2<( ) > data  i/o  registers 

7552  REM  **  Hl*< ) > data  storage  buffer  ! R9*(>  > temp  data  bufr 

7556  REM  H2t  > data  unpack  format  ! W8  > temp  loop  index 

7560  REM  *■*  W9  > temp  loop  index  ! 

7564  REM  ** 


7572 

DEFFN  ' 

208 

<H1,H2,H3) 

REM 

ENTRY 

7576 

DIM 

H2*(11)1,H2*2 

REM 

DEFINE  WORK  BUFRS 

7580 

DEFFN 

H(H)  = VAL(H2^(H)) 

REM 

FUNCi ION 

H< ) 

(-584 

DEFFN 

Id)  = FNH  < W9+ 1 ) 

REM 

FUNCTION 

I<  ) 

7588 

DEFFN 

J(J)  = HI  + FNH(J) 

REM 

FUNCTION 

J< ) 

7532 

H2^  - HEX ( AOOl ) 

REM 

DATA  FORMAT 

7596 

REM 

7600 

♦UNPACK 

<F=H2^>  H1^(H3>  TO  H2^<  > 

REM 

UNPACK  GRAPHIC  DAT 

7604 

INI! 

( H2^  (ID)  R9^  ( ) 

REM 

IN1T  CHAR 

BUFFER 

7608 

FDR 

W9  = 1 TU  5 

REM 

BEG  LOOP 

7612 

COSUB  ' 

100 

<H2,FNK0>,FTM1<5>,R9*<1), 1) 

REM 

LOAD  TEX! 

BUFR 

7616 

NEXT 

W9 

REM 

CONT  LOOP 

7620 

REM  ** 

7624 

♦UNPACK 

(F-H2^)  HU(H3+5>  TO  H2^() 

REM 

UNPACK  GRAPHIC  DAT 

7628 

INI  T 

(H2^<10)>  R‘9$(  ) 

REM 

INI!  CHAR 

BUFFER 

7632 

C.OSUB  ' 

100 

( FN J ( 5 > , FNH  < 1>,FNH<2),R9*<1), 

1> 

REM 

LOAD  TEXT 

BUFR 

7636. 

INI  T 

<W?*(11)>  R9*<> 

REM 

INIT  CHAR 

BUFFER 

7640 

COSUB  ' 

lOO 

(FNJ(5),FNH(3),FNH(4),R9^< 1 >, 

1) 

REM 

LOAD  TEXT 

BUFR 

7644 

REM  ** 

7648 

f OR 

W8  ~ FN J ( 6 ) TO  FN J ( 7 ) STEP  2 

REM 

BEG  LOOP 

#1 

7652 

FOR 

W7  = H3+10  TO  H3+15  STEP  5 

REM 

BEC  LOOP 

#2 

7656 

♦UNPACK 

( F"H2^ ) H1^(W7)  TO  H2^< ) 

REM 

UNPACK  GRAPHIC  DAT 

7660 

IN1T 

(H2^(ll))  R9*<> 

REM 

INIT  CHAR 

BUFFER 

7664 

FOR 

W9  =■  1 TO  4 

REM 

BEC  LOOP 

#3 

7668 

CCJSUB  ' 

100 

<W8,FNI  <0>,FNI  <4>,R9*(1  >,  1 ) 

REM 

LOAD  TEXT 

BUFFER 

7672 

NEXT 

W9 

REM 

CONT  LOOP 

«3 

7676 

NEXT 

W7 

REM 

CONT  LOOP 

#2 

7680 

NEXT 

W8 

REM 

CONT  LOOP 

#1 

7684 

REM  ** 

7688 

♦UNPACK 

<F=H2D  HlT.(H3+20>  TO  H2^() 

REM 

UNPACK  GRAPHIC  DAT 

7692 

INI  i 

(H2^<11)>  R9^() 

REM 

INIT  CHAR 

BUFFER 

7696 

COSUB  ' 

100 

( FNJ ( 7 ) , FNH  < 1 ) , FNH ( 4 ) , R9^ ( 1 ) , 

1) 

REM 

LOAD  TEXT 

BUFFER 

7700 

COSUB  ' 

100 

( FN.J ( 8) , FNH <2 ) , PNH(  5 ) , R9^<  1 ) , 

1) 

REM 

LOAD  TEXT 

BUFFER- 

7704 

1N1T 

(H2^(10)>  R9^<) 

REM 

INIT  CHAR 

BUFFER 

/708 

STR<R9*<1),  1,3)  - "Yes" 

REM 

INIT  CHAR 

BUFFER 

7712 

COSUB  ' 

100 

( FNJ  < 9 ) , FNH  < 3 ) , FNH  ( 6 ) , R9*  < 1 ), 

1 > 

REM 

LOAD  TEXT 

BUFFER 

7716 

REM  *> 

7720 

♦UNPACK 

(F~H2^>  HlT>(H3+25)  TO  H2*<> 

REM 

UNPACK  GRAPHIC  OAT 

7724 

1N1T 

< H2^  (ID)  R 9S  ( ) 

REM 

INIT  CHAR 

BUFFER 

7728 

FOR 

W9  = 1 TO  4 

REM 

BEC  LOUP 

7732 

COSUB  ' 

lOO 

(FNJ  (9)  , FNI  (0) , FN1  <4>,R9^<1 ), 

D 

REM 

LOAD  TEXT 

BUFFER 

7736 

NEXT 

W9 

REM 

CONT  LOOP 

7740 

REM  ** 

7744 

RETURN 

: 

REM 

EXIT 
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ALT 

7748 
77b8 
7756 
7760 
7764 
7768 
7778 
7776 
7780 
7784 
7788 
7798 
7796 
7800 
7804 
7808 
7818 
7816 
7880 
7884 
7888 
7838 
7836. 
7840 
7844 
7848 
7858 
7856 
7860 
7864 
7868 
7878 
78  76 
7880 
7884 
7888 
7898 
7896 
7900 
7904 
7908 
7918 


1 HGR 

REM 

-*•* 

REM 

-H-tt 

REM 

*•* 

REM 

REM 

*•* 

REM 

REM 

REM 

•*-* 

REM 

•fr* 

REM 

REM 

*-* 

REM 

■** 

REM 

*-*•* 
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Subroutine  ***hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh('  2 0 9 
Abstract  > 

To  compute  binary  page  address  from  physical  page 
address. 

Variables  > 

D7*  > page  address 
W1  > fiche  page  number 
W8  > fiche  row  number 


R4*<  ) 


80-3 


conversion  buffer 


D8 

D9 

W3 

Wl* 


max  rows 
max  cols 
fiche  col 


< 1 ineor 
< linear 
number 


format ) 
f ormat ) 


binary  page  address 


IF 

IF 

GOTO 
REM  ** 
CONVERT 


GOTO 

REM 

*TRAN 

IF 

IF 

IF 

IF 

GOTO 

REM  ** 
CONVERT 
CONVERT 

REM  ** 
COSUB  ' 

RETURN 
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<D7*> 

REM 

D8  = 7 

REM 

D9  = 14 

REM 

STR<D7*,8, 1)  > HEX ( 40 ) 

THEN 

7856  : 

REM 

NUM ( D7* ) = 4 

THEN 

7838  : 

REM 

D7*  = "ERRO" 

REM 

7918 

REM 

D7*  TO  D7 

; 

REM 

W1=INT<D7/(D8*D9> )+l 

: 

REM 

W8=INT  < < (D7-(W1-1 >*<D8*D9> )-l)/D9)+l: 

REM 

W3=D7-( (W1-1)*(D8*D9)+(W8 

-1)*D9)  : 

REM 

7904 

Z 

REM 

<D7*<8,  1>,R4*<)<885, 18>) 

OF 

REM 

NUM  < ST  R ( D7*,  1,1))  <>  1 

THEN 

7876  : 

REM 

NUM<STR<D7*,3,8> ) <>  8 

THEN 

7876  : 

REM 

SYR<D7*,8,1)  > HEX(OF) 

THEN 

7876  ! 

REM 

STR(D7*,8,1)  > HEX(OO) 

THEN 

7888  : 

REM 

D7*  = "ERRO" 

REM 

7918 

REM 

STR<D7*,1,1)  TO  Wl 

; 

REM 

S1R<D7*,3,8)  TO  W3 

: 

REM 

W8  * VAL(STR<D7*,8,  1 > ) 

s 

REM 

( wn>,  wi , wa,  W3,  o,i) 

: 

REM 

D7*  = Wl* 

z 

REM 

z 

REM 

ENTRY 

SET  LINEAR  ROW  IUX 
SET  LINEAR  COL  IDX 
NUM  IN  FICH  FORMAT 
VALIU  NUM  FORMAT 
INVALID  INPUT 
BRANCH  TO  EXIT 

CONV  TO  DEC 
CMPUT  PAGE  NUMBR 
CMPUT  ROW  NUMBR 
CMPUT  COL  NUMBR 
CMPUT  BIN  ADDRS 

CONV  ROW  INDEX 
INVALID  INPUT 
INVALID  INPUT 
INVALID  INPUT 
VALID  INPUT 
INVALID  INPUT 
BRANCH  TO  EXIT 


CMPUT 

CMPUT 

CMPUT 

CONV 

SAVE 

EXIT 


PAGE  NUMBR 
COL  NUMBR 
ROW  NUMBR 

TO  BINARY 
BINARY  ADDRS 


752 


IHQR  Sy  s t E*m  r P ha  s e 


— ATH3L.ST5 


REM  ** 

REM  ** 

REM  *■*  Subroutine  ^******^^******^********-*-*-*-***-tt--»*-*-*+*****  210 
REM  *•*  Abstract  > 

REM  *•*  To  print  text  buffer  onto  the  selected  output  device. 

REM  **  Variables  > 

REM  **  Wf>  > output  device  indx  ! W3  > temp  change  of  dev  flag 

REM  ■""*  W4$  > device  option  flag  ! 

REM  ** 

REM  **********^****************-***-#--*-M--iH<--*-******-*-tt 
UEFFN  ' 510  (Wfc)  : REM  ENTRY 

G05UB  ' 108  (WE.)  : REM  OUTPUT  BUFFER 

RETURN  REM  EXIT 


o 
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AU'I  HOR  System:  Phase  3 — ATH 31 SI  b - a 1 l 

7968  REM  ** 

7972  REM  ** 

7980  REM  **  Abstract  > 

7984  HEM  **  To  check  that  right  output  disk  is  mounted  before 
7988  REM  **  sector  lookup. 

7-992  REM  **  Variables  > 

7‘996  REM  **  0*94 ( ) > scratch  i/o  buffer  ! D7*  > page  location  sddres 

8000  REM  **  D6  > current  output  disk  ! W9  > temp  volume  id 

8004  REM  **  R0*<  ) > input  register  ! D9  > scratch  adrs  register 

8008  REM  ** 


8016 

DEFFN  ' 211 

<D7*> 

: REM 

ENTRY 

8020 

MAT  REDIM 

09*  <64)4 

: REM 

DEFINE  WORK  OUFR 

8024 

STR<D7*, 3,2)  = STR(D7*, 

1,2) 

: REM 

SAVE  PAG  LOCATION 

8028 

AND 

<STR(D7*, 1, 1>,0K) 

: REM 

MASK  OUT  VOL  ID 

8032 

AND 

(S1R(D7*, 3, 1 ) ,F0) 

: REM 

MASK  OUT  LOCATION 

8036 

8040 

8044 

ROTATE 

REM  ** 

(STR  <D7*, 3, 1 ) , 4) 

W9  = VAL ( STR (U7*, 3,1)) 

: REM 
: REM 

CONV  UPR  BITS 

STUR  TEMP  VOL  ID 

8048 

IE 

W9  - D6 

THEN 

8112  : REM 

VOL  IDS  MATCH 

8052 

GOSUB  ' 101 

<15,1,2,0) 

: REM 

POSITION  CUSOR 

8056 

PKINTUSING 

8104,  W9 

: REM 

PRINT  PROMPT 

8060 

KEY  IN 

RO*  < 1 ) , 8076,  8076 

: REM 

RESPUNCE  WAIT 

8064 

*CIO  PAUSE 

/0O5( R8*( 4 ) , R8*<  9) ) 

: REM 

PAUSE  TUNE 

806.8 

8072 

GOTU 

REM  ** 

8060 

: REM 

CONT  WAIT 

8076 

DATA  LOAD 

BA  T #3,  <0,D9>  0-9*0 

: REM 

LOAD  ZERO  SCI  R 

8080 

ROTATE 

< STR  < 09* (13), 1,1), 4) 

: REM 

CONV  UPR  BITS 

8084 

D6  = VAL  < STR  ( 0*9*  ( 1 3 ) , 1 , 

1 ) ) 

: REM 

STORE  VOL  ID 

8088 

GO  10 

8048 

: REM 

RE -CHECK  IDS 

80-92  HEM  ** 

8096.  REM  **  OUTPUT  IMAGE  FORMAT 

8100  REM  ++ 

8104  X MOUNT  Volume  > ##  Output  Disk  ...  'RETURN'  to  Continue 
8108  REM  ** 

8112  RETURN  : REM  EX  IT 
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< 1500) 

- 6776 

6095 

- 6100  6132 

6108 

- 6098 

6116 

- 6108 

6140 

- 6112 

6160 

- 6060 

6164 

- 606-4 

6168 

- 6068 

6175 

- 6072 

6176 

- 6084 

6180 

- 6040  6044 

6424 

- 6248 

6468 

- 6444 

6528 

- 6258  6376 

6420 

6584 

- 6828 

6596 

- 6740  6760 

6620 

- 66.04 

6658 

- 6600 

6684 

- 6684 

6688 

- 6684 

66-92 

- 6592 

6696. 

- 6688 

6720 

- 6652 

6748 

- 6720 

6768 

- 6748 

6784 

- 6588 

6800 

- 6768 

6836 

- 6712  6792 

6800 

6852 

- 6628 

6856 

- 66.32 

6860 

- 66.36 

6864 

- 6664 

6868 

- 6668 

6878 

- 6672 

699€.  - 6936  6940  6952  6980  6984 

7076  - 7055 

7080  - 7188  7204 

7104  - 7095 

7116  - 7084 

7136.  - 7076 

7515  - 71-95 

7554  - 7068  7150  7128  7168  7178  7176  7180  7184 

7340  - 7358 

7368  - 7304  7348 

7384  - 7288  7360 

7448  - 7440 

7516  - 7488 

783 5 - 7816 

7856  - 7812 

7876  - 7860  7864  7868 

7888  - 7872 

7904  - 7848 

7915  - 7824  7880 

8048  - 8088 

8060  - 806.8 
8076  - 8060 

8104  - 8056 

8118  - 8048 

(9999)  - 6776 
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1 MAH 

D1 

_ 

6398 

7088 

7098 

7104 

7196 

7816 

7884 

7898 

7356 

7360 

08 

- 

63*36 

6708 

6788 

7064 

7080 

7084 

7108 

7116 

7180 

7800 

7816 

7884 

7896 

7378 

7376 

D3 

- 

78*38 

7308 

7338 

7348 

7368 

D4 

- 

7896. 

04* 

- 

6944 

6*348 

D5 

- 

7316 

7380 

7338 

7336 

7340 

06 

- 

6408 

8048 

8084 

07 

- 

7838 

7836 

7840 

7844 

D7* 

- 

65*36. 

6600 

66-58 

6708 

6780 

6748 

6768 

67uS 

6800 

6836 

7048 

7064 

7116 

7184 

7144 

7148 

7156 

7160 

7168 

7173 

7176 

7180 

7184 

7188 

7198 

7818 

7816 

7884 

• 

7888 

7300 

7384 

7358 

7376 

74  36. 

7448 

7460 

7800 

7818 

7816 

7880 

7838 

7856 

7860 

7864 

7068 

7878 

7876 

7888 

(-898 

7896 

7*308 

8016 

8084 

8088 

8038 

8036 

8040 

D8 

- 

7804 

7836. 

7840 

7844 

D9 

- 

6400 

6418 

7104 

7380 

7356 

7808 

7836. 

7840 

7844 

8076 

H 

- 

7580 

HI 

- 

7578 

7588 

Hl*< 

- 

6844 

6856 

6860 

6864 

6868 

6878 

6876 

6880 

6884 

6888 

6898 

6896 

6300 

6304 

6308 

6318 

6316 

6380 

6384 

6388 

6338 

6336 

6340 

6344 

636.4 

6368 

6378 

7600 

7684 

7656 

7680 

7780 

W8 

- 

7578 

7618 

H8* 

- 

7576 

7598 

7600 

7684 

7656 

7688 

7780 

H8*( 

- 

6844 

6388 

7576 

7580 

7600 

7604 

7684 

76.88 

7636. 

7656 

7780 

7784 

H3 

- 

7578 

7600 

7684 

7658 

7680 

7780 

I 

- 

7584 

J 

- 

7588 

Ql*< 

6384 

6400 

6404 

6408 

6418 

6708 

6780 

706.4 

7104 

7116 

7356 

7376 

08*  ( 

6380 

6948 

6960 

6*364 

7444 

7478 

7504 

09*  ( 

7460 

7478 

8080 

8076 

8000 

8084 

R0*( 

6098 

6108 

6118 

6140 

6604 

6688 

6*360 

696.8 

8060 

R8*< 

- 

6948 

6958 

6956 

7300 

7304 

7384 

7388 

7378 

R4*< 

- 

7160 

7856 

RS*< 

- 

6964 

R8*< 

6088 

60*36 

6184 

6738 

80€7i 

R9*< 

“ 

6440 

6444 

7604 

7618 

7680 

7638 

7636 

7640 

7660 

7668 

7708 

7718 

7784 

7738 

TO 

6956. 

6960 

6*3671 

6976 

T1 

- 

6968 

6978 

6980 

6984 

6988 

T8 

6976 

6988 

W1 

- 

7836. 

7840 

7844 

7880 

7904 

Wl* 

- 

7904 

7908 

W8 

- 

7840 

7844 

7896. 

7904 

W8* 

- 

6808 

W3 

- 

6596 

6696 

7048 

7058 

7056 

7440 

7844 

78  98 

7904 

W3* 

“ 

6808 

W4* 

6604 

6818 

W5* 

- 

6818 

W6 

- 

6036 

6040 

6044 

6140 

6144 

6848 

6858 

6376 

6480 

6458 

6698 

6758 

677 a 

6784 

6804 

6880 

6*336. 

6940 

7048 

7060 

W6.* 

6816 

W7 

- 

7468 

7478 

7658 

7656 

7676 

W8 

- 

7464 

7468 

7478 

7476 

7500 

7504 

7648 

7668 

7680 

W9 

- 

6436 

6448 

7456 

7468 

7480 

7496 

7500 

7504 

7508 

7504 

7788 

7736 

8040 

8040 

8056 

6344  6348  6358  6356  6360 


76b6  7660  7688  7698  7704 


7116  7180  7300  7380  7384 


7668  7698  7696  7700  7704 


7684  7608  7616  7664  7678 


756 


Mr 


AU'I  HUH  Sy&t  em:  P ha  & c 3 — ATH  31 Si  E — * 

0000  DtFFN'  0 

- 7096 

0001  DEFFN'  1 

0002  DEFFN'  2 

0003  DtFFN'  3 
????  DtFFN'  100 

- 7612  7632  7640  7668  7606  7700  7712  7732 
????  DtFFN'  101 

- 6052  6080  6116  6128  6640  6656  6700  6724  6736  7136  8052 
'*???  DtFFN'  103 

- 7904 

????  DtFFN'  108 

- 6616  7960 
6036  DtFFN'  201 

- 6820 

6240  DtFFN'  202 

- 6756  6824 
6584  DtFFN'  203 
6932  DtFFN'  204 
7048  DtFFN'  205 

- 6596. 

7284  DEFFN'  206. 

- 7216 

7436  DtFFN'  207 

- 6836. 

7572  DEFFN'  208 

- 6988 

7800  DtFFN'  209 

- 7212 

7956  DEFFN'  210 
8016  DtFFN'  211 

- 7448 


757 


1 


TAEG  Report  No.  59 


1 


5.36  ATH3EDTP 

The  purpose  of  the  'ATH3EDTP'  program  Is  to  allow  the  current  page 
of  the  learning  module  to  be  edited.  The  'ATH3EDTP'  program  is 
called  from  'ATH3LSTP' . 

The  remainder  of  this  section  presents  the  'ATH3EDTP'  program 
listing  and  reference  maps. 


O 


AUTHOR  Sy&t cm 


t-'  ha  3 


ATHJtD  l F-* 


ervJTt^L- 


1500 

Xtt# 

Program  > AUTHOR/3 

150A 

REM 

*■* 

Abstrac-t 

1508 

REM 

*"* 

1518 

REM 

■*+ 

This  routine 

1516 

REM 

*"* 

edited  in  a 

1580 

REM 

*»"*• 

of  the  Phase 

1584 

i r nn 

REM 

n i m 

**• 

w#  if  4 

H ,H  RAM  H tftf 

1 bc!o 

Kfc.rn 

* TT  w ” i tC  hh  n iT  »nr™7.  n 

1538 

REM 

1 536 

COSUB  ' 

107 

1540 

GOSUB  ' 

108  <R0$<1>> 

1544 

COSUB  ' 

109  <R0*<1>) 

1548 

IP" 

R0*<1>  <>  1 

1558 

RETURN 

THEN  1540 


REM  INITIALIZATION 
REM  ENTER  A CHARACTER 
REM  PROCESS  CHARACTER 
REM  NOT  END  OP  DATA 
REM  RETURN  TO  LIS) 


c 


AUTHOR  System:  Phase  3 — ATH3tD'I  P — i O ~r 

1556  REM  ** 

1560  REM  ** 

1 b64  REM  **  Subroutine  i o 7 

1568  RhM  **  Function  > To  Initialize  pointers  and  buffer 
1 572  REM  **  Variables  > 


1S76 

REM 

R1  > 

ert  pos  <pom> 

R2  > 

ert  pos  <col> 

1 580 

REM 

R3  > 

linear  bufr  indx 

R6  > 

top  lin  on  ert 

1584 

REM 

R4  > 

bufr  pos  <row> 

R5  > 

bufr  pos  <col> 

1588 

REM 

•** 

R 1 * ( ) > 

storage  buffer 

R0$ ( ) > 

charactr  bufr 

1592 

REM 

*"* 

R9*<  >> 

scratch 

R9  > 

scratch 

1596 

REM 

*•» 

R5*<  )> 

search  id's 

R8*< )> 

micro  cmnds 

1600 

REM 

*■* 

El- ■>  pre-existing  data  fig 

1604 

REM 

. 

REM  ENTRY 

REM  DEFINE  EDIT  BUFFER 
REM  INI T CRT  ROW  POS 
REM  INI)  CRT  COL  POS 
REM  IN1T  LINR  BUF  POS 
REM  INI!  BUFR  ROW  POS 
REM  INI!  BUFR  COL  POS 
REM  IN1T  10P  OF  SCREN 
REM  CLR  EXSTNG  DA)  FLC 
REM  CLR  CUSR  RPEAT  FLG 
REM  CLR  NUMBER  BUFR 
REM  CLR  TEXT  BUFR 
REM  CLR  SCRATCH  BUFR 
REM  CLR  ENTRY  BUFR 
REM  CLR  ENTRY  QUEUE 
REM  LOAD  EDIT  BUFFER 
REM  CONV  OO  TO  SO 
REM  DISPLAY  BUFFER 


lt-ic; 

1616 

UfcrrlN  • lUf 
DIM 

Rl*< 16,64) 1 

1620 

R 1 = 1 

1624 

R2  * 1 

1628 

R3  = 1 

.1632 

R4  = 1 

1636 

R5  = 1 

1640 

R6  - 1 

1644 

El  * 1 

1648 

IN1T (20) 

Rl$ 

1652 

IN1T (20) 

R2* 

1656 

1N1T (20) 

Rl*<  ) 

1660 

1N1T (20) 

R9*( ) 

1664 

INI! (20) 

RO*  ( ) 

1668 

KEY  IN 

R0*<1),  1668,  1668 

1672 

MAT  COPY 

Q2*<  X1025, 1024>  TO  Rl*<  XI,  1024> 

1676 

*TRAN 

<R1*( XI, 1024>,  R4*< )<177,4>)  R 

1680 

GOSUB  ' 121 

(R6) 

1684  REM  ** 

1688  COSUB  ' 101  (IS, 1,1,7) 

1692  PRINT  "Entry  *; 

1696  GOSUB  ' 101  <R1,K2,0,0) 

1700  RETURN 


: REM  POSH  ION  CUSOR 

: REM  POSITION  CUSUR 
: REM  EX IT 


AU1 HOR 

1815 

REM  ** 

1816 

REM  ** 

1850 

REM  ** 

1854 

REM  ** 

1858 

REM  ** 

1835 

REM  ** 

1836 

REM  ** 

1840 

REM  ** 

1844 

REM 

1848 

DEFFN 

1855 

1856 

REM  ** 

1860 

REM  ** 

1864 

REM  ** 

1868 

ON  RO  1 

1875 

REM  ** 

1876 

REM  ** 

1880 

GOSUB 

1884 

GOSUB 

1888 

GOSUB 

1895 

GOSUB 

18-36 

GOSUB 

1-300 

GOSUB 

1904 

RETURN 

5-tem:  Phai 


ATH3E^DTP  — 


Subroutine  103 

Function  > To  Insert  Character  into  buffer 

and  process  any  control  functions. 

Variables> 


RO*(  ) 


character  buffer 


109  <R0*<1>> 

RO  = VAL<R0*<1)) 


REM  ENTRY 
REM  CCJNV  TO  DEC 


ERASE 

1884 


UNDR SCR 


ESCAPE  ! CRL.F  • OTHER 


REM  BHNCH 


110  <R0*(1>> 

111 
1 IB 
113 

153 

154 


GOTO  1904  : REM  ENTER  CHARACTER 
GOTO  1904  : REM  RUB OUT  CHARACTER 
GOTO  1904  : REM  UNDERSCORE  CHAR. 
GOTO  1904  : REM  EDIT  BUFFER 
GOTO  1904  : REM  IhPUT  COMPLETE 
GOTO  1904  : REM  INSER  f CCRL.f  > 

: REM  EXIT 


762 


AUTHOR  System 


P h3  E-B  3 


ATH  3E.DTP 


1 1 O 


1-908  HEM  ** 
1912  RtM  ** 
1910  RtM  ** 
1920  RtM  ** 


Subroutine 
Function  > 


1 1 0 


To  transfer  character  from  character 
buffer  to  storage  buffer. 


1928 

REM 

•*-* 

Store  buffer  on  disk 

when  full. 

1932 

REM 

Var iablesJ 

1936 

REM 

-*■* 

R1 

> 

crt  pos  <row>  ! 

R2 

> 

crt  pos 

<col> 

1940 

REM 

*•* 

R4 

> 

buf  pos  <row>  ! 

R5 

> 

buf  pos 

<col> 

1944 

RtM 

■** 

R3 

> 

bufr  pointer  ! 

R6 

> 

top  lin 

of  buf 

1948 

REM 

** 

Rl*<  > 

> 

storage  bufr  ! 

R0*< ) 

> 

char,  buffer 

1982 

RtM 

*"* 

R5*<  ) 

> 

terminator  char! 

11 

> 

item  id 

1956 

REM 

12 

> 

storg  fnct  code! 

1900  RtM  ** 
1964  RtM  ***** 
1968  DtFFN  ' 1 
1972  IF 
1976  RtM  ** 

1980  IF 

1984  *G10  TONE 

1988  IF 

19-92  *G1U  TONE 

1996  RtM  ** 

2000  IF 

2004 

2008 

2012  IF 

2016 

2020 

2024  HEM  ** 

2028 

2032  COSOB  ' 1 

2036 

2040 

2044 


110  ( RO$ < 1 ) ) 
R3  = 1 


$GI0  LEFT 
IF 

*GIO  RIGHT 
MAT  CORY 
$G10  CHAR 


RETURN 


THEN  2060 


R2  <>  89 

/005  <R8*<7),R8*<9> > 
R4  <>  16 

/005  <R8*<4),R8*<9> > 


THEN  2000 


THEN  2000 


R2  <>  64 


THEN  2040 


R1  <>  16 


THEN  2028 


101  <R1,R2+1,0,0> 
R4  = R4  + 1 
R2  = R2  + 1 
R5  - R5  + 1 
T /OOb  <4009 
R2  <>  1 

HT  /OOb  <4008 


, R84  < 9 > ) 


THEN  2060 


/OOb  <4008  ,R8«<9>> 

R0*<>  <1,1>  TO  Rl*<)  <R3, 1> 

/OOS  <A0004008,H8*<9> > R0*< ) <1,1> 
R3  = R3  + 1 


REM  ENTRY 

REM  FIRST  CHARACTER 


REM  NOT  TIME  FOR  TONE 
RtM  END  OF  LINE  TONE 
RtM  NOT  END  OF  BUFR 
REM  PAUSE  TONE 


REM  NOT  END  OF  LINE 
REM  SET  CRT  POS 
REM  SET  BUFFR  POS 
RtM  NOT  BOTM  OF  SCRN 
REM  RESET  FOR  RAPARND 
RtM  SET  BUFR  POINTER 


REM  I NCR  CRT  ROW  INDX 
REM  POSITION  CUSOR 
RtM  I NCR  ROW  INDX  EtUF 
REM  INCH  COL  INDX  CRT 
REM  I NCR  COL  INDX  BUF 
REM  SPACE  CUSOR  LEFT 
RtM  SPACE  IS  OK 
REM  SPACE  CUSOR  RIGHT 
RtM  LOAD  INTU  BUFFER 
RtM  DISPLAY  CHARACTER 
RtM  I NCR  BUFFER  INDX 
REM  EXIT 


Ill 


AU 

2076 

2080 

2084 

2088 

2092 

2096 

2100 

2104 

2108 

2112 

2116 

2120 

2124 

2128 

2182 

2136 

2140 

2144 

2148 

2152 

2156 

2160 

2164 

2168 

2172 

2176 


1 HOR 


System:  Phasu 


AT  H 3tD  t \ ' — 


REM  ** 
RbM  ** 
RbM  ** 
RbM  ** 
RtM  ** 
RbM  ** 
RbM  ** 
RbM  ** 
RbM  ** 
RbM  ** 


Subroutine 
Function  > To  Rubout  current  character 
Variables  > 

R1  > crt  pos  <row>  ! R2  > 

R4  > buf  pos  <row>  ! R5  > 

R3  > bufr  pointer  ! R6  > 

Rl*<>  > storage  bufr  ! R0*<)  > 


1 1 1 


crt  pos  <col> 
buf  pos  <col> 
top  lin  of  buf 
char,  buffer 


RbM  *-*-*■* 
DEFFN  ' 
IF 

HH 

111 

R3  = 1 

THEN 

2176 

GOSUB  ' 

101 

<R1,R2, 1, 1) 

MAT  CORY 

R5*<)  <1,1> 

TO  Rl*() 

<R3-1, 1> 

R3  = R3  - 

1 

If 

R3  = 1 

THEN 

2176 

IF 

R2  <>  1 

R2  * 65 

R5  = 65 

R1  * R1  - 

1 

THEN 

2164 

R4  - R4  - 

1 

R2  = R2  - 

1 

R5  = R5  - 

1 

GOSUB  ' 

101 

(R1,R2,0,0) 

RETURN 


REM  ENTRY 

REM  If  BUFR  BLCINING 
REM  ERASE  CHARACTER 
REM  CLR  TEXT  BUFFR 
REM  DECRMNT  BUFR  INDX 
RbM  If  BUFR  BEGINING 
RbM  NOT  BEG  Of  LINE 
RbM  SET  TO  END  Of  LINE 
REM  SET  70  END  Of  LINE 
RbM  DECRMNT  ROW  INDX 
RbM  DECRMNT  ROW  INDX 
REM  DECRMNT  COL  INDX 
REM  DECRMNT  COL  INDX 
REM  POSITION  CUSOH 
REM  EXIT 


764 


t. 


AUTHDIV  aystpin 


P fi-Si  sb-  e-  3 


ATH  3»£U  t > 


3180  RLM  ** 
3184  RhM  *■* 
3188  RLM  *■* 


3193 

3198 

3300 

3304 

3308 

3313 

3318 

3330 

3334 

3338 

3333 

3338 


RLM  ** 
REM  ** 
RLM  ** 
RLM  ** 
RLM  ** 
RLM 
DLFFN 
MAT  COPY 
AND 
ADO 

MAT  COPY 
RETURN 


Subroutine 
Function  > To 
Variables  > 
Rl*<>  > 

R3  > 


i i a 


underscore  the  current  character. 


storage  bufr 
buffer  pointer 


! R0*()  > char  buffer 


113 


Rl*()  <R3-1,1>  TO  R04O  <1,1> 
<R04(1),YF) 

( RO< ( 1 ) , 80  > 

R0*<)  <1,1>  TO  Rl»< ) — <R3--1  »-!> 


REM  ENTRY 

RLM  FETCH  CHARACTER 
RLM  CLR  UNDR SCR  FLAG 
REM  SET  UNDRGCR  1-LAG 
REM  SAVE  CHARACTER 
RLM  EXIT 


AUTHOR  Syatem:  Phase  3 — ATH3EDTP  113 

3240  REM  ** 

2244  REM  ** 

2252  REM  **  Function  > To  alow  the  storage  buffer  to  be 

2256  REM  **  Edited.  Editing  can  only  be  performed 

2260  REM  **  on  data  currently  in  buffer. 

2264  REM  **  Variables  > 

2268  REM  **  10  > value  of  numbr  str  ! R3  > buffer  pointer 

2272  REM  **  R2*  > number  string  ! R4  > buf  indx  <row> 

2276  REM  **  Rl*(>>  storage  buffer  ! R5  > buf  indx  <col> 

2280  REM  **  R0*()>  character  bufr  ! R4*()>  translations 

2284  REM  **  R8*(>>  micro  cmnds  ! 19  > length  of  numbr  string 

2288  REM  ** 

2292  REM 

2296  OEFFN  '113  : REM  ENTRY 

2300  GOSUB  ' 101  (16,1,1,7)  REM  POSITION  CUSOR 

2304  PRINT  "Edit 

2308  GOSUB  ' 101  <R1,R2,0,0)  : REM  POSITION  CUSOR 

2312  REM  ** 

2316  INIT (20)  R2*  : REM  CLR  STORAGE  BUFR 

2320  19  = O : REM  SET  NUMBR  LENGTH 

2324  10  = 1 : REM  SET  NUMBR  VALUE 

2328  R3  * (R4-l>*64  ♦ R5  + 1 : REM  CMPUTE  CURNT  INDX 

2332  IF  Rl*  = HEX(OO)  THEN  2420  : REM  REPEAT  CUSR  MOVE 

2336  REM  ** 

2340  STR(R8*(9>,5, 1 ) = R1*(R4,R5)  ; REM  STOR  CURNT  CHAR 


2344 

KEY  IN 

R0*( 1 ) , £360,  £460 

REM 

INPUT  EDIT  CMND 

2348 

*GIO  CUSOR 

/005  ( R8* ( 1 ) , R8* ( 9 ) ) 

REM 

INPUT  WAIT 

2352 

GOTO 

2344 

REM 

CONTINUE  WAIT 

2356 

REM  ** 

£360 

*TRAN 

( RO*  (XI, 1>,  R4*(  ) <273, 

48> ) R 

REM 

CONV  CTL  CHAR 

2364 

Rl*  = HEX (20) 

REM 

CLR  REPT  CUSR  FLG 

£368 

RO  = VAL ( RO* ( 1 ) ) 

REM 

CMPUT  CHAR  VALUE 

2372 

IF 

R0*( 1 ) < HEX(OA) 

THEN 

2484 

REM 

VALID  CTL  CHAR 

2376 

IF 

RO*( 1 ) > HEX (39) 

THEN 

2460 

REM 

INVALID  INPUT 

£380 

IF 

RO* ( 1 ) > HEX (29) 

THEN 

2484 

REM 

VALID  NUM  CHAR 

2384 

IF 

R0*( 1 ) > HEX ( OA ) 

THEN 

2412 

REM 

INVALID  INPUT 

2388 

IF 

R3  <>  2 

THEN 

2440 

REM 

NOT  BEG  OF  BUFFER 

2392 

MAT  CORY 

Q2*( ) <1025, 1024 > TO  Rl*( XI, 1024> 

REM 

RELOAD  EDIT  BUFFER 

2396 

*TRAN 

(Rl*( XI, 1024>,  R4* ( ) <177, 4> ) R 

REM 

CONV  OO  TO  20 

£400 

GOSUB  ' 121 

(R6) 

REM 

DISPLAY  EDIT  BUFR 

£404 

GOTO 

2296 

REM 

BEGIN  EDIT  AGAIN 

2408  REM  ** 

£412  Rl*  * HEX (00)  ; REM  SET  REPT  CUSR  FLG 

£416  RO  = VAL ( RO* ( 1 ) ) - 10  : REM  CMPUT  BRANCH  INDX 

£420  KEY IN  R0*(1),  2360,  2420  : REM  REPEAT  INTRUP  CHK 

£424  STR (R8*(9 ) ,5,1)  = R1*(R4,R5>  : REM  STOR  CURNT  CHAR 

2428  *CIO  CUSOR  /005  (R8*( 1 ) , R8*(9) ) : REM  DISPLAY  CUSOR 

2432  GOTO  2484  : REM  EXCUTE  MOVE 


2436 

REM  ** 

2440 

GOSUB 

/ 

101 

(16,1,1,7) 

9 

• 

REM  POSITION  CUSOR 

2444 

PRINT 

“Entry 

2448 

GOSUB 

/ 

101 

<R1,R2,0,0) 

■ 

REM  POSITION  CUSOR 

£452 

GOTO 

2544 

■ 

REM  BRANCH  TO  EXIT 

2456 

REM  ** 

2460 

*GIO  TONE 

/005  (R8*(7),R8*(9> > 

• 

REM  ERROR  TONE 

2464 

GOTO 

2316 

» 

U 

REM  BRANCH  EDIT  INPUT 

2468 

REM  ** 

2472 

REM  ** 

2476 

REM  ** 

! LEFT  ! 

RIGHT  ! UP  ! 

DOWN 

! CHANG  ! 

2480 

REM  ** 

1 1 - 

— 

1 

— ! 

2484 

ON  RO 

GOTO 

2504  , 

2508  , 2512  , 

2516 

, 2520 

9 

2524  , 

2528  , 2532  , 

2536 

, 2500 

: REM  BRANCH 

2488 

REM  ** 

1 1 - 

1 

— ! 

2492 

REM  ** 

! DELET  ! 

INSRT  ! BEGIN  ! 

END 

! NUMBR  ! 

2496 

REM  *+ 

- 

2500 

GOSUB 

/ 

120 

(10,19) 

GOTO 

2340  : 

REM  CMPUT  NUMBER 

2504 

GOSUB 

/ 

114 

(I0*(-1) ) 

GOTO 

2316  : 

REM  CUSOR  LEFT 

2508 

GOSUB 

/ 

114 

(10) 

GOTO 

2316  : 

REM  CUSOR  RIGHT 

2512 

GOSUB 

4 

115 

(I0*(-1>> 

GOTO 

2316  : 

REM  CUSOR  UP 

2516 

GOSUB 

4 

115 

(10) 

GOTO 

2316  : 

REM  CUSOR  DOWN 

2520 

GOSUB 

4 

116 

GOTO 

2316  : 

REM  CHANGE  CHARACTER 

2524 

GOSUB 

4 

117 

GOTO 

2316  : 

REM  DELETE  CHARACTER 

2528 

GOSUB 

4 

118 

(10) 

GOTO 

2316  : 

REM  INSERT  CHARACTER 

2532 

GOSUB 

4 

119 

(1) 

GOTO 

2316  : 

REM  SET  TO  BEG  OF  BFR 

2536 

GOSUB 

4 

119 

(2) 

GOTO 

2316  : 

REM  SET  Tn  END  OF  BFR 

2540 

REM  ** 

2544 

RETURN 

REM  EXIT 

0 


' 


767 


AUI  HCJR  Syst  em 


P Pi-sa  5 e-  3 


ATH 3tDTP 


114 


2648  REM  ** 

2552  REM  ** 

2560  REM  **  Function  > To  position  cusor  left  or  right  of 


2564 

REM  ** 

current  position. 

2668 

REM  ** 

Variables 

> 

2S72 

REM  ** 

RO*<  > 

> 

character  bufr  ! 

R1 

> 

crt 

pos  <row> 

2676 

REM  ** 

R5 

> 

buf  indx  <col>  ! 

R2 

> 

crt 

pos  <col> 

2680 

REM  ■*+ 

R3 

> 

bufr  indx  linr  ! 

R4 

> 

buf 

indx  Crow 

2684 

REM  ** 

10 

> 

length  of  move  ! 

2588  REM  ** 

2596  UEFFN  ' 11A  (10)  : REM  ENTRY 


2600 

R2  ~ R2  ♦ 10 

2604 

2608 

IF 

R2  > 0 

R2  = R2  + 64 

THEN 

2612 

2616 

GOTO 

REM  ** 

2628 

2620 

2624 

2628 

IF 

R2  < 65 

R2  - R2  - 64 

R5  = R2 

THEN 

2632 

2636. 

GDSUB  ' 
RETURN 

101  <R1,R2,0,0> 

: REM  CMPUT  NEW  COL  INDX 

2620  : REM  NOT  PAST  LEFT  MRGN 

: REM  SCLE  FOR  RAP  AROUND  II 

: REM  BRANCH  FOR  SCROLL 

2628  : REM  NO!  PAST  RCHT  MRGN 
: REM  SCLE  FOR  RAP AROUND 
: REM  SET  NEW  COL.  INDX 
: REM  POSITION  CUSOR 
! REM  EXIT 


AUTHOK  S/5tem 


P ha  s-  3 


ATH  3tD  I 


1 1 £5 


o 


8640  REM  ** 

8644  REM  ** 

2648  REM  **  Subroutine 


1 1 S 


26  sa 

REM 

** 

Function  > To  position  cus 

or  i 

up 

or 

down 

of 

2656 

REM 

** 

current  position. 

2660 

REM 

*•* 

Variables  > 

2664 

REM 

*■* 

R0*<  > > character  bufr  ! 

R1 

> 

crt 

pos 

<row> 

ass  8 

REM 

*-* 

R5  > buf  indx  <col>  ! 

RS 

> 

crt 

pos 

<col> 

asi  a 

REM 

•** 

R3  > bufr  indx  linr  ! 

R4 

> 

buf 

ind 

x <row> 

2676 

2680 

2684 

2688 


REM  ** 
REM  ** 
REM  ** 
REM 


10  > length  of  move  ! Rl*<)>  storage  bufr 

R8*()  > micro  cmnds  ! 


2692 

DEFFN  ' 115 

< 10) 

• 

■ 

REM 

OS  9€. 

IF 

10  < 

17 

THEN 

8704 

• 

REM 

aioo 

10  = 

15 

• 

• 

REM 

8704 

R4  = 

R4  ♦ 10 

REM 

8708 

IF 

R4  > 

0 

THEN 

8784 

REM 

871  a 

R4  = 

H4  + 16 

rM 

8716 

GOTO 

8736 

1 

8780 

REM  ** 

8784 

IF 

R4  < 

17 

THEN 

8736 

8788 

R4  = 

R4  - 16 

: 

hi. 

8738 

REM  ** 

8736 

R1  = 

R4 

; 

RE  . 

8740 

GOSUB  ' 101 

(R1,R8,0,0) 

: 

REM 

8744 

RETURN 

: 

REM 

MOT  OVER  BOTTOM 
SOLE  FOR  RAP AROUND 

RESET  CRT  POSITION 


769 


AU I HQR  System 


P ha se  3 


ATH  3E.D  I P 


1 1 e. 


REM  ** 

HEM  ** 

REM  *♦  Subroutine  »-*-»-»»« » x ihhuhuhuh 
REM  **  Function  > To  Change  current 
REM  ** 

REM  **  Variables  > 

REM  **  R0*O  > character  buffer  ! 
REM  **  R3  > buffer  indx  ! 

REM  ** 

DEFFN  ' HE 

COSUB  ' 108  (R0*( 1 ) ) 


character  only. 


Rl*()  > storage  bufr 


1 1 e 


ERASE  ! UNDHSCR  f EDIT  ! ESCAPE  ! CRLF  ! OTHER  ! 


DEFFN  ' life 
COSUB  ' 108  <R0*<1>) 

RO  = VAL(R0*<1)) 

REM  ** 

REM  *+  ! ERASE  ! UNDHSCR  ! 

REM  **  ! ! ! - 

ON  RO  GOTO  283E  , 2828  , 2840 

REM  *♦  ! ! ! 

REM  ** 

GOSUB  ' 110  <RO*(l>) 

GOSUB  ' 112 
REM  *+ 

*GI0  TONE  /005  <R8*<7> ,H8*<9> ) 

10  = 0 

REM  *+ 

10  = 10  - 1 
IF  10  > 0 

RETURN 


t REM  ENTRY 

: REM  ENTER  A CHARACTER 
: REM  CONV  10  AN  INDX 


, 2840  , 283€.  , 2824  : REM  BRNCH 

i i i i 


GOTO  2848  : REM  INSERT  CHARACTER 
GOTO  2848  : HEM  UNDERSCORE  CHAR 

: REM  INVALID  CHARACTER 
: REM  SET  INDX  END 

: REM  DECRMT  INDEX 
THEN  2792  : REM  CONT  CHAR  CHANGE 
: REM  EXIT 


tr 


ALJ'l  HCIFt  : 

5860 

REM  ** 

5864 

REM  ** 

5868 

REM  **  ! 

5875 

REM  **  1 

5876 

REM  ** 

5880 

REM  **  < 

5884 

REM  ** 

5888 

REM  ** 

5895 

REM  ** 

5896 

REM  ** 

5-300 

REM  ** 

5904 

REM  **■**■ 

5908 

DEFFN  ' 

5915 

5916 

IF 

5950 

5954 

5-358 

MAT  COPY 

5935 

GOSUB  ' 

5936 

GOSUB  ' 

5940 

RETURN 

iy  s-t  ui 


P ha  s t? 


— ATH3tD(H  — 


Subroutine 

Function  > To  Delete  a string  of  characters. 


1 1 7 


Variables 
Rl*<>  > 
R9*< ) > 
R3  > 


RS 


storage  buffer 
scratch  buffer 
buffer  index 
crt  pos  <col> 


RO  > spcs  in  bufr 
10  > spcs  to  delete 

R1  > crt  pos  <row> 

R6  > top  line  of  buf 


117 


RO 

10 

10 

19 


1054 

RO 

RO 

1054 


- R3  + 1 


THEN  5-354 


R3  + 1 

Rl*<  KR3+I0, 19-I0>  TO  R1*<KR3, 19> 
151  <R6) 

101  (R1,R5,0,0) 


REM  ENTRY 

REM  CMPUT  SHOE  AV1ABLE 
REM  SPACE  AVA I ABLE 
REM  SET  TO  MAX  SPACE 
REM  CMPUT  TRNSFR  SPACE 
REM  CLR  BUFR  TEXT 
REM  RE-WRITE  SCREEN 
REM  POSIT  ION  C.USOR 
REM  EXIT 


1 


AUTHOR  System:  Phase  3 — ATH3EDTP  - 1 1 S 


REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
RtM  ** 
RtM  ** 
REM  ** 
REM  ** 
REM  ** 
RtM  ** 
REM  *+* 
DEFFN  ' 


MAT  CORY 
MAI  SEARCH 

It 


Function  > To  Insert  characters  into  the 


1 1 8 


buffer. 


Variables 


RO  > max  spcs  to  insrt!  R1 
R2  > crt  pos  <col>  ! R3 
Rl*()  > storage  buffer  ! R4 
R2*<>  > search  result  ! R5 
R9<<)  > scratch  buffer  ! 10 


crt  p 
buf  f e 
buf  p 
buf  p 
spcs 


os  <row> 
r indx 
os  <row> 
os  <col> 
to  insrt 


IP 

GOTO 
REM  ** 


118  <I0) 

RO  = IE 

-Rl*<  ><(R0-1  )*&A+1 , 6A>  TO  R9*<)<1,64> 
CH  R9*<X1,6A>,  <>  R5*<1)  TO  R2»() 

R2*<1>  <>  HEX ( OOOO ) THEN  303a 

RO  = RO  - 1 

RO  = O THEN  3035 


= < 16-R0)*€>4  + FNR  ( VAL  < R2$  ( 1 ) ) ) 


10  < RO 


THEN  30 A A 


MAT  COPY 
MAT  COPY 
GOSUB  ' 
cosue  ' 
PRINT 
GOSUB  ' 
GOSUB  ' 


10  = RO  - 1 

19  = (lOSA-RO)  - R3  + a 
-Rl*<  )<R3,  I9>  TO  -RISK  XR3+I0, I9> 
R5*<)<1,1>  TO  R1*<KR3,  I0> 
iei  (Re) 

101  (IE, 1,1,7) 

"Insert 

101  <R1,R2,0,0) 

108  ( RO* ( 1 ) ) 

RO  = VAL ( RO* ( 1 ) ) 


REM  ENTRY 

REM  SET  TO  LAST  LINE 
REM  REVERSE  CUPY 
REM  SWCH  FOR  NON  BLANK 
REM  NON  BLANK  FOUND 
REM  DECKMNT  ROW  INDX 
REM  BLANK  BUFFER 
REM  CONT  SEARCH 

REM  CMPUT  FREE  SPACE 
RtM  SPACE  IS  AVAIABLE 
REM  SET  TO  MAX  SPACE 
REM  CMPUT  TRNSFR  SPACE 
REM  REVERSE  COPY 
REM  C.LR  INSRT  SPAC 
REM  RE-WRIIE  SCREEN 
REM  POSITION  CUSOH 

REM  POSITION  CUSOR 
RtM  ENTER  A CHARACTER 
REM  CONV  TO  AN  INDX 


RtM  *-» 

REM  ** 

REM  ** 

ON  RO  GOTO 
RtM  ** 

REM  ** 

GOSUB  ' Hi 
GOSUB  ' 11 
GOSUB  ' 11, 


ERASE  ! UNDR SCR 


ESCAPE  * CRL.F  ! OTHER  ! 


31 lfc  , 310A  : REM  BRNCH 


110  <R0*<1>> 

111 


GOTO  3072 
GOTO  3072 
GOTO  3072 


T.CIO  TONE  /OOS  <R8*<7>  ,R8*(9>  ) 
COSUB  ' 101  (1C, 1,1,7) 

PRINT  "Edit  " 

GOSUB  ' 101  <Rl,Ra,0,0> 

RETURN 


REM  SAVE  CHAR  IN  BUFR 
REM  RUBUUT  CHARACTER 
RtM  UNDERSCORE  CHAR. 
REM  EXIT  INSERT  MODE 
REM  POSITION  CUSOR 

REM  POSIT  ION  CUSOR 
REM  EXIT 


AU 

3136 

3140 

3144 

3148 

3155 

3156 
3160 
3164 
3168 

3175 

3176 
3180 
3184 
3188 
31 '35 
31'36 
3500 
3504 
3508 


1 HCJN  System:  Phase 


ATH3EDTP  —31 


REM 

HEM 

HEM 

REM 

HEM 

REM 

REM 

REM 

HEM 

HEM 

REM 

HEM 


** 

■If* 

** 

Subroutine  **************************************■*■*•**■*-*•* 
Abstract  > 

** 

** 

** 

To  position  the  cusor  at 
text  buffer. 

Variables  > 

the 

begining  or  end  of  the 

** 

19  > position  index 

1 

R6  > top  lin  on  crt 

** 

R1  > crt  pos  <row> 

1 

R5  > crt  pos  <col> 

** 

** 

R4  > bufr  pos  <row> 

1 

R5  > bufr  pos  <col> 

1 9 


DEFFN  ' 119  (19) 

R1  * <I9-1)*15  + 1 

R5  = <19-1 >*63  + 1 

R4  = <19-1  >-*15  + 1 

R5  = ( 19-1 )*63  + 1 

COSUB  ' 101  <R1,R5,0,0) 

RETURN 


REM  ENTRY 

REM  SET  CHI  ROW  POS 
REM  SET  CRT  COL  POS 
REM  SET  BUFR  ROW  POS 
REM  SET  BUFR  COL  POS 
REM  POSIT  ION  CUSOR 
REM  EXIT 


ALJTI— IQR  System 


P hi3  & C?  j 


ATH3tDTP 


ISO 


REM  ** 

REM  ** 

REM  **  Subroutine  hhhhhhhhhhh>»«.» b j j q 

REM  **  Function  > To  compute  the  cycle  number. 

REM  *"*  Variables  > 

REM  **  R3*  > number  string  ! 10  > length  of  string 


REM  **  R3S  > number  string  ! 10  > length  of  s 
REM  ** 

REM  ***********^***^**-)H»-»-»'****-»***-»**-»-»-***-****.* 
DEFFN  ' 150  < 10,19)  : 

19  =19+1  : 

STR<R2*,I9, 1)  - RO$< 1 ) 

IF  NUM<  R3$ ) <>  64  THEN  3376  : 

CONVERT  R3*  TO  10  : 

IF  10  > 64  THEN  3376  : 

IF  10  > 0 THEN  3393  : 

REM  *■* 

*GI0  TONE 


INIT (30) 
RETURN 


/OOS  <R8*(7),R8*(9) ) 
10  = 1 
19  = 0 

R3* 


REM  ENTRY 

REM  I NCR  NUMBR  JNDX 
REM  INSR'I  "'TGIT 
REM  INVALID  NUMBER 
REM  C.MPUT  NUMRC  VALUE 
REM  ILL.EAGL  VALUE 
REM  L.EAGL.  VALUE 

REM  INPUT  ERROR 
REM  SET  TO  DEFALT  VAL 
REM  RESET  NUMBR  LIN 
REM  CLR  NUMBR  BUFR 
REM  EXII 


■*  r 


AUTHOR  System:  F’-t-.-Ease-  3 — ATH3LDIP 


3 596 

3300 
3304 
3308 
331  s 
3316 
3350 

3354 
3358 
3335 
3336. 
3340 
3344 
3348 

3355 

3356 
3360 
3364 
3368 

3375 

3376 
3380 
3384 
3388 
3395 
3396. 
3400 


REM  ** 

REM  ** 

REM  ** 

RLM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  *+ 

REM  ** 

REM 
DEFFN  ' 151 
IN1T  <5E) 
$GI0  HOME 
REM  ** 

FOR 

IF 

IF 

*C10  FILL 
GOTO 

*G10  PRINT 
IF 

*G10  CRLF 
NEXT 
GOLUB 
PRINT 
REM  ** 
RETURN 


Subroutine 
Function  > 

Variables  ' 
R9  > 
R9*<>  > 


1 5 1 


To  roll  sere 
advanced  off 

> 

scratch 
scratch 


en  when  position  is 
of  screen. 

! Rl*< ) > storage  bufr 
! R6  > top  of  pag  indx 


101 


<R6) 

R9*< ) 

/005  <4001,R8$(9> ) 

R3  * R6  TO  R6+15 
R9  <=  0 
R9  <=  16 

/0O5  < AOOO  ,R8*<9>> 
3376 

/005  < AOOO  ,R8*<9>> 

R9  = R6+15 

/OOS  ( 400D400A  ,R8*< 

R9 

(16,1,1,7) 

"Edit  *; 


: REM  ENTRY 

: REM  LOAD  SCRATCH  BUFR 
: REM  HOME  CUSOR 

: REM  BEG  REWRITE  LOOP 
THEN  3364  : REM  OUTSIDE  PAG  LIMIT 
THEN  3375  : REM  INSIDE  PAG  LIMITS 
R9*(K1,64>  : REM  PRINT  FILL  LINE 

: REM  CONT  OUTPUT  LOOP 
R 1* < ) < ( R9- 1 ) *64  + 1 , 64 > : REM  PRINT  TEXT 
THEN  3384  : REM  NULL  ADVANCE 
9) ) : REM  PR 3 NT  CRLF 

: REM  CONT  REWRITE  LOOP 
: REM  POSIT  ION  CUSOR 


: REM  EXIT 


AUTHOR 

S/st  ein:  Phac-e  ."3  — 

ATH3ED  ! r>  — X 

3404 

REM  ** 

3408 

REM  ** 

3412 

REM  ** 

Subroutine  *,ihhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh>  i 2 

3416 

REM  ** 

Function  > To  set  End  of  Data  Flag 

and 

3420 

REM  ** 

Save  buffer  on  disk. 

3424 

REM  ** 

Variables  > 

3428 

REM  ** 

R2*  > eof  flag  ! 11  > item  id 

3432 

REM  ** 

12  > strge  fnct  code  ! 

3436 

REM  ** 

3440 

3444 

DEFEN 

123 

REM 

ENTRY 

3448 

GOSUB  ' 

101  (16,1,1,18) 

REM 

POSITION  CUSOR 

3452 

PRINT 

“System  Working...  *; 

REM 

PRINT  SYS  BUSY 

3456 

REM  ** 

3460 

RO*  =•  01* (D2+1 ) 

REM 

FETCH  BEG  ADDRS 

3464 

R3*  = HEX(OFFF) 

REM 

DEFN  ADRS  MASK 

3468 

AND 

(RO*, R3* ) 

REM 

Cl.R  VOL  ID  BYTE 

3472 

REM  ** 

3476 

FOR 

RO  = 1 TO  1024  STEP  256 

REM 

BEG  SAVE  LOOP 

3480 

MAT  COPY  Rl*< )<R0,256>  TO  09* < ) < 1 , 2S6> 

REM 

LOAD  I/O  BUFFER 

3484 

DATA  SAVE  BA  T #3,  (RO*,RO*)  09*0 

REM 

SAVE  TEXT  ON  DSK 

3488 

NEXT 

RO 

REM 

CONT  SAVE  LOOP 

3492 

REM  ** 

3496. 

RO* ( 1 ) = HEX(FF) 

REM 

SET  EOF  FLAG 

3500 

REM  ** 

3504 

LOAD  DC 

T #1,  " ATH3LSTP  “ 1500,  999-3 

3508 

REM  ** 

3512 

RETURN 

; 

REM 

EXIT 

776 


r’  Trtri^ 


- rs,  — .a 


I 


AUTHOR  Syst em = 


P ha  s-  e>  3 


ATH3ED1  F>  — 1 S 


3516  RtM  ** 

3550  RtM  ** 

355A  REM  **  Subroutine  ^*****^****************^***************“>H(-*  12  4 
3558  RtM  **  Function  > To  position  cusor  and  buffer  pointer 
3532  RtM  **  such  that  the  next  character  entered  will 


3536.  REM  ** 


appear  on  next  line. 


3540 

3544 

3548 

3555 

3556 
3560 
3564 
3568 

3575 

3576 
3580 
3584 
3588 
3595 


REM  ** 
REM  ** 
RtM  *■* 
REM  ** 
REM  ** 
REM 
DEFFN 

IF 

GOSUB 
MAT  COPY 


Variables  > 

RO*(  ) > character  buffer  ! R5 
R5  > buffer  indx  <col>  ! R4 
R1  > crt  pos  <row>  ! R3 


crt  po 
buffer 
1 inear 


154 

R0*<1>  = HEX (50) 

R5  « 64  THEN  3596. 

101  ( R 1 , R5+ 1 , 1,64- R5 ) 

R0*<  > <1 , 1>  TU  H1*0<R3,64-R5> 

55  = 63 
R5  - 63 


RtM 


s <col> 
indx  <row> 
buf r indx 


REM  ENTRY 

REM  CLR  INPUT  BUFR 
RtM  END  OF  LINE 
RtM  ERASE  SCRN  TEXT 
REM  ERASE  BIJFR  TEXT 
RtM  SET  TO  LINE  END 
REM  SET  TO  LINE  END 


3596. 

IF 

R4  <>  16 

3600 

*GIO  TUNE 

/OOS  (R8*<4),R8*<9) > 

3604 

GOSUB  ' 101 

(R1,R5,0,0) 

3608 

R3  = (R4-1 ) *64  + R5  ♦ 

3615 

GOSUB  ' 110 

<R0*< 1 ) ) 

3616 

RETURN 

THEN  3604 


REM  NOT  LAST  LINE 
REM  WARNING  TONE 
RtM  POSIT  ION  CUSOR 
RtM  CMPIJT  BIJFR  POS 
REM  SAVE  CHAR  IN  BUFR 
REM  EXIT 


A 


c 


777 


AUTHOR  System:  F»  »-..=&  s- ts-  3 


ATH 3EDTP  — 


1500 

- 

3504 

1540 

1548 

1668 

- 

1668 

1756 

- 

1764 

1800 

1772 

- 

1756 

1796 

- 

1756 

1772 

1780 

1802 

- 

1784 

1788 

1880 

- 

1868 

1884 

- 

1868 

1888 

- 

1868 

1892 

- 

1868 

1896 

- 

1868 

1900 

- 

1868 

1904 

- 

1880 

1884 

1888 

2000 

1980 

1988 

2028 

- 

2012 

2040 

- 

2000 

2060 

- 

1972 

2052 

2164 

- 

2144 

2176 

- 

2124 

2140 

2296 

- 

2404 

2316 

2464 

2504 

2508 

2340 

- 

2500 

2344 

- 

2352 

2360 

2344 

2420 

2412 

2384 

2420 

- 

2332 

2420 

2440 

2388 

2460 

- 

2344 

2376 

2484 

- 

2372 

2380 

2432 

2500 

- 

2484 

2504 

- 

2484 

2508 

- 

2484 

2512 

- 

2484 

2516 

- 

2484 

2520 

2484 

2524 

- 

2484 

2528 

- 

2484 

2532 

2484 

2536 

- 

2484 

2544 

- 

2452 

2620 

- 

2604 

2628 

- 

2612 

2620 

2704 

- 

2696 

2724 

- 

2708 

2736 

- 

2716 

2724 

2792 

- 

2852 

2824 

- 

2812 

2828 

2812 

2836 

2812 

2840 

- 

2812 

2848 

- 

2824 

2828 

2924 

- 

2916 

3004 

- 

3024 

3032 

- 

3012 

3020 

3044 

- 

3036 

3072 

- 

3104 

3108 

3112 

3104 

- 

3092 

MAP 


778 


* w 3108  - 3092 

3112  - 3092 

3116  - 3092 

3120  - 3092 

3276  - 3256  3264 

3292  - 3268 

3364  - 3356 

3372  - 3360 

3376  - 3368 

3384  - 3376 

3596  - 3572 

3604  - 3S96 

(9999)  - 3504 


o 


779 


I HQK 


P hai  b c 


.■3 


MAH 


Sy  &"t  t?m 


D5  - 3460 
El  - 1644 


10 

- 

3334 

3500 

3504 

3508 

3513 

3516 

2848 

3a80 

3853 

3916 

3-930 

3938 

3-9-36 

19 

— 

a3ao 

3284 

3500 

3934 

3-338 

3044 

3048 

Ql*< 

- 

3460 

o a*< 

- 

i67a 

5393 

Q9«( 

- 

3480 

3484 

RO 

- 

lssa 

1868 

3368 

3416 

3484 

3796 

3033 

3036 

3040 

3044 

3076 

3093 

RO* 

- 

3460 

3468 

3484 

R0*< 

“ 

1540 

1544 

1548 

1664 

1668 

1748 

1380 

1968 

3060 

3064 

3330 

3334 

3384 

3416 

3430 

37-33 

3796 

3834 

R1 

- 

1630 

1696 

3013 

3016 

3038 

3033 

3936 

306.8 

3138 

3188 

3304 

3576 

Rl* 

- 

1648 

3333 

3364 

3413 

Rl*( 

- 

1616 

1656 

1673 

1676 

1753 

3060 

3004 

3048 

3053 

3373 

3480 

3580 

R2 

- 

1634 

1696 

1980 

3000 

3004 

3033 

3448 

3600 

3604 

3608 

3630 

3634 

3573 

3576 

3580 

3584 

3604 

Re* 

- 

1653 

3316 

3353 

3356 

3360 

3388 

Ra*< 

- 

3008 

3013 

3033 

R3 

- 

1638 

1973 

3060 

3068 

3134 

3133 

3938 

3044 

3048 

3053 

3580 

3608 

R3* 

- 

3464 

3468 

R4 

- 

1633 

1753 

1988 

3030 

3036 

3160 

3736 

3196 

3596 

3608 

R4*< 

- 

1676 

1776 

3360 

3396 

R5 

- 

1636 

1753 

3008 

2044 

3153 

3168 

RS*< 

- 

3133 

3008 

3053 

R6 

- 

1640 

1680 

3400 

3-333 

3056 

3336 

R8*< 

- 

1753 

1760 

1796 

1984 

19-33 

3048 

3116 

3376 

3344 

3364 

3373 

3380 

R9 

“ 

3353 

3356 

3360 

3373 

3376 

3384 

R9*< 

- 

1660 

3004 

3008 

3340 

3364 

ATH3EDTH  — V 


3538 

3036 

3596 

3040 

3600 

3048 

3698 

3053 

3696. 

3344 

3700 

3860 

3704 

3364 

3840 

3368 

3184 

3188 

3193 

31-96. 

3300 

3344 

3348 

3353 

3813 

3476. 

3-313 

3480 

3916 

3488 

3-330 

3000 

3004 

3016 

3030 

1756. 

1773 

1776 

1780 

1784 

1788 

1848 

1853 

3338 

3333 

3344 

336-0 

336-8 

3373 

3376 

23 80 

3073 

3076 

3104 

3353 

3496. 

3568 

3580 

3613 

3138 

3604 

3156 

3173 

3308 

3448 

3633 

3736 

3740 

3133 

3330 

3333 

3340 

3398 

33-36. 

3434 

3338 

3040 

3058 

3138 

3144 

3148 

3164 

3178 

3308 

3638 

3638 

3740 

3936- 

306.8 

3138 

3193 

3804 

2136 

ru 

K 

■P" 

O 

3230 

3838 

2328 

2388 

2-913 

2324 

3328 

3340 

3424 

2704 

3708 

2713 

3784 

3788 

2338 

3340 

3434 

3638 

3300 

3588 

3608 

3353 

3376 

3056 

3600 

306.4 

2340 

3348 

3424 

2438 

3460 

2836 

r 


780 


MAI- 


AUIHC3R  System:  Phase  3 — ATH3EUTP  — ' M* 

OOOO  DEFFN'  0 
GOOl  OEFFN'  1 

0002  OEFFN ' 2 

0003  DEFFN'  3 
????  OEFFN ' 101 

- less  ie-ae  2032  212s  2172  2300  2308  2440  244s  2632  2740  2936  3oeo  3oes 

3120  3128  3204  3388  3448  3576  3604 
1612  OEFFN'  107 

- 1536 

1748  DEFFN'  108 

- 1540  2732  3072 
1848  OEFFN'  109 

- 1544 

1968  DEFFN'  110 

- 1880  2824  3104  3612 
2120  DEFFN'  111 

- 1884  3108 
2216  DEFFN'  112 

- 1888  2828  3112 
22-36  DEFFN'  113 

- 1892 

2596  DErFN'  114 

- 2504  2508 
2692  DEFFN'  115 

- 2512  2516 
2788  DEFFN'  116 

- 2520 

2-308  DEFFN'  117 

- 2524 

29-36  DEFFN'  118 

- 2528 

3184  DEFFN'  119 

- 2S32  2536 
3244  DEFFN'  120 

- 2500 

3336  DEFFN'  121 

- 1680  2400  293 2 3056 
3444  DEFFN'  123 

- 18-36 

3564  DEFFN'  124 

- 1300 
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FORMAT  DATA  SUBPROGRAMS 

These  data  subprograms  provide  the  format  definitions  for  the 
learning  module.  These  subprograms  are  loaded  by  the  'AUTHOR/3' 
construction  routines.  For  instructions  on  how  to  examine  the 
formats  see  section  6.0  in  Volume  1. 

ATH101.0 

The  'ATHlfll.JJ'  subprogram  contains  the  format  definition  for  the 
Introduction  page. 

The  remainder  of  this  section  presents  the  'ATH101.0'. 


782 


AUTHOR  Syst em 


P ha se  1 


ATH 101-0 


I-  d rma  -fc 


9000  X##  Data  Subprogram  > AUTHOR/1  (ATH101.0)  Version  > 8.0  T /VP  780317 

9010  REM  **  Data  Subroutine  *###<hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhI’  o 1 .0 
•9080  HEM  ** 

9030  HEM  **  ATH101.0  contains  format  descriptions  for 

9040  HEM  **  - The  Introduction  Rage  <1.01 

90S0  HEM  ** 

9060  HEM  *hhhhhhhhmhhhhhhhhhhhhhhhmhhhhhhhhhhhhhhhhhmh»' 

9070  HEM  ** 

9080  GOSUB  - 80b  (1)  : REM  LOAD  HIRST  RAGE 

9090  GOSUB  ' 050  : REM  RETURN  JUMP 

9100  HEM  ** 

9110  HEM  **  FORMAT  DESGRIRT10NS 

9180  HEM  ** 

9130  DATA  01, OS, 18,00, "INTRODUCTION" 

9140  DATA  01, OS, 18,05, " * 

9150  DAI  A 01,18,38,04,*  “ 

9160  DATA  08,06,08,00, "Learning" 

9170  DATA  03,06,09,00, "Objective* 

9130  DATA  07,84,35,00, "This  lesson  will  help  you  learn* 

9190  DATA  08,84,35,00, "easily  and  quickly." 

9800  DATA  10,84, 45,08, "for  best  results,  follow  the  directions." 

9810  DATA  11,84,37,04,"  “ 

9880  DATA  18, 06, 15, 00, " Index " 

9830  DATA  18,84, 40,00, "When  you  need  an  index  to" 

9840  DATA  13, 84 , 40, 00, * locate  practice  exercises  for" 

9850  DATA  14,84, 40,00, " ref resher  training...* 

9860  DATA  14, 53, 1 1 , 00, ‘Go  to  :indx* 

9870  DATA  16,41,83,00, *To  continue  Go  to  inxtO" 

9880  DATA  00,00,00,09,*  “ 


O 


783 
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ATH102.0 

The  'ATHlfS2.0'  subprogram  contains  the  format  definition  for  the 
Importance  of  this  Program  to  You  page. 

The  remainder  of  this  section  presents  the  'ATH102.0'  subprogram 
listing. 


AUTHUR  fciy5.-t«?m:  Phase  1 — ATHIOS.  O — 


Z#t>  Data 
HtM  ** 
HEM  ** 
HtM  ** 
HtM  ** 
HtM  ** 
HtM  **** 
HtM  ** 
GOSUB  ' 
GUSUB  ' 
HtM  ** 
HEM  ** 
REM  ** 
DATA  01, 
DATA  Ol, 
DATA  01, 
DATA  02, 
DATA  03, 
DAI  A 08, 
DATA  03, 
DAI  A 10, 
DATA  03, 
DATA  IS, 
DATA  00, 


Subprogram  > ATH102.0  (ATH102.0)  Version  > 2.0  T/VP  78031? 

ATH102.0  contains  format  descriptions  for 
- The  Importance  of  Program  (2.0) 


205  (1) 
050 


REM  LOAD  FIRST  PAGE 
HtM  RETURN  JUMP 


FORMAT  DESCRIPTIONS 


05. 33. 00,  " IMPORTANCE  Of  THIS  PROGRAM  TO  YOU* 
OS, 33,05,*  " 

33. 17.04,  * “ 

05. 10.00,  * Importance* 

05. 15.00,  “of  Symbols" 

24.37.04, "  * 

05. 03. 00,  “How  Skill" 

05. 12.00,  "Will  be  Used" 

24. 37.00,  "This  program  will  help  you  to:" 

53. 11.00,  "Go  to  :nxtO" 

00,00,03,"  " 
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6.3  ATH103.0 

The  'ATH1H3.0'  subprogram  contains  the  format  definition  for  the 
Example  of  How  the  Symbols  Are  Used  page. 

The  remainder  of  this  section  presents  the  'ATH103.0'  subprogram 
listing. 


1 


,y- <• 


AUTHOR  System:  Pha&e 


— ATH lOS.O 


•3000 
9010 
9020 
9030 
9040 
90S0 
906.0 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
91  BO 
9160 
9170 


ATH103.0  contains  format  descriptions  for 
- The  Example  of  Symbols  <3.0) 


Xtt#  Data  Subprogram  > ATH103.0  (A1H103.0)  Version  > 2.0  T/VP 
RtM  *■*  Data  Subroutine 
Rfctl  ** 

RtM 
RtM 
RtM 
RtM 
RtM  ** 

GOSUB 
GOSUB 
RtM  *■* 

RtM  ** 

RtM  ** 

DATA  01,06,36,00,  "EXAMPLE  UF  HtJW  THE  SYMBOLS  ARt  UStD 
UA1A  01,06,  36., 05,  * " 

DATA  01,42, 14,04, “ “ 

DATA  16,B3, 11,00, “Go  to  :nxtO" 

DATA  00,00,00,09,"  “ 


780317 
0 3 


20b  (1) 
ObO 


RtM  LOAD  FIRST  RAGL 
RtM  RETURN  JUMP 


FORMAT  DESCRIPTIONS 


t—  d rmo  -fc 
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6.4  ATH1  (94.(5 

The  * ATH1 04. 0 ' subprogram  contains  the  format  definitions  for  the 
following  pages: 

. Symbol  Pre-Test  (Directions) 

. Optional  Criterion  Test  (Choose  #1  or  #2) 

. Optional  Criterion  Test  (Directions) 

The  remainder  of  this  section  presents  the  'ATH104.0'  subprogram 
listing. 


AUTHOR  Syst  ern  = 


X — ATH 1 _ O 


F~  o rm^a  -fc 


9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

•30-90 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

91-30 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

93-30 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 


X##  Data  Suoprogram  > AUTHOR/1  (ATH104.0)  Version  > 2.0  T/VP  780317 
REM  ** 

REM  *■*  ATH104.0  contains  format  descriptions  for 

REM  **  - Symbol  Pre-Test;  Directions  (4.1) 

REM  **  - Symbol  Pre-Test;  End  of  Test  (4.2) 

REM  **  - Optional  Criterion  Test;  Directions  (5.1) 

REM  ** 

REM  ** 

GOSUB  ' 205  (1)  : REM  LOAD  FIRST  PAGE 

GOSUB  ' 050  .’  REM  RETURN  JUMP 

REM  ** 

REM  **  FORMAT  DESCRIPTIONS 

REM  ** 

DATA  01,06, 15,00, “SYMBOL  PRETEST" 

DATA  01,06,15,05,“  “ 

DATA  01,21,35,04,”  “ 

DATA  02,06,07,00, “Purpose" 

DATA  06,06, 10,00, “Directions" 

DATA  12,06,08,00, "Symbols" 

DATA  02,24,40,00, "The  pretest  will  help  you* 

DATA  03,24,40,00, "decide  whether  you  should  try  the" 

DATA  04, 24, 40, 00, “ criterion  test  at  this  time." 

DATA  05,24,37,04,*  “ 

DATA  06,24, 40, 00, “ 1 . You  may  already  know  some  or  all" 

DATA  07,24,40,00, “of  these" 

DATA  09, 24, 40, 00, “2.  Look  through  the  list  of  symbols" 

OATA  10,24,40,00, “below  and  see  how  many  you  can  define." 

DATA  11,24,37,04,“  “ 

DATA  16,53, 11,00, “Go  to  :nxtO“ 

DATA  00,00,00,09,“  * 

DATA  01,06,23,00, “OPTIONAL  CRITERION  TEST" 

DATA  01,06,23,05, “ “ 

DATA  01,29,27,04, “ “ 

DATA  02,06,22,00, “Choose  Item  #1“ 

DATA  03,06,22,00,“  Or  Item  #2" 

DATA  02,24,40,00, “1.  If  you  think  that  there  are  THREE" 

DATA  03,24,40,00, “OR  MORE  of  these  symbols  that  YOU  DO" 

DATA  04,24,40,00, “NOT  KNOW,  don't  waste  time  taking  the" 

DATA  05,24, 40,00, “ criterion  test.  Go  directly  to  the  “ 

DATA  06,24,40,00, “ learning  program..." 

DATA  06,53, 11,00, “Go  to  :skf2" 

DATA  08,24,40,00, “2.  If  you  think  you  know  all  the" 

DATA  09,24,40,00, “symbols;  or  you  missed  only  1 or  2“ 

DATA  10, 24, 40, 00, " take  the  criterion  test  and  see" 

DATA  1 1,24, 40, 00, “ if  you  can  pass  it..." 

DATA  16,53, 11,00, “Go  to  :nxt0“ 

DATA  00,00,00,09,“  “ 


789 


9490  DATA  01,06,53,00, ‘OPTIONAL  CRITERION  TEST* 

9500  DATA  01,06,53,05,*  * 

9510  DATA  01,59,57,04,“  * 

9550  DATA  05,06, 10,00, “Directions* 

9530  DATA  05,54, 35,00, *1.  Recall  the  definition  of  each* 
9540  DATA  03,54,40,00, “symbol  on  the  next  frame(s).* 
9550  DATA  05, 54, 35, 00, *5.  Write  each  definition  on  a * 
9560  DATA  06,54, 15,00, “piece  of  paper.* 

9570  DATA  08,54,40,00, *3.  You  must  recall  the  official  “ 
9580  DATA  09,54,40,00, “definition  of  the  symbol  to  be  * 
9590  DATA  10, 54, 40, 00, “ correct  (as  found  in  * 

9600  DATA  16,53, 11,00, “Go  to  :nxtO“ 

9610  DATA  00,00,00,09,“  “ 


790 


O 
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ATH104.1 

The  'ATH1(94.1'  subprogram  contains  the  format  definitions  for  the 
following  pages: 

. Optional  Criterion  Test  (Symbols) 

Optional  Criterion  Test  (Answers) 

Optional  Criterion  Test  (End-of-Test  Directions) 

The  remainder  of  this  section  presents  the  'ATH104.1'  subprogram 
listing. 


AUI 

9000 

9010 

9080 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

3110 

9180 

9130 

9140 

9160 

9160 

9170 

9180 

9190 

9800 

9810 

9880 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9300 

9310 

9380 

3330 

9340 

9390 

9360 

9370 

9380 

9390 

9400 

9410 

948C 

9430 

9440 

9490 

9460 

9470 


HOR  S/&"t  E-m  z Phase  1 — A1H104.  1 — Format 

X##  Data  Subprogram  > AUTHOR/1  (ATH104.1)  Version  > 8.0  T/VP  780317 
REM  ** 

HEM  **  ATH104. 1 contains  format  descriptions  for 

REM  **  - Optional  Criterion  Test;  Symbols  <5. 8) 

REM  *•*  - Optional  Criterion  lest;  Answers  <5. 3) 

HEM  **  - Optional  Criterion  Test;  End  of  Test(S.4) 

REM  ** 

HEM  ** 

GOSUB  ' 809  (1)  : REM  LOAD  f-IHST  RAGE 

GOSUB  ' 090  : REM  RETURN  JUMP 

HEM  ** 

REM  **  FORMAT  DESCRIRT10NS 

REM  ** 

DATA  01,06,33,00, “OR! IONAL  CRITERION  TEST:  SYMBOLS* 

DATA  01,06,33,05,*  “ 

DATA  01,39,17,04,*  " 

DATA  16,53, 11,00, *Go  to  rnxtO* 

DATA  00,00,00,09,*  * 

DATA  01,06,83,00, "OPTIONAL  CRITERION  TEST* 

DATA  01,06,83,09,*  “ 

DATA  01,89,87,04,"  " 

DATA  08,06, 10,00, "Directions* 

DATA  08,84,86,00, * 1.  Check  your  answers  now." 

DATA  03,84, 31 ,00, *8.  Rut  an  X through  your  wrong" 

DATA  04.84,08,00, "answers. “ 

DATA  05,84,37,04,*  * 

DATA  06,06,08,00, "Symbols" 

DATA  06, 36, 07, 00, "Answers* 

DATA  06,06,19,05,"  " 

DATA  06,86,30,09,"  * 

DATA  16, 93, 11,00, "Go  to  InxtO* 

DATA  00,00,00,0-9,"  “ 

DATA  01,06,83,00,  "OR  1 1CJNAL  CRIT  ERION  TEST" 

DATA  01,06,83,05, * " 

DATA  01,89,87,04, " " 

DATA  08,06, 13,00, "Did  you  pass?" 

DATA  08,84,40,00, " 1 . Did  you  miss  or  less  of  the" 

DATA  03,84, 40,00, "symbol  definitions?  If  so,  then" 

DATA  04,84, 33,00, " learn  the  ones  that  you  missed  by" 

DATA  09,84,88,00, "studying  them  on  :skbl  ..." 

DATA  06,48, 16,00, "Then  Go  to  :clos" 

DATA  08,84, 40,00, "8.  If  you  missed  more  than  of  the" 

DATA  09,84,40,00, "symbol  definitions,  complete  this* 

DATA  10,84,88,00, "learning  program  - Now  ..." 

DATA  16,53, 11,00, "Go  to  :nxtO" 

OAI A 00,00,00,09,"  " 
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ATHl  (95 . 0 

The  'ATH105.0'  subprogram  contains  the  format  definition  for  the 
Organization  of  the  Learning  Program  page. 

The  remainder  of  this  section  presents  the  'ATHl 05.0'  subprogram 
listing. 


ALJ  J HON  Sy  5t  em 


P ha  s-  c ± 


ATHIOJS.  O 


f-  d rma  -fc 


9000  X#i»  Data  Subprogram  > AUTHOR/ 1 (ATH105.0)  Version  > 2.0  T/VP  780317 
9010  HEW  **  Data  Subroutine  <hhhhhhhhhhhhhhk«» »♦*»♦  mmwmwwww im  0 5 .0 
9020  HEW  ** 

9030  HEM  **  ATH105.0  contains  format  descriptions  for 

•3040  REM  **  - The  Organization  of  Program  (6.0) 

9050  HEW  ** 

9070  REM  ** 

9080  GOSUB  ' 205  (1)  : REM  LOAD  HIRST  PAGE 

9090  GOSUB  ' 050  : REM  RETURN  JUMP 

9100  REM  ** 

9110  REM  **  FORMAT  DESCRIP110NS 

9120  REM  ** 

9130  DATA  01,06,36,00, ‘ORGANIZATION  OP  THE  LEARNING  PROGRAM- 
9140  DATA  01,06,36,05,-  * 

9150  DATA  01,42, 14,04, " “ 

9160  DATA  02,06,08,00, -Overview- 

9170  DATA  02,24,40,00, “The  list  of  symbols  has  been  divided* 

9180  DATA  03,24, 40,00, * into  ##  practice  sets.  You  will- 
9190  DATA  04,24, 40,00, “ learn  each  set  separately,  using- 
9200  DATA  05-24, 40,00, “the  'Steps  for  Easy  Learning. ' Then* 

9210  DATA  06,24, 40,00, “you  will  practice  all  ##  symbols* 

9220  DATA  07,24,40,00, “in  the  same  exercise." 

9230  DATA  08,24,37,04,“  “ 

9240  DATA  09,06, 14,00, “Steps  for  Easy* 

9250  DATA  10,06,08,00, “Learning- 
9260  DATA  11,06,05,00, *:diaO* 

9270  DATA  11,25,35,04,“  * 

9280  DATA  11,60,02,00, “No* 


9290 

DATA 

12,03,60,00, “! Note  the  ! 

! Learn  ! 

(Practice ! 

(Test  ! 

Did* 

9300 

DATA 

13,03,60,00, “ (Differences! 

! the  ! 

(Defining ! 

(Yourself ! 

You* 

9310 

DATA 

14,03,61,00, “! Among  the  ! 

! symbol  ! 

! the  ! 

i i 

Pass" 

9320 

DATA 

15,03, 59,00, " (Symbols  ! 

(Definitions ! 

(Symbols  ! 

1 1 

?* 

9330 

DATA 

15,04,11,05,“  “ 

9340 

DATA 

15,19,11,05,-  “ 

9350 

DATA 

15,34,08,05,"  " 

9360 

DATA 

15,46,08,04,*  * 

9370 

DATA 

15,58,03,05,“  * 

9380 

DATA 

16,53, 11,00, *Go  to  : nxtO* 

9390 

DATA 

00,00,00,09,*  “ 
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6.7  ATH106.0 

The  'ATH106.0'  subprogram  contains  the  format  definition  for  the 
symbol  list  page. 

The  remainder  of  this  section  presents  the  'ATH106.0'  subprogram 
listing. 


"" 


AU'I  HOH  Phas-u  1 


ATH 1 Ofc  - O — Fo  rma  -fc 


9000 
9010 
9020 
9030 
9040 
90S0 
90€>0 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9 ISO 
9 ISO 
9170 
9180 
9190 
9200 
9210 


2##  Data  Subprogram  > AUTHCJR/1  (ATH10E.0)  Version  > 2.0  1 /VP  780317 
REM  ** 

REM  **  ATH10E..0  contains  format  descriptions  for 

Ft  EM  **  - Symobl  Set;  List  of  Symbols  (7.1.0) 

HEM  ** 


REM  ** 

GOSUB  ' 20S  (1)  : RfcM  LOAD  FIHST  PAGE 

GOSUB  ' 0S0  ; REM  RETURN  JUMP 

REM  ** 

REM  **  FORMAT  DESCRIPTIONS 

REM  ** 

DATA  01, OS, IS, 00, 'SYMBOL  SET  #zz" 

DATA  Ol,0f>,  IS, Ob,  • * 

DATA  01,21, 34,04, * “ 

DATA  02,24,40,00, "The  symbols  in  this  set  are!" 

DATA  13,24,40,00, 'You  will  learn  to  recognize  and" 

DATA  14,24, 40,00, “ define  these  symbols  in  the  next* 

DATA  IS, 24, 40,00, 'few  f rames. ' 

DATA  lfe, S3, 11,00, 'Go  to  InxtO' 

DATA  00,00,00,09, ' ' 


.0 
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ATH106.1 

The  * ATH106. 1 ' subprogram  contains  the  format  definition  for  the 
Note  Differences  Among  Symbols  Flowchart  page. 

The  remainder  of  this  section  presents  the  'ATH106.r  subprogram 
listing. 


AU1 

sooo 

9010 
9020 
9030 
9040 
90  bO 
9060 
9070 
9080 
•3090 
9100 
9110 
9120 
9130 
9140 
91b0 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9290 
9260 
9270 
9280 
9290 
9300 
9310 


HOR  tiyst  em  z P ho  5 d 1 


4TH106. X - Fo 


-fc 


X##  Data  Subprogram  > AUTHCJR/1  <A7H106. 1)  Version  > 2.0  T/VP  780317 
RtM  ** 


HEM  **  ATH106. 1 contains  format  descriptions  for 

HEM  **  - Symobl  Set;  Oiferences  ; Diagram  <7.2.1) 

HEM  ** 

RtM  ** 


GOSUB  ' 20b  <1) 
GOSUB  ' 050 
RtM  ** 


: REM  LOAD  MRS!  RAGt 
: RtM  RETURN  JUMP 


RtM  **  FORMAT  DESCRIPTIONS 

HEM  ** 

DA  I A 01,06,49,00, “SYMBOL  SET  #zz:  NOTE  DIFFERENCES  AMONG  SYMBOLS* 

DATA  01,06,49,05,“  “ 

DATA  01,55,01,04,"  " 

DATA  03,06,05,00, “: dial" 

DA  I A 03,25,35,04,“  “ 

DATA  03,60,02,00, “No* 


DATA 

04,02,62,00, “ ! 

!Note  the  ! ! 

(Learn  } 

(Practice!  (Test 

DATA 

05,02,62,00, “ ! 

(Differences ! ! 

! the  ! 

(Defining!  (Yoursel 

DATA 

06,02,62,00, “ ! 

(Among  the  ! ! 

(symbol  ! 

(the  ! ! 

DATA 

07,02,62,00, " ! 

(Symbols  ! ) 

(Definitions ( 

(Symbols  ! ! 

DATA  07,03,12,05,“  “ 

DATA  07,20,11,05,*  “ 

DATA  07,35,08,05,"  “ 

DATA  07,47,08,04,*  “ 

DATA  07,59,03,05,“  “ 

DATA  08,08,14,00,“*“ 

DATA  09, 03, 40,00, “You  are  here” 
DATA  16,53, 11,00, “Go  to  :nxtO“ 
DATA  00,00,00,09, “ “ 


f 


Did" 
You" 
Pa 

? 


798 


« 
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6.9  ATH106.2 

The  'ATH106.2'  subprogram  contains  the  format  definitions  for  the 
following  pages: 

. Note  Differences  Among  Symbols  (Introduction) 

. Note  Differences  Among  Symbols  (Directions) 

. Note  Differences  Among  Symbols  (Exercises) 

. Note  Differences  Among  Symbols  (Answers) 

The  remainder  of  this  section  presents  the  'ATH106.2'  subprogram 
listing. 


) 


799 


AUTHOR  System:  Phase 


ATHiOe- 


F d r~m< 


9000 

9010 

9020 

9030 

9040 

9050 

9050 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

3270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

3420 

9430 

3440 

9450 

3460 

9470 

9480 

•3490 

9500 

9510 

9520 

9530 

9540 

9550 


Version  >2.0  T /VP 


ATH106.2  contains  format  descriptions  for 


- Symbol  Set;  Diferences 

- Symbol  Set;  Diferences 

- Symbol  Set;  Diferences 

- Symbol  Set;  Diferences 


Intro  (7.2.2) 
Direct ions (7. 2. 3) 
Symbols  (7.2.4) 
Answers  (7.2.5) 


205  (1> 
050 


: REM  LOAD  FIRST  PAGE 
: REM  RETURN  JUMP 

FORMAT  DESCRIPTIONS 

NOTE  DIFFERENCES  AMONG  SYMBOLS" 


X##  Data  Subprogram  > AUTHOR/1  (ATH106.2) 

REM  **  Data  Subroutine 
REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM 
REM  * 

GOSUB 
GOSUB 
REM  ** 

REM  ** 

REM  ** 

DATA  01,06,49,00, “SYMBOL  SET  #zz 
DATA  01,06,49,05, “ “ 

DATA  01,55,01,04,“  * 

DATA  02,06, 12,00, “Introduction" 

DATA  02,24,40,00, “Each  symbol  represents  a different" 

DATA  03,24,40,00, “thing,  yet  some  of  the  symbols  look" 

DATA  04,24,40,00, "very  much  alike.  The  symbols" 

DATA  05,24,40,00, “presented  below  may  be  confused  with" 

DATA  06,24,40,00, “each  other:" 

DATA  09,24,40,00, “Carefully  note  what  makes  the" 

DATA  10,24,40,00, "symbols  above  different." 

DATA  11,24,40,00, “At  this  point  in  the  learning" 

DATA  12,24,40,00, "program,  look  only  at  the  differences" 

DATA  13,24,40,00, “among  the  symbols.  Later  on  in  the" 

DATA  14,24,40,00, "program  you  will  be  given  definitions" 

DATA  15,24,40,00, “associated  with  each  symbol." 

DATA  16,53, 11,00, “Go  to  :nxtO" 

DATA  00  00  00  09  * “ 

DATA  01 1 06,’ 49 ’oo!“ SYMBOL  SET  #zz:  NOTE  DIFFERENCES  AMONG  SYMBOLS" 
DATA  01,06,49,05, “ " 

DATA  01,55,01,04, “ “ 

DATA  02,06,07,00, “Purpose" 

DATA  02,24,40,00, “This  exercise  will  help  you  to  note" 

DATA  03,24,40,00, “the  differences  among  those  symbols" 

DATA  04,24, 40,00, " that  are  often  confused.  After  you" 

DATA  05,24,40,00, "finish  with  this  exercise,  you  should" 

DATA  06,24,40,00, “not  .confuse  similar  symbols." 

DATA  07,24,37,04,“  * 

DATA  08,06,04,00, “Quiz “ 

OATA  08,24,40,00, “ 1.  Read  all  directions  before  going* 

DATA  0*3,06, 10,00,  “Directions" 

DATA  09,24, 18,00, “to  the  next  frame." 

DATA  10,24,40,00, “2.  Look  carefully  at  this  symbol:" 

DATA  12,24,40,00, “3.  Write  the  item  number  of  each" 

DATA  13,24,40,00, “example  of  on  paper." 

DATA  14,24,40,00, “4.  Do  not  look  back  at  this  frame* 

OATA  15,24,40,00, “until  you  have  finished  the  quiz" 

DATA  16,24,40,00, “for  this  symbol." 

DATA  16,53, 11,00, “Go  to  :nxt2“ 

DATA  00,00,00,09,“  * 


780317 

O 6 .2 


800 


o 

9560  DATA  01 , 06, 49, 00, “SYMBOL  SET  #zz:  NOTE  DIFFERENCES  AMONG  SYMBOLS" 
9570  DATA  01,06,49,05,"  “ 

9580  DATA  01,55,01,04,"  " 

9590  DATA  02,06,20,00, "Quiz" 

•9600  DATA  03,06,20,00,  “Symbols" 

9610  DATA  16,53, 11,00,  "Go  -to  :nx-tO" 

9620  DATA  00,00,00,09,"  " 

9630  DATA  01 , 06, 49, 00, "SYMBOL  SET  #zz:  NOTE  DIFFERENCES  AMONG  SYMBOLS" 
9640  DATA  01,06,49,05,"  " 

9650  DATA  01,55,01,04,"  " 

9660  DATA  02, 06, 20, 00, "Qui z “ 

9670  DATA  03,06,20,00, "Answers" 

9680  DATA  02,24, 10,00, "Symbol" 

9690  DATA  02, 24, 15, 05, “ " 

9700  DATA  02, 42, lO, 00, "Exampl es" 

9710  DATA  02,40, 16,05, “ " 

9720  DATA  16,53, 11,00, "Go  to  tnxtO" 

9730  DATA  06,24,37,04,"  * 

9740  DATA  07,06,20,00, "What  Now?" 

9750  DATA  07,24,40,00, " If  you  frequently  missed  examples" 

9760'  DATA  08,24,40,00, "of  these  symbols,  repeat  this" 

9770  DATA  09, 24, 40, 00, " ex  ere i se  ..." 

9780  DATA  09, S3, 1 1 ,00, "Go  to  rskbl" 

9790  DATA  1 1 , 24, 40, 00, " If  you  identified  most  all  of" 

9800  DATA  12, 24, 40, 00, " the  symbols  ..." 

9810  DATA  00,00,00,09,"  " 


c 
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ATH106.3 

The  'ATH106.3'  subprogram  contains  the  format  definitions  for 
the  following  pages: 

. Learn  Symbol  Definitions  (Flowchart) 

. Learn  Symbol  Definitions  (Directions) 

The  remainder  of  this  section  presents  the  1 ATH1  (96 . 3 ' subprogram 
listing. 


AU  l HCJR  System:  Phase  X — ATHlOfc..  23  — F ormat 

9000  %##  Data  Subprogram  > AUTHClR/1  (A1H106.3)  Version  > 5.0  T/VP  780317 

'9010  RUM  **  Data  Subroutine  ,|Hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhi  0 6.3 
9020  RUM  ** 

'9030  RUM  **  ATH106. 3 contains  format  descriptions  for 

•9040  REM  **  - Symbol  Set;  Learn  ; Diagram  (7.3.1) 

9050  HUM  **  - Symbol  Set;  Learn  ; Directions  (7.3.2) 

9060  HEM  ** 

9070  REM 
9080  REM  ** 

90-90  GOSUB  ' 205  (1)  : REM  LOAD  f-IHST  PAGE. 

9100  GOSUB  ' 050  : REM  RETURN  JUMP 

9110  REM  ** 

9120  REM  **  FORMAT  DESCRIP  I IONS 

9130  REM  ** 


9140 

DATA 

01,06,42,00, 

"SYMBOL  SET  #zz: 

LEARN  SYMBOL 

DEFINI1 IONS" 

9150 

DATA 

01,06,42,05, 

M N 

9160 

DATA 

01,48,08,04, 

II  N 

9170 

DATA 

03,06,05,00, 

" : dia2" 

9180 

DATA 

03,25,36,04, 

M M 

9190 

DATA 

03,61,02,00, 

"No" 

9200 

DATA 

04,02,62,00, 

* ! Note  the  ! 

! ‘Learn  ! 

! IPracticc! 

ITest  I 

Did" 

9210 

DATA 

05,02,62,00, 

" !Dif ferences ! 

! ! the  ! 

I IDefining! 

! Yourself ! 

You" 

9220 

DATA 

06,02,62,00, 

" I Among  the  I 

! ! symbol  ! 

! ! the  ! 

1 t 

Pass" 

9230 

DATA 

07,02,62,00, 

“ ISymbols  ! 

I ! Definitions ! 

! ISymbols  I 

1 1 

?“ 

9240  DAI  A 07 , 03, 1 1 , 05, " * 

9250  DATA  07,18,13,05,*  " 

9260  DATA  07,35,08,05,"  * 

9270  DATA  07,47,08,04,*  " 

9280  DATA  07,59,03,05, “ " 

9290  DATA  08,24, 14,00, 

9300  DATA  09, 19, 15,00, "You  are  here* 

9310  DATA  16, 53, 11,00, "Go  to  :nxtO" 

9320  DATA  00,00,00,09, “ “ 

9330  DATA  01 , 06, 42, 00, "SYMBOL  SET  #zz:  LEARN  SYMBOL  DEFINITIONS" 
9340  DATA  01,06,42,05,"  " 

9350  DATA  01,48,08,04,"  " 

9360  DATA  02,06, 15,00, "Directions" 

9370  DATA  02, 24, 40, OO, " 1 . Lool<  carefully  on  the  next  frame" 

9380  DATA  03, 24, 40, 00, " at  each  symbol  and  its  definition." 

9390  DATA  05, 24, 40, 00, "2.  Repeat  the  definition  to  yourself" 
9400  DATA  06, 24, 40, OO, "as  you  look  at  the  symbol." 

9410  DATA  08,24, 40,00, " 3.  Study  the  memory  aid  to  help  you" 

9420  DATA  09, 24, 40, OO, " remember  the  definition." 

9430  DATA  1 1 , 24, 40, 00, "4.  Study  each  symbol  and  its" 

9440  DATA  12, 24, 40, 00, * def ini t i on  2 or  3 times." 

9450  DATA  16, 53, 1 1 , 00, "Go  to  :nxt0" 

9460  DATA  00,00,00,09, * " 


t 0 
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6.11  ATH106.4 

The  'ATH106.4'  subprogram  contains  the  format  definitions  for  the 
following  pages: 

. Learn  Symbol  Definitions  (Definitions) 

. Learn  Symbol  Definitions  (Rest  Directions) 

The  remainder  of  this  section  presents  the  'ATH106.4'  subprogram 
listing. 


<> 


AU"I  HQR  biy  &-t  pm : Phai 


— ATHlOfc. A 


F o rma  -fc 


(ATHlOfc. 4 ) Version  > 2.0  T/VP 


780317 
0 fc 


3000  X##  Data  Subprogram  > AUTHOR/ 1 

9010  RfcM  **  Data  Subroutine 
9020  RfcM  ** 

‘3030  RtM  **  ATH106.4  contains  format  descriptions  for 

9040  RfcM  *■*  - Symbol  Set;  Learn  ; Symbols  (7.3.3) 

9050  RfcM  *■»  - Symbol  Set;  Rest  (7.4.0) 

90fc0  RfcM  ** 

9070  RfcM  ■•HHHHHHMHHHHHMHMHMHHHHHHHHHMHUHHHHHHHHHHHHHHHHHHHHMHHf 
9080  REM  ** 

9090  COSUB  ' 205  (1)  : RfcM  LOAD  FIRST  PACfc 

9100  GOSUB  ' OSO  : RtM  RfcTURN  JUMP 

9110  REM  ** 

9120  REM  **  FORMAT  DESCRIPTIONS 

9130  REM  ** 

9140  DATA  01, 06, 42, 00, "SYMBOL  SET  #22:  LEARN  SYMBOL  DEFINITIONS" 

9150  DATA  01 , 06, 42, 05, " " 

SlfcO  DATA  01,48,08,04, " “ 

9170  DATA  02, 11, 11,00, "Definition" 

9180  DATA  02, 31,08,00, "Symbol" 

9190  DA) A 02,48, 11,00, "Memory  Aid- 
9200  DA l A 02,04.22,05,  " “ 

9210  DATA  02,27,15,05,"  “ 

9220  DATA  02,43,20,05,"  “ 

9230  DATA  lfc, S3, 1 1 ,00, "Co  to  :nxtO“ 

9240  DATA  00,00,00,09,"  " 

9250  DAI  A 01, Ofc, 21,  CO, "SYMBOL  SET  #22:  REST- 
9260  DATA  01,06,21,05,"  “ 

9270  DAI  A 01,27,29,04,"  " 

9280  DATA  03,06, 15,00, "Directions" 

9290  DA1A  03,24,40,00,"--  Relax  for  a moment  or  two." 

9300  DATA  04,24,40,00, "Get  your  mind  off  your  study." 

9310  DATA  06,24,40,00," — Thinl<  of  something  relaxing." 

9320  DATA  08,24,40,00," — You  will  learn  more  quickly" 

9330  DATA  09,24, 40, OO, "when  you  go  back  to  your  study- 
9340  DATA  10,24,40,00, "if  you  rest." 

9350  DATA  lfc, 53, 1 1 ,00, "Go  tD  inxtO* 

9360  DATA  00,00,00,09,"  " 


o 
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ATH106.5 

The  'ATH106.5'  subprogram  contains  the  format  definitions  for 
the  following  pages: 

. Practice  Defining  the  Symbols  (Flowchart) 

. Practice  Defining  the  Symbols  (Directions) 

The  remainder  of  this  section  presents  the  'ATH106.5'  subprogram 
listing. 


It 


AUTHOR  System:  Phase 


— ATHlOfc.  S — l-Drmat 


9000 

9010 

9030 

9030 

9040 

9050 

9000 

•9070 

•9080 

9090 

9100 

9110 

9130 

9130 

9140 


ATHlOfc. 5 contains  format  descriptions  for 


- Symbol  Set;  Practice 

- Symbol  Set;  Practice 


Xit#  Data  Subprogram  > AUTHUR/1  (A'lHlOfc.  5) 
MEM  **  Data  Subroutine 
HEM  ** 

RLM  ** 

KEM  ** 

REM  ** 

REM  ** 

REM 
REM  ** 

GOSUB 
GOSUB 
REM  ** 

REM  ** 

REM  ** 

DATA  01,00,47,00,  "SYMBOL  SET  itzz 


Version  > 3.0  T /VP 


780317 
0 fc 


Diagram 
Di reel  ions 


<7.5. 1 ) 
<7.5.3) 


305 

050 


<1> 


: REM  LOAD  FIRST  PAGE 
; REM  RETURN  JUMP 

FORMAT  DESCRIPTIONS 

PRACTICE  DEFINING  THE  SYMBOLS" 


9150 

DATA 

01,06,47,05, 

■ N 

9160 

DATA 

01,53,03,04, 

M M 

9170 

DATA 

03, 06.,  05, 00, 

" : dia3" 

9180 

DATA 

03,35, 36,04, 

N N 

9190 

DATA 

03,fcl,03,00, 

“No" 

9300 

DATA 

04,03,63,00, 

" !Note  the  ! 

(Learn  ! 

! (Practice!  ! 

(Test  ( 

Did" 

9310 

DATA 

05,03,fc3,00, 

" (Differences! 

! the  ! 

! (Defining ! ! 

! Yourself ! 

You" 

9330 

DATA 

06,03,63,00, 

" ! Among  the  ! 

(symbol  ! 

((the  ! ! 

I 1 

Pass* 

9330 

DATA 

07,03,63,00, 

" ! Symbols  ! 

(Definitions ! 

! (Symbols  ! ! 

1 1 

*>• 

9340  DATA  07,03,11,05,“  “ 

9350  DATA  07 , 1 8, 1 1 , 05, “ “ 

9300  DATA  07,33, 10,05, ‘ * 

9370  DATA  07,47,08,04,*  " 

9380  DATA  07,59,03,05,*  * 

9390  DATA  08,37,14,00,"*“ 

9300  DATA  0-9,  33, 15,00,  "You  are  here" 

9310  DATA  lfc, 53, 11,00, "Co  to  :nxtO“ 

9330  DATA  00,00,00,09,"  “ 

9330  DATA  01 , 06, 47, 00, "SYMBOL  SET  #zz:  PRACTICE  DEFINING  THE  SYMBOLS" 
9340  DATA  01 , Ofc, 47, 05, • " 

9350  DATA  01,53,03,04,"  " 

93fc0  DATA  03,06,30,00, "Directions" 

9370  DATA  03, 34 , 40, OO, " 1 . Read  all  directions  before" 

9380  DATA  03. 34 , 40, OO, " you  practice  defining  the  symbols." 

9390  DATA  04,34, 40,00, "3.  Try  to  recall  the  definition- 
9400  DATA  05,34,40,00, "of  each  symbol  in  the  exercise" 

9410  DATA  Ofc., 34, 40,00, "on  frame  InxtO. " 

9430  DATA  O Y, 34, 40, 00, " 3.  WRITE  your  first  impression  of" 

9430  DATA  08,34,40,00, "the  symbol's  definition." 

9440  DATA  09,34, 40,00, *4.  If  the  definition  is  difficult* 

9450  DATA  10, 34 , 40, OO, " to  remember,  recall  the  memory  aid” 

9460  DATA  1 1 , 34, 40, 00, " f i rst , then  recall  the  definition." 

9470  DATA  13, 34, 40, 00, “ 5.  ChecR  your  answer  immediately" 

9480  DATA  1 3, 34, 40, OO, * in  the  answer  section  below  the" 

94 '90  DATA  14 , 34 , 40, 00,  " symbol  s.  " 

9500  DATA  16, 53, 1 1 , 00, "Go  to  inxtO* 

9510  DATA  00,00,00,09,"  * 


c 
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6.13  ATH106.6 

The  'ATH106.6'  subprogram  contains  the  format  definitions  for 
the  following  pages: 

. Practice  Defining  the  Symbols  (Exercises) 

. Practice  Defining  the  Symbols  (Practice  Directions) 

. Practice  Defining  the  Symbols  (Rest  Directions) 

The  remainder  of  this  section  presents  the  'ATH106.6'  subprogram 
listing. 


Version  >2.0  T/VP  780317 


9000  X##  Data  Subprogram  > AUTHOR/1  (ATH106.6) 

9010  REM  ** 

9020  REM  ** 

9030  REM  ** 

9040  REM  ** 

90S0  REM  ** 

■3060  REM  ** 

9070  REM  ** 

9080  REM  **■ 

9090  REM  ** 

9100  GOSUB 
9110  GOSUB 
9120  REM  ** 

9130  REM  ** 

9140  REM  ** 

9150  DATA  0 
9160  DATA  0 
9170  DATA  O 
9180  DATA  O, 

9190  DATA  O 
9200  DATA  O 
9210  DATA  O 
9220  DATA  O 
9230  DATA  O 
9240  DATA  O 
9250  DATA  l 
9260  DATA  O 
9270  DATA  O 
9280  DATA  O 

92- 30  DATA  0 
9300  DATA  O 
9310  DATA  O 
9320  DATA  O 
9330  DATA  O 
9340  DATA  O 
9350  DATA  O 
9360  DATA  O 
9370  DATA  O 
9380  DATA  O 

93- 30  DATA  1 
9400  DATA  1 
9410  DATA  1 
9420  DATA  1 
9430  DATA  1 
9440  DATA  1 
9450  DATA  1 
9460  DATA  1 
9470  DATA  1 
9480  DATA  0 


ATH106.6  contains  format  descriptions  for 

- Symbol  Set;  Practice  ; Symbols  < 

- Symbol  Set;  Practice  ; Directions  ( 

- Symbol  Set;  Rest  < 


Directions" 

1.  Keep  practicing  until  you  feel  you 
know  the  definition  of  each  symbol." 

2.  Practice  defining  the  most* 
difficult  symbols  for  you  more  than* 
the  easier  symbols.* 

3.  Change  the  order  of  going  through* 
the  practice  symbol  list  as  you  study 
Examples  of  how  you  might  vary  the" 
order  of  studying  the  symbol  codes  * 
in  the  list:" 


To  practice...  Go  back  to 
: skbl " 

After  practicing...  Go  to 
:nxtO* 
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ATH106.7 

The  'ATH1P6.7'  subprogram  contains  the  format  definition  for  the 
Test  Yourself  (Flowchart)  page. 

The  remainder  of  this  section  presents  the  ' ATH106. 7 1 subprogram 
listing. 


811 


V 

AUTHOR  System:  Phase  1 — ATHlOfc. 7 — Format 

•3000  X*#  Data  Subprogram  > AUTHOR/1  (A1H106.7)  Version  > 2.0  T/VP  780317 

9010  REM  ■**  Oa-ta  Subroutine  ^**+*^*^****^<****-**+***^****-»-tMi--tHf*-it-»  0 6.7 

9020  REM  ** 

9030  REM  **  ATH106.7  contains  format  descriptions  for 

9040  REM  **  - Symbol  Set;  Test  Yourself  Diagram  (7.7.1) 

9050  REM  **  

9070  REM  ** 

9080  GGSUB  ' 205  (1)  : REM  LOAD  PIRST  PAGE 

9090  GDSUB  ' 050  : REM  RETURN  JUMP 

9100  REM  ** 

9110  REM  **  FORMA!  DESCRIPTIONS 

9120  REM  ** 


9130 

DATA 

01,06,3^  00, "SYMBOL  SET  ttzz: 

TEST  YOURSELF* 

91  AO 

DATA 

01,06, 3u,OS, " • 

9150 

DA)  A 

01,36,20,04,*  * 

9160 

DATA 

03,06,05,00, *:dia4* 

9170 

DATA 

03,25,36,04,"  " 

9180 

DATA 

03,61,02,00, “No" 

1 

9190 

DATA 

04,02,62,00, “ (Note  the  ! 

(Learn  i 

(Practice ! 

((Test  !( 

Did" 

9200 

DA  I A 

05,02,62,00, “ !Dif f erences ! 

(the  ! 

(Defining ! 

! ! Yourself ! ! 

You" 

9210 

DATA 

06,02,62,00, “! Among  the  ! 

(symbol  ! 

(the  ! 

j i ii 

Pass“ 

9220 

DATA 

/'7, 02,62, 00,  “ (Symbols  ! 

(Definitions ! 

(Symbols  ( 

1 1 II 

?“ 

9230 

DATA 

07,03,11,05,“  “ 

9240 

DATA 

07,18,11,05,*  * 

9250 

DATA 

07,33,08,05,“  " 

9260 

DATA 

07,45,10,05,"  * 

( 

9270 

DATA 

07,59,03,05,“  * 

w 

9280 

DATA 

08,50, 14,00, '*■ 

9290 

DATA 

09,45, 15,00, “You  are  here" 

9300 

DATA 

16,53, 11,00, “Go  to  :nxtO“ 

9310 

DATA 

00,00,00,09,“  “ 

AM 
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6.15  ATH106.8 

The  'ATH106.8'  subprogram  contains  the  format  definitions  for  the 
following  pages: 

Test  Yourself  (Directions) 

. Test  Yourself  (Memory  Aids) 

. Test  Yourself  (Answers) 

The  remainder  of  this  section  presents  the  1 ATH106.8'  subprogram 
listing. 


813 


AUTHOR  System:  Ph3&e 


— ATHlOfc. S 


9000 

9010 

9020 

•9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9150 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9250 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9450 

9470 


ATH106.8  contains;  format  descriptions;  for 

- Symbol  Sot;  Test  Yourself  Direct  (7.7.2) 

- Symbol  Sot;  Test  Yourself  Mom  Aid  (7.7.3) 

- Symbol  Set;  Test  Yourself  Answers  (7.7.4) 


205  (1) 
050 


REM  LOAD  FIRST  PAGE 
REM  RETURN  JUMP 

FORMAT  DESCRIPTIONS 


Xttit  Data  Subprogram  > AUTHOR/1  (ATHIOS.S)  Version  > 2.0  T/VP 
REM  **  Data  Subroutine 
REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ** 

REM  ♦* 

REM 
REM  ** 

GOSUB 
GOSUB 
REM  ** 

REM  ++ 

REM  ** 

DATA  01,05,30,00, “SYMBOL  SET  #zz:  TEST  YOURSELF* 

DATA  01,05,30,05,*  * 

DATA  01,35,20,04,*  " 

DATA  02,05,20,00, "Directions* 

DATA  02, 24 , 40, 00, * 1 . WRITE  the  definition  of  each* 

DATA  03,24,40,00, "symbol  when  you  take  the  self  test.* 

DATA  05,24,40,00, *2.  If  you  want  a memory  aid  ..." 

DATA  05,53, 11,00, * Go  to  InxtO" 

DATA  07,24,40,00, "3.  Refer  to  the  memory  aids  only" 

DATA  08,24,40,00, "when  you  can't  think  of  the  definition 
DATA  09,24,37,04, " " 

DATA  10,05,20,00, "Self  Test* 

DATA  15,35,20,00, "For  Answers...* 

DATA  15,53, 11,00, “Go  to  Jskfl" 

DATA  00,00,00,09,"  " 

DATA  01,06, 30,00, "SYMBOL  SET  #zz 
DATA  01,06,30,05, " " 

DATA  01,36,20,04,"  * 

DATA  02,05, 19,00, "Symbols" 

DATA  02,26, 30,00, "Memory  Aids" 

DAT  A 02,05.,  19,05,  * " 

DATA  02,25,30,05, " " 

DATA  16,48, 15,00, "Go  Back  to  Iskbl" 

DATA  00,00,00,09,"  " 

DATA  01,06,30,00, "SYMBOL  SET  *zz:  TES1  YOURSELF 
DATA  01,05,30,05,"  " 

DATA  01,36,20,04,"  " 

DATA  02,06, 10,00, "Symbols" 

DATA  02, 36,07,00, "Answers" 

DATA  02,06,19,05,"  * 

DATA  02,26,30,05,"  * 

DATA  16,53, 11,00, "Go  to  :nxtO" 

DATA  00,00,00,09,"  " 


— F d rma  -fc 

780317 
O 6 .8 


TEST  YOURSELF” 


c 
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6.16  ATH106.9 

The  ' ATH1 06. 9 ' subprogram  contains  the  format  definitions  for  the 
following  pages: 

Test  Yourself  (End  of  Test  Directions) 

. Test  Yourself  (Rest  Directions) 

The  remainder  of  this  section  presents  the  'ATH106.9'  subprogram 
listing. 


AU THOR 

9000 

Datj 

9010 

HEM  ** 

9020 

REM  +* 

9030 

REM  ** 

9040 

REM  ** 

9050 

REM  ** 

9060 

REM  ** 

9070 

REM  hhhh 

•9080 

REM  ** 

90-90 

GOSUB  ' 

9100 

GOSUB  ' 

9110 

REM  ** 

9120 

REM  ** 

9130 

REM  ** 

91  AO 

DATA 

01 

9150 

DATA 

01 

9160 

DATA 

01 

9170 

DATA 

02 

9180 

DATA 

03 

9190 

DA'I  A 

02 

9200 

DATA 

03 

9210 

DATA 

04 

9220 

DATA 

05 

9230 

DATA 

06. 

9240 

DATA 

07 

9250 

DATA 

08 

9260 

DAI  A 

09 

9270 

DATA 

10 

9280 

DAI  A 

11 

9290 

DATA 

11 

9300 

DATA 

13 

9310 

DATA 

14 

9320 

DATA 

16 

9330 

DATA 

16 

9340 

DATA 

OO 

9350 

DAI  A 

01 

9360 

DATA 

01 

9370 

DATA 

Ol 

9380 

DATA 

02 

9390 

DATA 

02 

9400 

DATA 

03 

9410 

DATA 

05 

9420 

DATA 

06. 

9430 

DATA 

07 

9440 

DATA 

08 

9460 

DATA 

08 

9460 

DATA 

09 

9470 

DATA 

11 

9480 

DATA 

12 

94  90 

DATA 

16 

9500 

DATA 

OO 

System:  Phase  1 — ATH 1 Ofc. _ '=#  — Format 


Version  >2.0  1 /VP 


Data  Subroutine 


780317 
0 6 .9 


ATH106.9  contains  format  descriptions  for 

- Symbol  Set;  Test  Yourself  E-O-T  (7.7.S) 

- Symbol  Set;  End  of  Symbol  Set  <7.8.G> 


205  (1) 
050 


REM  LOAD  URST  PAGE 
REM  RETURN  JUMP 

FORMAT  DESCRIP  I IONS 


:skb3“ 


inxtO" 


A rest  between  learning  tasks" 


: nxtO" 
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* 

6.17  ATH107.0 

The  'ATH107.0'  subprogram  contains  the  format  definition  for  the 
Practice  Defining  All  the  Symbols  (Overview  and  Direction)  page. 

The  remainder  of  this  section  presents  the  'ATH107.0'  subprogram 
listing. 


317 


AUTHOR  System:  Phai 


AT  H 1 0 7 _ O — 


X##  Data  Subprogram  > AUTHCiR/1  (ATH107.0)  Version  > 2.0  T/VP  780317 
REM  **  format  Description  #^hhhhhhhhh>#^hhhhhhhhhhhmhhhhhhi 
REM  ** 

REM  **  ATH107.0  contains  format  descriptions  for 

REM  **  - Symbol  Set;  Practice  ; Directions  (8.1) 

REM  ** 

REM  ** 

GOSUB  ' 205  (1)  : REM  LOAD  PIRST  PAGE 

COSUB  ' 050  : REM  RETURN  JUMP 

REM  ** 

REM  **  FORMA 1 DESCRIPTIONS 

REM  ** 

DATA  01,05,30,00, •PRACTICE  DEFINING  ALL  SYMBOLS" 

DATA  01,05,30,05,"  " 

DATA  01,35,20,04,"  “ 

DATA  02,05,20,00, "Overview" 

DATA  05,05,20,00, "Directions" 

DATA  02,24,40,00, “Now  you  will  practice  recalling  all" 

DATA  03,24,40,00,’##  symbols  in  a single  exercise." 

DATA  04,24,37,04, " " 

DATA  05,24,40,00, “Read  all  the  directions  before" 

DATA  05, 24, 40, 00, "starting  the  excerise.” 

DATA  07,24,40,00, “1.  Recall  the  definitions  of  each" 

DATA  08,24,40,00, "symbol  in  the  exercise  on  frame  :nxtO“ 

DATA  09,24,40,00, "2.  WRITE  your  first  impression  of" 

DATA  10,24,40,00, "each  symbol's  definition." 

DATA  11,24,40,00, "3.  Recall  the  memory  aid  if  the" 

DATA  12,24,40,00, "definition  is  difficult  to  remember." 

DATA  13,24, 40,00, "Then  recall  the  definition." 

DATA  14,24, 40,00, "4.  Chech  your  answers  only  if  you" 

DATA  15,24, 40,00, “arc  in  doubt." 

DATA  15,53, 11,00, "Go  to  :nxtO" 

DATA  00,00,00,09,"  “ 


* 
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6.18  ATH107.1 

The  1 ATH1 07.1*  subprogram  contains  the  format  definitions  for  the 
following  pages: 

. Practice  Defining  All  the  Symbols  (Practice  Exercises) 

Practice  Defining  All  the  Symbols  (Answers) 

The  remainder  of  this  section  presents  the  * ATH1 07.1'  subprogram  listing. 


819 


AU 

9000 

9010 

•3050 

9030 

9040 

9050 

9060 

3070 

3080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

3230 

3240 

9250 

9260 

9270 

9280 

9290 


rMCJK  Say  Phase  1 — ATHIO/.  1 — Format 

Z##  Oats  Subprogram  > AUTH0H/1  (ATH107.1)  Version  > 2.0  T/VP  780317 
HtM  **  oaia  Subroutine  ##*##*<hhhhhhhhhhhhhhhhhhhhhhhhhhhhhmhi-*  0 7.1 
HEM  *■* 

HEM  **  ATH107. 1 contains  format  descriptions  for 

HtM  **  - Symbol  Set;  Practice  ; Symbols  (8.2) 

HEM  **  - Symbol  Set;  Practice  ; Answers  (8.3) 

HtM  *♦ 

HtM  *+ 

COSUB  ' 205  (3)  : REM  LOAD  PIHST  PAGE 

COSUB  ' 050  : REM  RETURN  JUMP 

HEM  ** 

HtM  **  FORMAT  DESCRIPTIONS 

HtM  ** 

DATA  01 , OS, 30, OO, “PHACT ICE  DEFINING  ALL  SYMBOLS" 

UATA  01,06,30,05, " " 

DATA  01,36,20,04,"  * 

UATA  02, 06, 20, 00, "Practice" 

UATA  03,06,20,00, "Symbols" 

UATA  16, 36,28,00, "To  check  Answers  Go  to  :nxtl" 

UATA  00,00,00,09,"  " 

UATA  01,06. 30,00, "PRACTICE  DEFINING  ALL  SYMBOLS" 

DATA  01,06,30,05, " * 

DATA  01,36,20,04, " " 

UATA  02,06, 10,00, "Symbols" 

DATA  02,36,07,00, "Answers" 

UATA  02,06,19,05,"  " 

UATA  02,26, 30,05, " " 

UATA  16,53, 11,00, "Co  to  :n*tO" 

UATA  00,00,00,09, " * 
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ATH107.2 

The  'ATH107.2'  subprogram  contains  the  format  definitions  for  the 
following  pages: 

Practice  Defining  All  the  Symbols  (Ending  Directions) 


Practice  Defining  All  the  Symbols  (Practice  Directions) 
The  remainder  of  this  section  presents  the  1 ATH1 07.2*  subprogram 


AU  I HQH 


S/&"t  i?m  - 


Phase  1 


ATH10  7.  S 


P o rmo  -fc 


9000 

9010 

9020 

9090 

9040 

9090 

•9090 

9070 

9080 

•9090 

9100 

9110 

9120 

9190 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

92/0 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 


Z1TO  Data  Subprogram  > AUTH0H/1  (AIH107.2)  Version  > 2.0  T /VP  780317 
REM  ** 

HEM  *•*  ATH107.2  contains  format  descriptions  for 

RfcM  **  - Symbol  Set;  Practice  ; Dirc-ct/1  (8.4> 

HfcM  **  - Symbol  Set;  Practice  ; Direct/2  (8.5) 

REM  ** 


REM 


REM  ** 

GOSUB  ' 205  (1)  : REM  LOAD  FIRST  PAGE 

GOSUB  ' 050  : REM  RETURN  JUMP 

REM  ** 

REM  **  FORMAT  DESCRIPTIONS 

REM  ** 

DATA  01,06,30,00, "PRACTICE  DEFINING  ALL  SYMBOLS* 

DATA  01,06,30,05,"  " 

DATA  01, 36,20, 04, * " 

DATA  02,06,20,00, "Directions" 

DATA  02,24, 40,00, * 1.  If  you  gave  the  definitions* 

DATA  03,24, 40, OO, * of  all  of  these  symbols  correctly’ 

DATA  04,24,40,00, "without  pausing..." 

DATA  04,53, 11,00, "Go  to  isRfl" 

DATA  06,24, 40,00, "2.  If  you  paused  in  defining  some* 

DATA  07,24,40,00, "of  the  symbols  or  you  could  not" 

DATA  08,24,40,00, "think  of  their  definitions  " 

DATA  09,24,40,00, "at  all..." 

DATA  16,53, 11,00, "Co  to  SnxtO" 

DATA  00,00,00,09,"  " 

DATA  01,06,30,00, "PRACT ICE  DEFINING  ALL  SYMBOLS" 

DATA  01,06,30,05, * " 

DATA  01,36,20,04,"  * 

DATA  02,06,20,00, "Directions* 

DATA  02,24, 40,00, " 1 . Keep  practicing  until  you  can" 

DATA  03,24,40,00, "define  all  the  ymbols  without  pausing." 

DATA  04,24,40,00, "2.  Practice  defining  the  most" 

DATA  05,24,40,00, "difficult  symbols  for  you  more  than" 

DATA  06,24, 40,00, "the  easier  symbols." 

DATA  07,24,40,00, *3.  Change  the  order  of  going  through" 

DATA  08, 24, 40, OO, “ the  practice  symbol  list  as  you  study." 

DATA  09,24,40,00, "Examples  of  how  you  might  vary  the" 

DATA  10,24,40,00, "order  of  studying  the  symbol  codes  * 

DATA  11,24,40,00, "in  the  list!" 

DATA  12,24,40,00,  " > < > < " 

DATA  13,24,40,00,  "< > > < * 

DATA  14,24,40,00," > < > < " 

DATA  15, 32, 32,00, "To  practice...  Go  bach  to  * 

DATA  15,59,05,00, "Iskbl" 

DA1A  16, 32, 32,00, "After  practicing...  Go  to  * 

DATA  16, 59,05,00, ":nxtO* 

DATA  00,00,00,09,"  " 


.2 
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ATH108.0 


The  'ATH108.0'  subprogram  contains  the  format  definition  for  the 
Criterion  Test  (Directions)  page. 


The  remainder  of  this  section  presents  the  'ATH108.0'  subprogram 
listing. 


ATH 1 oa _ o 


AUTHOH  System:  Phase  1 


P o rma  -t 


•3000 
9010 
9050 
9030 
90  AO 
9050 
9050 
•3070 
9080 
9090 
9100 
9110 
9150 
9130 
91A0 
9150 
9150 
9170 
9180 
9190 
9500 
9810 
9580 
9830 
95A0 
3550 
98€>0 
9870 
9880 
•3590 


M*  Data  Subprogram  > AUTH0R/1  (ATH108.0)  Version  > 5.0  T/VP  780317 
REM  ** 

REM  **  ATH108.0  contains  format  descriptions  for 

REM  **  - Criterion  Test  ; Directions  (3.1) 

REM  ** 

REM  ** 

COSUB  ' 505  (1)  : REM  LOAD  FIRST  RAGE 

GOSUB  ' 050  : REM  RETURN  JUMP 

REM  ** 

REM  **  FORMAT  DESCRIPTIONS 

REM  ** 

DATA  01, OS, 14,00, 'CRITERION  TEST" 

DATA  01, OS, 1A,05, " * 

DATA  01,50, 3S, 04, • * 

DATA  05, OS, 50, 00, “Ready?" 

DATA  05, 5A , AO, 00, "You  should  now  be  ready  to  take* 

DATA  03, 5A, A0,00, "the  criterion  test." 

DA I A OA , 8A , 37 , OA , * * 

DATA  05,05,50,00, "Directions* 

DATA  05, 8A, 40,00, *1,  WRITE  the  definition  of  each  test* 

DATA  05,54,40,00, "symbol. * 

DATA  08,84,40,00, "5.  Do  not  chock  your  answers  until" 

DATA  09,54, 40,00, * you  have  completed  the  entire  test.* 

DATA  11,54,35,00, "3.  To  be  correct  your  answer  must* 

DATA  18,84, 38,00, “ contain:  (1)  the  concepts  and  (5)  the" 

DATA  13,54, 35,00, " important  words  in  the  definition." 

DATA  15, 35, 59, 00, "For  test  symbols  Go  to  :nxtO" 

DATA  00,00,00,09, * * 


I 
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ATH108. 1 

The  'ATH108.1'  subprogram  contains  the  format  definitions  for  the 
following  pages. 

. Criterion  Test  (Tests) 

. Criterion  Test  (Answers) 

. Criterion  Test  (End  of  Test  Directions) 

Criterion  Test  (Congratulations) 

The  remainder  of  this  section  presents  the  'ATH108.1'  subprogram 
listing. 


I G 


825 


AUTHOR  Syst em 


P ha  s 


1 


ATM ± OS- i 


F d rma  "t 


9000 

9010 

9050 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9150 

9130 

9140 

9150 

9150 

9170 

9180 

9190 

9500 

9510 

9550 

9530 

9540 

9550 

9560 

3570 

9580 

9590 

9300 

9310 

9350 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

3400 

9410 

3450 

3*30 

3440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 


Xm  Data 
REM  ** 
REM  ** 
REM  ** 
REM  ** 
REM  *# 
REM  *+ 
REM  ** 
REM  ** 
REM  **** 
REM  ** 
GOSUB  ' 
GOSUB  ' 


Subprogram  > AUTHOR /I  (ATH108. 1)  Version  > 5.0  T/VP  780317 
ATH108. 1 contains  format  descriptions  for 


- Criterion  Test 

- Criterion  Test 

- Criterion  Test 

- Criterion  Test 


505  (1) 
050 


Symbols  <9.5> 

Answers  (9.3) 

End  of  Test  <9. 4) 

Congradulations  (9.5) 


: REM  LOAD  FIRST  PAGE 
I REM  RETURN  JUMP 


REM  ** 

REM  **  FORMAT  DESCRIPTIONS 

REM  ** 

DATA  01,06, 18,00, "CRITERION  TEST  #zz" 

DATA  01,06, 18,05, “ " 

DATA  01,54,35,04,“  * 

DATA  16,53, 11,00, -Go  to  rnxtO* 

DATA  00,00,00,09,“  * 

DATA  01,06, 18,00, -CRITERION  TEST  #zz* 

DATA  01,06,18,05,“  * 

DATA  01,54,35,04,"  * 

DATA  05,06, 10,00, -Symbols- 
DATA  05,36,07,00, "Answers* 

DATA  05,06,19,05,*  * 

DATA  05,56,30,05,*  * 

DATA  16,53, 11,00, *Go  to  rnxtO* 

DATA  00,00,00,09,"  " 

DATA  01,06, 18,00, ‘CRITERION  TEST  #zz“ 

DATA  01,06,18,05,-  * 

DATA  01,54,35,04, * * 

DATA  05,06,50,00, -End  of  Test* 

DATA  03,06,50,00, “Directions- 

DATA  05,55,45,00,**  If  you  correctly  defined  all  of  the“ 

DATA  03,54,40,00, “symbols. .. “ 

DATA  03,53, 11,00, “Go  to  rend** 

DATA  04,55,45,00,"*  If  you  missed  one  or  more  answers:* 

DATA  05,30,34,00, *1. Make  a list  of  symbols* 

OATA  06, 30, 34,00, “that  you  missed.* 

DATA  07, 30, 34,00, “5. Practice  defining  these  symbols. - 
DATA  08, 30, 34,00, "3. Start  with  the  most  difficult* 

DATA  09, 30, 34,00, " symbols  for  you. * 

DATA  10, 30, 34,00, "4. Continue  to  practice  until  you* 

OATA  1 1, 30, 34,00, “ can  correctly  define  them. " 

DATA  15, 30, 34,00, “5. Take  the  next  criterion  test...* 

DATA  13, 30, 34,00, *5. Go  back  to  practicing* 

DATA  14,30, 34,00, “all  the  symbols...- 
DATA  15,53, 11,00, “Go  to  rprac" 

DATA  16,53, 11,00, -Go  to  rnxtO" 

DATA  00,00,00,09,"  * 
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o 


i 

f 5 

9520  DATA  01,06, 16,00, "CONGRATULATIONS! " 

5. TO  DATA  01,06, 16,05, " “ 

9540  DATA  01,22,34,04,*  “ 

9550  DATA  03,24,40,00, “You  have  shown  that  you  know  all" 
9560  DATA  04, 24, 40, 00, * of  the  symbols  in  this  program." 
9570  DATA  06,24,40,00, "Knowing  these  symbols  will  make  " 
9580  DATA  07, 24, 40,00. “ you  a better  “ 

9590  DATA  16, 53, 11,00, "Go  to  :nxt0" 

•3600  DATA  00.00,00,09,"  " 
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ATH109.0 

The  ’ATH109.0'  subprogram  contains  the  format  definition  for  the 
Suggestions  for  Refresher  Training  page. 


The  remainder  of  this  section  presents  the  'ATH109.0'  subprogram 
listing. 


Version  > 2.0  T /VP  780317 


9000  Ztt#  Data  Subprogram  > AUTHOR/1  <ATH109.0> 
9010  REM  *•*  Data  Subroutine  * 

9020  KEM  ** 

9030  REM  **  ATH109.0  contain 

9040  REM  ** 

9050  REM  ** 

•30€.0  REM  **■ 

9070  REM  *■* 

9080  GOSUB 
•3090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 


format  descriptions 
for  Refresher  Train 


205  (1)  : REM  LOAD  fIRST  PAGE 

GOSUB  ' 050  : REM  RETURN  JUMP 

REM  ** 

REM  **  FORMAT  DESCRIPTIONS 

REM  ** 

DATA  01,06, 34,00, "SUGGEST  IONS  FOR  REFRESHER  TRAINING" 

DATA  01,06,34,05,"  “ 

DATA  01,40, 16,04, " * 

DA) A 02,06,20,00, "People" 

DAI  A 03,06,20,00, "Forget" 

DATA  07,06,20,00, "Suggestions" 

DATA  02,24, 40,00, "You  will  need  to  refresh  your" 

DATA  03,24,40,00, "memory  once  in  a while  if  you  are" 

DATA  04,24,40,00, “to  recognize  these  symbols" 

DATA  05,24,40,00, "on-the-job.  " 

DAI  A 06,24,37,04,"  " 

DATA  07,24,40,00, "1.  Review  the  symbols  before  you" 

DATA  08,24,40,00, “go  to  bed  TONIGHT." 

DATA  10,24, 40,00, "2.  Review  them  again  in  ONE  WEEK." 

DATA  12,24, 40,00, “ 3.  If  you  seldom  use  these  symbols" 

DATA  13,24,40,00, “on-the-job,  review  them  EVERY  MONTH.” 

DATA  16,53, 11,00, "Go  to  InxtO" 

DATA  00,00,00,09,"  " 

DATA  01,06,34,00, "SUGGESTIONS  FOR  REFRESHER  TRAINING- 
DATA  01,06,34,05,"  " 

DATA  01,40,16,04,’  " 

DATA  02,06,20,00, “Suggestions" 

DATA  02,24,40,00, "4.  Refresh  your  memory  while  you" 

DAI  A 03,24,40,00, "still  remember.  Don't  wait  until  " 

DATA  04,24,40,00, “you  forget.  This  will  be  easier  than" 

DATA  05,24, 40,00, " learning  these  symbols  again  after" 

DATA  06,24,40,00, "you  have  forgotten  them." 

DATA  08,24,40,00, "5.  Check  for  accuracy  during  refresher" 

DATA  09,24,40,00, "exercises.  Your  memory  plays  tricks" 

DATA  10,24, 40, 00, "on  you.  Use  the  criterion  test  first," 

DATA  11 ,24, 40,00, * if  it  is  available." 

DATA  13,24,40,00, "6.  Refresh  your  memory  of  the" 

DATA  14,24,40,00, "definitions  of  these  symbols  more" 

DATA  15,24, 40,00, "often  than  is  needed  to  just  get  by." 

DATA  16,44,20,00, "END  OF  PROGRAM" 

DATA  00,00,00,09,"  " 

DATA  01,25, 14,00, "END  OF  FILE" 

9500  DATA  08,01 , 14,00, “END  UP  FILE" 

9510  DATA  08,25, 14,00, "END  OF  FILE" 

9520  DATA  08, 50, 14,00, “END  OF  FILE" 

9530  DATA  09,01, 14,00, "END  OF  FILE" 

9540  DATA  09,25, 14,00, "END  OF  FILE" 

9550  DATA  09, 50, 14, 00, "END  OF 'FILE" 

9560  DATA  16,01 , 14,00, "END  OF  FILE" 

9570  DATA  16, 50, 14,00, “END  OF  FILE" 

9580  DATA  00,00,00,09,"  " 
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6.23  ATH1 10.0 


The  'ATH110.P'  subprogram  contains  the  format  definitions  for 
the  Index  page. 

The  remainder  of  this  section  presents  the  * ATH1 1(9.0'  subprogram 
listing. 


'3000  X4M*  Data  Subprogram  > AUTHOR/1  (AYH110.0)  Version  > 2.0  T/VP  780317 
'3010  REM  **  Data  Subroutine  i o 

9020  REM  ** 

9030  REM  **  ATHUO.O  contains  format  descriptions  for 
'9040  REM  **  - Index  of"* Learning  Program  <11. 0) 

9050  REM  ** 

3060  REM  *-IHH»'*^**'JHHHH»*****-»^*****'IHI'**********-»'*********')HHHI'# 

3070  REM  ** 

9080  GOSLIB  ' 203  <1)  : REM  LOAD  f-lHSl  PAGE 

9090  GOSLIB  ' OSO  ; REM  RETURN  JUMP 

9100  REM  ** 

9110  REM  **  FORMAT  DESCRIPTIONS 

9120  REM  ** 

9130  DATA  01 , 06, 05, 00, “ INDEX “ 

3140  DATA  01,06,05,05,"  " 

9)50  DATA  01,11,45,04,"  " 

3160  DATA  02, 49, i2, CO, "Page  Address" 

9170  DATA  02,43, 12,05, " • 

31B0  DATA  03, 06, 40, 00, " Introduction" 

3130  DATA  04,06,54,04,"  * 

'9200  DATA  05, 06, 40, 00, "Opt i onal  Criterion  Test" 

9210  DATA  06,06,54,04, " " 

9220  DATA  07, 06, 40, 00, "Organ i zati on  of  Learning  Program" 

'9230  DATA  08,06,54,04,  " " 

•9240  DATA  09, 06, 40,00, "Symbol  Sets:" 

3250  DATA  00,00,00,09,"  “ 
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FORMAT  LISTINGS 

The  format  listings  presented  in  this  section  are  the  formats 
used  in  creating  the  learning  module.  These  formats  are  defined 
by  the  data  subprograms  presented  in  section  6.0  of  this  report. 
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AUTHOR:  An  Automati c Authoring  System  Version:  2.0 


INTRODUCTION 

Learning 

Objective 

I 

This  lesson  will  help  you  learn 
easily  and  quickly. 

FOR  BEST  RESULTS,  FOLLOW  THE  D1RECI IONS. 

Index  When  you  need  an  index  to 

locate  practice  exercises  for 
refresher  training...  Co  to  : indx 

To  continue  Go  to  :nxtO 
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Importance 
of  Symbols 


How  Shill  This  program  will  help  you  to: 

Will  be  Used 


Go  to  :nxtO 
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Purpose 


Di  rections 


The  pretest  will  help  you 
decide  whether  you  should  try  the 
criterion  test  at  this  time. 


1.  You  may  already  know  some  or  all 
of  these 


Symbol' 


2.  Loolt  through  the  list  of  symbols 
below  and  see  how  many  you  can  define. 


I 


Go  to  :nxtO 
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Choose  Item  #1  1.  If  you  think  that  there  arc  THREE 

Or  Item  #2  OR  MORE  of  these  symbols  that  YOU  DO 

NOT  KNOW,  don't  waste  time  taking  the 
criterion  test.  Go  directly  to  the 
learning  program...  Go  to  :skf2 

2.  If  you  think  you  know  all  the 

* * symbols;  or  you  missed  only  1 or  2 

take  the  criterion  test  and  sec 
if  you  can  pass  it... 


Go  to  :nxtO 
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OPTIONAL  CRITERION  TEST 

Directions  1.  Recall  the  definition  of  each 

symbol  on  the  next  frame(s). 

2.  Write  each  definition  on  a 
piece  of  paper. 

3.  You  must  recall  the  official 
definition  of  the  symbol  to  be 
correct  <as  found  in 


Go  to  :nxtO 
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OPTIONAL  CRITERION  TEST 

Directions  1.  Chech  your  answers  now. 

2.  Put  an  X through  your  wrong 
answers. 

SxmSsls Answers 


Go  to  InxtO 
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Overview  The  list  of  symbols  has  been  divided 


into  tf#  practice  sets.  You  will 
learn  each  set  separately,  using 
the  'Steps  for  tasy  Learning. ' Then 
you  will  practice  all  ##  symbols 
in  the  same  exercise. 


Steps  for 

Learning 

: diaO 

Easy 

No 

!Note  the 

• (Learn  ! 

(Practice ! 

(Test  ! 

Did 

(Differences 

! (the  ! 

(Defining ! 

! Yourself ! 

You 

(Among  the 

! (symbol  ! 

(the  ! 

1 1 

Pass 

! SyrQbfils 

! ' B£f iDitions ! 

(SymfeolS-! 

1 1 

2 

Go  to  :nxtO 
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SYMBOL  

The  symbols  in  this  set  are: 


You  will  loom  to  recognize  and 
define  these  symbols  in  the  next 
few  frames. 

Go  to  :nxtO 
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/ 

1 

No 

(Note  the  ! ! 

(Learn  ! 

(Practice!  VTest  ! 

Did 

(Differences!  ! 

! the  ! 

(Defining!  (Yotirsclf! 

You 

! Among  the  ! ! 

! symbol  ! 

! the  ! ! ' ! 

Pass 

JS*Tnbals_  _!! 

! Definitions ! 

(Symbols  ( ! ! 

? 

You  ore  here 
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SYMBOL  SET  ttzz:  NOTE  DIFFERENCES  AMONG  SYMBOLS 

Introduction  Each  symbol  represents  a different 

thing,  yet  some  of  the  symbols  look 
very  much  alike.  The  symbols 
presented  below  may  be  confused  with 
each  other: 


Carefully  note  what  makes  the 
symbols  above  different. 

At  this  point  in  the  learning 
program,  look  only  at  the  differences 
among  the  symbols.  Later  on  in  the 
program  you  will  be  given  definitions 
associated  with  each  symbol. 

Go  to  :nxtO 
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Purpose  This  exercise  will  help  you  to  note 

the  differences  among  those  symbols 
that  are  often  confused.  After  you 
finish  with  this  exercise,  you  should 
not  confuse  similar  symbols. 


Qui  z 

Di  rections 


1.  Read  all  directions  before  going 
to  the  next  frame. 

5.  Look  carefully  at  this  symbol: 


3.  Write  the  item  number  of  each 
example  of  on  paper. 


AUTHOR:  An  Automatic  Authoring  System 


Version:  2.0 


S¥5fiQU_S&I 

Quiz 

Answers 


What  Now? 


Sxmfeal Eiasnalaa 


If  you  frequently  missed  examples 
of  these  symbols,  repeat  this 
exercise  ...  Go  to  :skbl 

If  you  identified  most  all  of 
the  symbols  . . . 


Go  to  :nxtO 
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:dia2  No 


Note  the  ! 

! (Learn  ! ! 

(Practice ! 

(Test  ! 

Did 

Dif f ereneBE ! 

! ! the  ! ! 

(Defining ! 

(Yourself ! 

You 

Among  the  ! 

! ! symbol  ! ! 

! the  ! 

1 1 

Paso 

Symbols  ! 

! (Definitions ! ! 

(Symbolo_! 

| 1 

9 

* 

You  arc  hero 


Go  to  :nxtO 
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Directions  1.  Lool<  carefully  on  the  next  frame 

at  each  symbol  and  its  definition. 

2.  Repeat  the  definition  to  yourself 
as  you  look  at  the  symbol. 

3.  Study  the  memory  aid  to  help  you 
remember  the  definition. 

4.  Study  each  symbol  and  its 
definition  2 or  3 tiroes. 


Vtroion 
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Memory  Aid 
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SYMBOL  Sfcl  Szii_B£Sl 

Directions  — Relax  for  a moment  or  two. 

Get  your  mind  off  your  study. 

— Thinl<  of  something  relaxing. 

— You  will  learn  more  quickly 
when  you  go  back  to  your  study 
if  you  rest. 


Go  to  :nxtO 
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SYMBOL  SET  Wzzi  PRACTICE  DLHN1NC  THE  SYMBOLS 


: diaB 


Note  the  ! 

! Learn  ! 

! (Practice! ! 

(Test  ( 

Did 

Differences ! 

! the  ! 

! (Defining ! ! 

(Yourself ! 

You 

Among  the  ! 

! symbol  ! 

((the  ! ! 

1 < 

Pass 

Symbols  ! 

! U£f  ini.  t i on  s ! 

! (Symbols  ! ! 

( t 

7 

* 

You  are  here 

Go  to  :nxtO 
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Directions  1.  Read  all  directions  before 

you  practice  defining  the  symbols. 

2.  Try  to  recall  the  definition 
of  each  symbol  in  the  exercise 
on  frame  :nxtO. 

3.  WRITE  your  first  impression  of 
the  symbol's  definition. 

4.  If  the  definition  is  difficult 
to  remember,  recall  the  memory  aid 
first,  then  recall  the  definition. 

5.  Chech  your  answer  immediately 
in  the  answer  section  below  the 
symbols. 

Go  to  :nxtO 
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SYMBOL  SET  Kiz:  PKACTICE  DEFINING  THE  SYMBOLS 

Directions  1.  Keep  practicing  until  you  feel  you 

Know  the  definition  of  each  symbol. 

2.  Practice  defining  the  most 
difficult  symbols  for  you  more  than 
the  easier  symbols. 

3.  Change  the  order  of  going  through 
the  practice  symbol  list  as  you  study. 
Examples  of  how  you  might  vary  the 
order  of  studying  the  symbol  codes 


in  the  list: 

> < > < 

< > > < 

> < > < 


To  practice...  Go  back  to  :skbl 
After  practicing...  Go  to  :nxtO 
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If  you  ore  tired  now,  get  your  mind 
off  studying  symbols. 


Relax  for  a minute! 


After  your  minute's  rest. 


Go  to  :nxtO 


If  you  do  not  want  to 


rest  now. . . 
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SYMBOL  SET  #zz:  TEST  YOURSELF. 


: diaA 

(Note  the  ! 

! Learn  ! 

IPractice ! 

! (Test  ! ! 

No 

Did 

! Di f f erences ! 

! the  ! 

! Defining ! 

! ! Yourself  ! ! 

You 

! Among  the  ! 

! symbol  ! 

! the  ! 

II  II 

Pass 

ISymbols  ! 

!Dcf initions! 

! Symbols  ! 

1 ! II 

? 

•* 

You  are  here 


Go  to 
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SYMBOL  SET  »zzi  TEST  YUURSLLF 

Directions  1.  WRI1E  the  definition  of  each 

symbol  when  you  take  the  self  test. 

2.  If  you  want  a memory  a id  ... 

Go  to  :nxtO 

3.  Refer  to  the  memory  aids  only 

when  you  can't  think  of  the  definition. 


Self  Test 


For  Answers...  Go  to  :skfl 
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Co  Back  to  :skbl 
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Symbols 


Answers 


Go  to  :nxtO 
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End  of  Test  1.  If  you  referred  to  any  memory  aids 

Directions  during  this  test,  or  if  you  missed 


one  or  more  definitions,  you  need  to 
continue  to  practice: 

-ship  symbols  you  already  know 
-start  with  the  most  difficult 
symbols  for  you 
-do  the  self  test  after  you 
practice  each  time 

To  Practice...  Go  Back  to  :skb3 

2.  If  you  correctly  defined  all  the 
symbols. . . 


For  next  set  of  symbols...  Go  to  :nxtO 
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Overview  Now  you  will  practice  recalling  all 

##  symbols  in  a single  exercise. 


Directions  Read  all  the  directions  before 

starting  the  exccrise. 

1.  Recall  the  definitions  of  each 
symbol  in  the  exercise  on  frame  :nxtO 

2.  WRIIE  your  first  impression  of 
each  symbol's  definition. 

3.  Recall  the  memory  aid  if  the 
definition  is  difficult  to  remember. 
Then  recall  the  definition. 

A.  Check  your  answers  only  if  you 


are  in  doubt 
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Practice 

Symbols 


To  checlt  Answers  Go  to  :nxtl 
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PRACTICE  DEFINING  ALL  SYMBOLS 

Directions  1.  If  you  gave  the  definitions 

of  all  of  these  symbols  correctly 
without  pausing...  Go  to  :shfl 

2.  If  you  paused  in  defining  some 
of  the  symbols  or  you  could  not 
thinl<  of  their  definitions 
at  all. . . 


Go  to  :nxtO 
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Directions  1.  Keep  practicing  until  you  can 

define  all  the  symbols  without  pausing. 
3.  Practice  defining  the  most 
difficult  symbols  for  you  more  than 
the  easier  symbols. 

3.  Change  the  order  of  going  through 
the  practice  symbol  list  as  you  study. 
Examples  of  how  you  might  vary  the 
order  of  studying  the  symbol  codes 
in  the  list: 

> < > < 

< > > < 


< > < 

To  practice...  Go  bach  to  :skbl 
After  practicing...  Go  to  :nxtO 


AUTHOR:  An  Automatic  Authoring  System  Version:  2.0 


CR ITER IQN_T SSI 


Ready?  You  should  now  be  ready  to  take 

the  criterion  test. 


Directions  1.  WRITE  the  definition  of  each  test 

symbol . 

2.  Do  not  check  your  answers  until 
you  have  completed  the  entire  test. 

3.  To  be  correct  your  answer  must 
contain:  (1)  the  concepts  and  <2)  the 
important  words  in  the  definition. 

For  test  symbols  Go  to  :nxtO 
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CRITERION  TEST  ttiz 

Symbols Answers 
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CBUEBIttLIESl 
End  of  Test 
Di  rections 


Mil 

* If  you  correctly  defined  all  of  the 

symbols...  Co  to  :end* 

* If  you  missed  one  or  more  answers: 

1. Make  a list  of  symbols 
that  you  missed. 

2.  Practice  defining  these  symbols. 
3. Start  with  the  most  difficult 
symbols  for  you. 

4.  Continue  to  practice  until  you 
can  correctly  define  them. 

5.  Take  the  next  criterion  test... 
2.Go  back  to  practicing 

all  the  symbols... 


Go  to  :prac 
Go  to  :nxtO 
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You  have  shown  -that  you  know  all 
of  the  symbols  in  this  program. 

Knowing  these  symbols  will  make 
you  a better 
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People 

Forget 


Suggestions 


You  will  need  to  refresh  your 
memory  once  in  a while  if  you  are 
to  recognize  these  symbols 
on-the-job. 

1.  Review  the  symbols  before  you 
go  to  bed  TONIGHT. 


2.  Review  them  again  in  ONE  WEEK. 

3.  If  you  seldom  use  these  symbols 
on-the-job,  review  them  EVERY  MONTH. 


Go  to  :nxtO 
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SUGGESTIONS  FOR  REFRESHER  TRAINING 

Suggestions  e\.  Refresh  your  memory  while  you 

still  remember.  Don't  wait  until 
you  forget.  This  will  be  easier  than 
learning  these  symbols  again  after 
you  have  forgotten  them. 

5.  Chech  for  accuracy  during  refresher 
exercises.  Your  memory  plays  trichs 
on  you.  Use  the  criterion  test  first, 
if  it  is  available. 


6.  Refresh  your  memory  of  the 
definitions  of  these  symbols  more 
often  than  is  needed  to  just  got  by. 

END  OF  PROGRAM 
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Of-  FILE  END  OF  FILE  END  OF  FILE 

OF  FILE  END  OF  FILE  END  OF  FILE 


OF  FILE 


END  OF  FILE 
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